|
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: 859 (0x35b)
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_Configurerequest (E : X_Configure_Request_Event) is
use Text_Io;
use S_Long_Io;
begin
Put (" parent=");
Put (E.Configure_Request.Parent);
Put (", window=");
Put (E.Configure_Request.Window);
Put (", x/y=(");
Put (E.Configure_Request.X);
Put (',');
Put (E.Configure_Request.Y);
Put ("), width=");
Put (E.Configure_Request.Width);
Put (", height=");
Put (E.Configure_Request.Height);
Put (',');
New_Line;
Put (" border_width=");
Put (E.Configure_Request.Border_Width);
Put (", above=");
Put (E.Configure_Request.Above);
Put (", detail=");
Put (E.Configure_Request.Stack_Mode);
Put (", value=");
Put (E.Configure_Request.Value_Mask);
New_Line;
end Do_Configurerequest;