DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T V

⟦cae866534⟧ TextFile

    Length: 8000 (0x1f40)
    Types: TextFile
    Names: »V«

Derivation

└─⟦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⟧ 

TextFile

--      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;