|
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: ┃ T V ┃
Length: 935 (0x3a7)
Types: TextFile
Names: »V«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with System;
package Ihm is
subtype Window_Id is Integer;
package Window is
function Name (Wid : Window_Id) return String;
function Open (Name : String) return Window_Id;
procedure Close (Wid : Window_Id);
procedure Put_Field (Wid : Window_Id; Field : String; Value : String);
procedure Display_Field
(Wid : Window_Id; Field : String; Value : String);
function Nb_Wid return Window_Id;
end Window;
package Event is
type Kind is (Pushbutton, Fieldenter, Putfield, Unknown);
function Get_Event (Wid : Window_Id) return Kind;
function Get_Field (Wid : Window_Id) return String;
function Get_Value (Wid : Window_Id) return String;
procedure Next (Wid : Window_Id);
function Empty (Wid : Window_Id) return Boolean;
end Event;
package Xt is
procedure Process_Event;
end Xt;
end Ihm;