|
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: 781 (0x30d)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
with Graphic_Object, Easy_X, Object;
procedure Test_Graphic is
use Easy_X.Arithmetic;
X : Integer := 400;
Y : Integer := 400;
A : Integer := 10;
H : Integer := 50;
I : Integer := 1;
Obje : Object.Reference := Object.Void_Reference;
Stylo : Object.Reference;
Tonx : Object.Message;
begin
Graphic_Object.Open ("asperule");
Graphic_Object.Move (X, Y);
loop
case Easy_X.Next_Event is
when Easy_X.Update =>
Obje := Object.Send (Stylo, Tonx);
when Easy_X.Button_Down =>
exit;
when Easy_X.Button_Up =>
null;
end case;
end loop;
Graphic_Object.Close;
exception
when others =>
Graphic_Object.Close;
end Test_Graphic;