|
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: 936 (0x3a8)
Types: TextFile
Names: »B«
└─⟦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 Text_Io;
with Local_Frames;
with Xt_Interface;
with Library_Ed;
-- with Event;
-- with Frame;
-- with Frameg;
-- with Xtinterface;
with Frame_Editor;
with Process_Events_State;
procedure Editor_Instance is
Main_Lf : constant Local_Frames.Local_Frame :=
Local_Frames.Get_Id ("Main_window");
package Lib_Ed is new Library_Ed (Editor_Lf => Main_Lf);
package Lib_Editor is
new Frame_Editor (Frame_Lf => Main_Lf,
Init_Sub_Editor => Lib_Ed.Init,
Process_Sub_Events => Lib_Ed.Process_Events);
Result_State : Process_Events_State.Elements;
begin
Lib_Editor.Init;
loop
Xt_Interface.Next_Event;
Xt_Interface.Dispatch_Event;
Result_State := Lib_Editor.Process_Events;
exit when Process_Events_State."="
(Result_State, Process_Events_State.Quit);
end loop;
end Editor_Instance;
pragma Main;