|
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 - metrics - downloadIndex: B T
Length: 1047 (0x417)
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_Selectionrequest (E : X_Selection_Request_Event) is
use Text_Io;
use S_Long_Io;
Sname : constant String :=
To_String (X_Get_Atom_Name (Dpy, E.Selection_Request.Selection));
Tname : constant String :=
To_String (X_Get_Atom_Name (Dpy, E.Selection_Request.Target));
Pname : constant String :=
To_String (X_Get_Atom_Name (Dpy, E.Selection_Request.Property));
begin
Put (" owner=");
Put (E.Selection_Request.Owner);
Put (", requestor=");
Put (E.Selection_Request.Requestor);
Put (", selection=");
Put (E.Selection_Request.Selection);
Put (" (");
Put (Sname);
Put ("),");
New_Line;
Put (" target=");
Put (E.Selection_Request.Target);
Put (" (");
Put (Tname);
Put ("), property=");
Put (E.Selection_Request.Property);
Put (" (");
Put (Pname);
Put ("), time=");
Put (E.Selection_Request.Time);
New_Line;
end Do_Selectionrequest;