|
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: 968 (0x3c8)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
with Object;
with Graphic_Object;
package Pen_Class is
type Pen is private;
function Send (To_Object : Object.Reference; The_Message : Object.Message)
return Object.Reference;
function Send (To_Object : Object.Reference;
The_Argument : Object.Parameters.List)
return Object.Reference;
function Send (To_Object : Object.Reference; The_Message : Object.Message)
return String;
private
subtype Index is Integer range 0 .. 99;
type Pen is
record
X : Integer := 0;
Y : Integer := 0;
Font : Graphic_Object.Font := Graphic_Object.Small_Font;
end record;
type Pen_Table is array (Index range <>) of Pen;
subtype Iterator is Index;
type Collection is
record
Table : Pen_Table (Index);
Iter : Iterator := 0;
end record;
Pen_Collection : Collection;
end Pen_Class;