|
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: 8000 (0x1f40)
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⟧
-- Copyright (c) 1990 Meridian Software Systems, Inc. --
with Mac_Types;
use Mac_Types;
with Quickdraw;
with Controls;
package Lists is
Ldovautoscroll : constant := 2;
Ldohautoscroll : constant := 1;
Lonlyone : constant := -128;
Lextenddrag : constant := 64;
Lnodisjoint : constant := 32;
Lnoextend : constant := 16;
Lnorect : constant := 8;
Lusesense : constant := 4;
Lnonilhilite : constant := 2;
Linitmsg : constant := 0;
Ldrawmsg : constant := 1;
Lhilitemsg : constant := 2;
Lclosemsg : constant := 3;
subtype Cell is Point;
type Varcell is access Cell;
type Dataarray is array (0 .. 32000) of Char;
type Dataptr is access Dataarray;
type Datahandle is access Dataptr;
type Array1_1integer is array (1 .. 1) of Mac_Types.Integer;
type Listrec is
record
Rview : Rect;
Port : Quickdraw.Grafptr;
Indent : Point;
Cellsize : Point;
Visible : Rect;
Vscroll : Controls.Controlhandle;
Hscroll : Controls.Controlhandle;
Selflags : Signedbyte;
Lactive : Boolean;
Lreserved : Signedbyte;
Listflags : Signedbyte;
Cliktime : Longint;
Clikloc : Point;
Mouseloc : Point;
Lclikloop : Procptr;
Lastclick : Cell;
Refcon : Longint;
Listdefproc : Handle;
Userhandle : Handle;
Databounds : Rect;
Cells : Datahandle;
Maxindex : Mac_Types.Integer;
Cellarray : Array1_1integer;
end record;
type Listptr is access Listrec;
type Listhandle is access Listptr;
function Lnew (Rview : Rect;
Databounds : Rect;
Csize : Point;
Theproc : Mac_Types.Integer;
Thewindow : Quickdraw.Windowptr;
Drawit : Boolean;
Hasgrow : Boolean;
Scrollhoriz : Boolean;
Scrollvert : Boolean) return Listhandle;
pragma Interface (Mpwpascal, Lnew, "16#3F3C#,16#0044#,16#A9E7#");
procedure Ldispose (Lhandle : Listhandle);
pragma Interface (Mpwpascal, Ldispose, "16#3F3C#,16#0028#,16#A9E7#");
function Laddcolumn (Count : Mac_Types.Integer;
Colnum : Mac_Types.Integer;
Lhandle : Listhandle) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Laddcolumn, "16#3F3C#,16#0004#,16#A9E7#");
function Laddrow (Count : Mac_Types.Integer;
Rownum : Mac_Types.Integer;
Lhandle : Listhandle) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Laddrow, "16#3F3C#,16#0008#,16#A9E7#");
procedure Ldelcolumn (Count : Mac_Types.Integer;
Colnum : Mac_Types.Integer;
Lhandle : Listhandle);
pragma Interface (Mpwpascal, Ldelcolumn, "16#3F3C#,16#0020#,16#A9E7#");
procedure Ldelrow (Count : Mac_Types.Integer;
Rownum : Mac_Types.Integer;
Lhandle : Listhandle);
pragma Interface (Mpwpascal, Ldelrow, "16#3F3C#,16#0024#,16#A9E7#");
function Lgetselect
(Next : Boolean; Thecell : Varcell; Lhandle : Listhandle)
return Boolean;
pragma Interface (Mpwpascal, Lgetselect, "16#3F3C#,16#003C#,16#A9E7#");
function Llastclick (Lhandle : Listhandle) return Cell;
pragma Interface (Mpwpascal, Llastclick, "16#3F3C#,16#0040#,16#A9E7#");
function Lnextcell (Hnext : Boolean;
Vnext : Boolean;
Thecell : Varcell;
Lhandle : Listhandle) return Boolean;
pragma Interface (Mpwpascal, Lnextcell, "16#3F3C#,16#0048#,16#A9E7#");
function Lsearch (Dataptr : Ptr;
Datalen : Mac_Types.Integer;
Searchproc : Procptr;
Thecell : Varcell;
Lhandle : Listhandle) return Boolean;
pragma Interface (Mpwpascal, Lsearch, "16#3F3C#,16#0054#,16#A9E7#");
procedure Lsize (Listwidth : Mac_Types.Integer;
Listheight : Mac_Types.Integer;
Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lsize, "16#3F3C#,16#0060#,16#A9E7#");
procedure Ldodraw (Drawit : Boolean; Lhandle : Listhandle);
pragma Interface (Mpwpascal, Ldodraw, "16#3F3C#,16#002C#,16#A9E7#");
procedure Lscroll (Dcols : Mac_Types.Integer;
Drows : Mac_Types.Integer;
Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lscroll, "16#3F3C#,16#0050#,16#A9E7#");
procedure Lautoscroll (Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lautoscroll, "16#3F3C#,16#0010#,16#A9E7#");
procedure Lupdate (Thergn : Quickdraw.Rgnhandle; Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lupdate, "16#3F3C#,16#0064#,16#A9E7#");
procedure Lactivate (Act : Boolean; Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lactivate, "16#3F3C#,16#0000#,16#A9E7#");
procedure Lcellsize (Csize : Point; Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lcellsize, "16#3F3C#,16#0014#,16#A9E7#");
function Lclick (Pt : Point;
Modifiers : Mac_Types.Integer;
Lhandle : Listhandle) return Boolean;
pragma Interface (Mpwpascal, Lclick, "16#3F3C#,16#0018#,16#A9E7#");
procedure Laddtocell (Dataptr : Ptr;
Datalen : Mac_Types.Integer;
Thecell : Cell;
Lhandle : Listhandle);
pragma Interface (Mpwpascal, Laddtocell, "16#3F3C#,16#000C#,16#A9E7#");
procedure Lclrcell (Thecell : Cell; Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lclrcell, "16#3F3C#,16#001C#,16#A9E7#");
procedure Lgetcell (Dataptr : Ptr;
Datalen : in out Mac_Types.Integer;
Thecell : Cell;
Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lgetcell, "16#3F3C#,16#0038#,16#A9E7#");
procedure Lfind (Offset : in out Mac_Types.Integer;
Len : in out Mac_Types.Integer;
Thecell : Cell;
Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lfind, "16#3F3C#,16#0034#,16#A9E7#");
procedure Lrect
(Cellrect : in out Rect; Thecell : Cell; Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lrect, "16#3F3C#,16#004C#,16#A9E7#");
procedure Lsetcell (Dataptr : Ptr;
Datalen : Mac_Types.Integer;
Thecell : Cell;
Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lsetcell, "16#3F3C#,16#0058#,16#A9E7#");
procedure Lsetselect
(Setit : Boolean; Thecell : Cell; Lhandle : Listhandle);
pragma Interface (Mpwpascal, Lsetselect, "16#3F3C#,16#005C#,16#A9E7#");
procedure Ldraw (Thecell : Cell; Lhandle : Listhandle);
pragma Interface (Mpwpascal, Ldraw, "16#3F3C#,16#0030#,16#A9E7#");
generic
with function Routine return Boolean;
procedure Userclickroutine;
generic
with function Routine
(Aptr : Ptr;
Bptr : Ptr;
Alen : Mac_Types.Integer;
Blen : Mac_Types.Integer) return Mac_Types.Integer;
procedure Usersearchroutine;
generic
with procedure Routine (Lmessage : Mac_Types.Integer;
Lselect : Boolean;
Lrect : Rect;
Lcell : Cell;
Ldataoffset : Mac_Types.Integer;
Ldatalen : Mac_Types.Integer;
Lhandle : Listhandle);
procedure Userlistroutine;
end Lists;