|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 656 (0x290)
Types: TextFile
Names: »B«
└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00
└─ ⟦0c20f784e⟧ »DATA«
└─⟦1abbe589f⟧
└─⟦ada0be243⟧
└─⟦this⟧
separate (Xev_Main)
procedure Do_Graphicsexpose (E : X_Graphics_Expose_Event) is
use Text_Io;
use S_Long_Io;
begin
Put (" x/y=(");
Put (E.Graphics_Expose.X);
Put (',');
Put (E.Graphics_Expose.Y);
Put ("), width=");
Put (E.Graphics_Expose.Width);
Put (", height=");
Put (E.Graphics_Expose.Height);
Put (", count=");
Put (E.Graphics_Expose.Count);
Put (',');
New_Line;
Put (" major=");
Put (X_Event_Code_8'Image (E.Graphics_Expose.Major_Event));
Put (", minor=");
Put (E.Graphics_Expose.Minor_Event);
New_Line;
end Do_Graphicsexpose;