|
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: 737 (0x2e1)
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_Buttonpress (E : X_Event) is
use Text_Io;
use S_Long_Io;
begin
Put (" root=");
Put (E.Button.Root);
Put (", subw=");
Put (E.Button.Subwindow);
Put (", time=");
Put (E.Button.Time);
Put (",");
New_Line;
Put (" x/y=(");
Put (E.Button.X);
Put (",");
Put (E.Button.Y);
Put ("), root:x/y=(");
Put (E.Button.Root_X);
Put (",");
Put (E.Button.Root_Y);
Put ("),");
New_Line;
Put (" state=");
Put (E.Button.State);
Put (", button=");
Put (E.Button.Button);
Put (", same_screen=");
Put (E.Button.Same_Screen);
New_Line;
end Do_Buttonpress;