|
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: 755 (0x2f3)
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_Motionnotify (E : X_Motion_Notify_Event) is
use Text_Io;
use S_Long_Io;
begin
Put (" root=");
Put (E.Motion.Root);
Put (", subw=");
Put (E.Motion.Subwindow);
Put (", time=");
Put (E.Motion.Time);
Put (",");
New_Line;
Put (" x/y=(");
Put (E.Motion.X);
Put (',');
Put (E.Motion.Y);
Put ("), root:x/y=(");
Put (E.Motion.Root_X);
Put (',');
Put (E.Motion.Root_Y);
Put ("),");
New_Line;
Put (" state=");
Put (E.Motion.State);
Put (", is_hint=");
Put (E.Motion.Is_Hint);
Put (", same_screen=");
Put (E.Motion.Same_Screen);
New_Line;
end Do_Motionnotify;