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 - metrics - download
Index: T V

⟦7d08b4028⟧ TextFile

    Length: 13166 (0x336e)
    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;
with Events;
package Windows is

    Documentproc : constant := 0;
    Dboxproc : constant := 1;
    Plaindbox : constant := 2;
    Altdboxproc : constant := 3;
    Nogrowdocproc : constant := 4;
    Zoomdocproc : constant := 8;
    Zoomnogrow : constant := 12;
    Rdocproc : constant := 16;
    Dialogkind : constant := 2;
    Userkind : constant := 8;
    Indesk : constant := 0;
    Inmenubar : constant := 1;
    Insyswindow : constant := 2;
    Incontent : constant := 3;
    Indrag : constant := 4;
    Ingrow : constant := 5;
    Ingoaway : constant := 6;
    Inzoomin : constant := 7;
    Inzoomout : constant := 8;
    Wdraw : constant := 0;
    Whit : constant := 1;
    Wcalcrgns : constant := 2;
    Wnew : constant := 3;
    Wdispose : constant := 4;
    Wgrow : constant := 5;
    Wdrawgicon : constant := 6;
    Wnohit : constant := 0;
    Wincontent : constant := 1;
    Windrag : constant := 2;
    Wingrow : constant := 3;
    Wingoaway : constant := 4;
    Winzoomin : constant := 5;
    Winzoomout : constant := 6;
    Deskpatid : constant := 16;
    Wcontentcolor : constant := 0;
    Wframecolor : constant := 1;
    Wtextcolor : constant := 2;
    Whilitecolor : constant := 3;
    Wtitlebarcolor : constant := 4;
    Noconstraint : constant := 0;
    Haxisonly : constant := 1;
    Vaxisonly : constant := 2;

    type Wstatedata is
        record
            Userstate : Rect;
            Stdstate : Rect;
        end record;

    type Auxwinrec;
    type Auxwinptr is access Auxwinrec;
    type Auxwinhndl is access Auxwinptr;
    type Varauxwinhndl is access Auxwinhndl;
    type Auxwinrec is
        record
            Awnext : Auxwinhndl;
            Awowner : Quickdraw.Windowptr;
            Awctable : Quickdraw.Ctabhandle;
            Dialogcitem : Handle;
            Awflags : Longint;
            Awreserved : Quickdraw.Ctabhandle;
            Awrefcon : Longint;
        end record;

    type Array0_4colorspec is array (0 .. 4) of Quickdraw.Colorspec;
    type Winctab is
        record
            Wcseed : Longint;
            Wcreserved : Mac_Types.Integer;
            Ctsize : Mac_Types.Integer;
            Cttable : Array0_4colorspec;
        end record;
    type Wctabptr is access Winctab;
    type Wctabhandle is access Wctabptr;

    type Windowrecord;
    type Windowpeek is access Windowrecord;
    type Windowrecord is
        record
            Port : Quickdraw.Grafport;
            Windowkind : Mac_Types.Integer;
            Visible : Boolean;
            Hilited : Boolean;
            Goawayflag : Boolean;
            Spareflag : Boolean;
            Strucrgn : Quickdraw.Rgnhandle;
            Contrgn : Quickdraw.Rgnhandle;
            Updatergn : Quickdraw.Rgnhandle;
            Windowdefproc : Handle;
            Datahandle : Handle;
            Titlehandle : Stringhandle;
            Titlewidth : Mac_Types.Integer;
            Controllist : Controls.Controlhandle;
            Nextwindow : Windowpeek;
            Windowpic : Quickdraw.Pichandle;
            Refcon : Longint;
        end record;

    type Cwindowrecord;
    type Cwindowpeek is access Cwindowrecord;
    type Cwindowrecord is
        record
            Port : Quickdraw.Cgrafport;
            Windowkind : Mac_Types.Integer;
            Visible : Boolean;
            Hilited : Boolean;
            Goawayflag : Boolean;
            Spareflag : Boolean;
            Strucrgn : Quickdraw.Rgnhandle;
            Contrgn : Quickdraw.Rgnhandle;
            Updatergn : Quickdraw.Rgnhandle;
            Windowdefproc : Handle;
            Datahandle : Handle;
            Titlehandle : Stringhandle;
            Titlewidth : Mac_Types.Integer;
            Controllist : Controls.Controlhandle;
            Nextwindow : Cwindowpeek;
            Windowpic : Quickdraw.Pichandle;
            Refcon : Longint;
        end record;

    procedure Initwindows;
    pragma Interface (Mpwpascal, Initwindows, "16#A912#");

    procedure Getwmgrport (Wport : in out Quickdraw.Grafptr);
    pragma Interface (Mpwpascal, Getwmgrport, "16#A910#");

    function Newwindow (Wstorage : Ptr;
                        Boundsrect : Rect;
                        Title : Str255;
                        Visible : Boolean;
                        Theproc : Mac_Types.Integer;
                        Behind : Quickdraw.Windowptr;
                        Goawayflag : Boolean;
                        Refcon : Longint) return Quickdraw.Windowptr;
    pragma Interface (Mpwpascal, Newwindow, "16#A913#");

    function Getnewwindow
                (Windowid : Mac_Types.Integer;
                 Wstorage : Ptr;
                 Behind : Quickdraw.Windowptr) return Quickdraw.Windowptr;
    pragma Interface (Mpwpascal, Getnewwindow, "16#A9BD#");

    procedure Closewindow (Thewindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Closewindow, "16#A92D#");

    procedure Disposewindow (Thewindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Disposewindow, "16#A914#");

    procedure Getwtitle (Thewindow : Quickdraw.Windowptr;
                         Title : in out Str255);
    pragma Interface (Mpwpascal, Getwtitle, "16#A919#");

    procedure Selectwindow (Thewindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Selectwindow, "16#A91F#");

    procedure Hidewindow (Thewindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Hidewindow, "16#A916#");

    procedure Showwindow (Thewindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Showwindow, "16#A915#");

    procedure Showhide (Thewindow : Quickdraw.Windowptr; Showflag : Boolean);
    pragma Interface (Mpwpascal, Showhide, "16#A908#");

    procedure Hilitewindow (Thewindow : Quickdraw.Windowptr; Fhilite : Boolean);
    pragma Interface (Mpwpascal, Hilitewindow, "16#A91C#");

    procedure Bringtofront (Thewindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Bringtofront, "16#A920#");

    procedure Sendbehind (Thewindow : Quickdraw.Windowptr;
                          Behindwindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Sendbehind, "16#A921#");

    function Frontwindow return Quickdraw.Windowptr;
    pragma Interface (Mpwpascal, Frontwindow, "16#A924#");

    procedure Drawgrowicon (Thewindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Drawgrowicon, "16#A904#");

    procedure Movewindow (Thewindow : Quickdraw.Windowptr;
                          Hglobal : Mac_Types.Integer;
                          Vglobal : Mac_Types.Integer;
                          Front : Boolean);
    pragma Interface (Mpwpascal, Movewindow, "16#A91B#");

    procedure Sizewindow (Thewindow : Quickdraw.Windowptr;
                          W : Mac_Types.Integer;
                          H : Mac_Types.Integer;
                          Fupdate : Boolean);
    pragma Interface (Mpwpascal, Sizewindow, "16#A91D#");

    procedure Zoomwindow (Thewindow : Quickdraw.Windowptr;
                          Partcode : Mac_Types.Integer;
                          Front : Boolean);
    pragma Interface (Mpwpascal, Zoomwindow, "16#A83A#");

    procedure Invalrect (Badrect : Rect);
    pragma Interface (Mpwpascal, Invalrect, "16#A928#");

    procedure Invalrgn (Badrgn : Quickdraw.Rgnhandle);
    pragma Interface (Mpwpascal, Invalrgn, "16#A927#");

    procedure Validrect (Goodrect : Rect);
    pragma Interface (Mpwpascal, Validrect, "16#A92A#");

    procedure Validrgn (Goodrgn : Quickdraw.Rgnhandle);
    pragma Interface (Mpwpascal, Validrgn, "16#A929#");

    procedure Beginupdate (Thewindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Beginupdate, "16#A922#");

    procedure Endupdate (Thewindow : Quickdraw.Windowptr);
    pragma Interface (Mpwpascal, Endupdate, "16#A923#");

    procedure Setwrefcon (Thewindow : Quickdraw.Windowptr; Data : Longint);
    pragma Interface (Mpwpascal, Setwrefcon, "16#A918#");

    function Getwrefcon (Thewindow : Quickdraw.Windowptr) return Longint;
    pragma Interface (Mpwpascal, Getwrefcon, "16#A917#");

    procedure Setwindowpic (Thewindow : Quickdraw.Windowptr;
                            Pic : Quickdraw.Pichandle);
    pragma Interface (Mpwpascal, Setwindowpic, "16#A92E#");

    function Getwindowpic (Thewindow : Quickdraw.Windowptr)
                          return Quickdraw.Pichandle;
    pragma Interface (Mpwpascal, Getwindowpic, "16#A92F#");

    function Checkupdate (Theevent : Events.Eventrecord) return Boolean;
    pragma Interface (Mpwpascal, Checkupdate, "16#A911#");

    procedure Clipabove (Window : Windowpeek);
    pragma Interface (Mpwpascal, Clipabove, "16#A90B#");

    procedure Saveold (Window : Windowpeek);
    pragma Interface (Mpwpascal, Saveold, "16#A90E#");

    procedure Drawnew (Window : Windowpeek; Update : Boolean);
    pragma Interface (Mpwpascal, Drawnew, "16#A90F#");

    procedure Paintone (Window : Windowpeek;
                        Clobberedrgn : Quickdraw.Rgnhandle);
    pragma Interface (Mpwpascal, Paintone, "16#A90C#");

    procedure Paintbehind (Startwindow : Windowpeek;
                           Clobberedrgn : Quickdraw.Rgnhandle);
    pragma Interface (Mpwpascal, Paintbehind, "16#A90D#");

    procedure Calcvis (Window : Windowpeek);
    pragma Interface (Mpwpascal, Calcvis, "16#A909#");

    procedure Calcvisbehind (Startwindow : Windowpeek;
                             Clobberedrgn : Quickdraw.Rgnhandle);
    pragma Interface (Mpwpascal, Calcvisbehind, "16#A90A#");

    function Growwindow
                (Thewindow : Quickdraw.Windowptr; Startpt : Point; Bbox : Rect)
                return Longint;
    pragma Interface (Mpwpascal, Growwindow, "16#A92B#");

    function Findwindow (Thepoint : Point; Thewindow : Quickdraw.Varwindowptr)
                        return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Findwindow, "16#A92C#");

    function Pinrect (Therect : Rect; Thept : Point) return Longint;
    pragma Interface (Mpwpascal, Pinrect, "16#A94E#");

    function Draggrayrgn (Thergn : Quickdraw.Rgnhandle;
                          Startpt : Point;
                          Boundsrect : Rect;
                          Sloprect : Rect;
                          Axis : Mac_Types.Integer;
                          Actionproc : Procptr) return Longint;
    pragma Interface (Mpwpascal, Draggrayrgn, "16#A905#");

    function Trackbox (Thewindow : Quickdraw.Windowptr;
                       Thept : Point;
                       Partcode : Mac_Types.Integer) return Boolean;
    pragma Interface (Mpwpascal, Trackbox, "16#A83B#");

    procedure Getcwmgrport (Wmgrcport : in out Quickdraw.Cgrafptr);
    pragma Interface (Mpwpascal, Getcwmgrport, "16#AA48#");

    procedure Setwincolor (Thewindow : Quickdraw.Windowptr;
                           Newcolortable : Wctabhandle);
    pragma Interface (Mpwpascal, Setwincolor, "16#AA41#");

    function Getauxwin (Thewindow : Quickdraw.Windowptr; Awhndl : Varauxwinhndl)
                       return Boolean;
    pragma Interface (Mpwpascal, Getauxwin, "16#AA42#");

    procedure Setdeskcpat (Deskpixpat : Quickdraw.Pixpathandle);
    pragma Interface (Mpwpascal, Setdeskcpat, "16#AA47#");

    function Newcwindow (Wstorage : Ptr;
                         Boundsrect : Rect;
                         Title : Str255;
                         Visible : Boolean;
                         Procid : Mac_Types.Integer;
                         Behind : Quickdraw.Windowptr;
                         Goawayflag : Boolean;
                         Refcon : Longint) return Quickdraw.Windowptr;
    pragma Interface (Mpwpascal, Newcwindow, "16#AA45#");

    function Getnewcwindow
                (Windowid : Mac_Types.Integer;
                 Wstorage : Ptr;
                 Behind : Quickdraw.Windowptr) return Quickdraw.Windowptr;
    pragma Interface (Mpwpascal, Getnewcwindow, "16#AA46#");

    function Getwvariant (Thewindow : Quickdraw.Windowptr)
                         return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Getwvariant, "16#A80A#");

    function Getgrayrgn return Quickdraw.Rgnhandle;
    pragma Interface (Mpwpascal, Getgrayrgn, "GETGRAYRGN");

    procedure Setwtitle (Thewindow : Quickdraw.Windowptr; Title : Str255);
    pragma Interface (Mpwpascal, Setwtitle, "16#A91A#");

    function Trackgoaway
                (Thewindow : Quickdraw.Windowptr; Thept : Point) return Boolean;
    pragma Interface (Mpwpascal, Trackgoaway, "16#A91E#");

    procedure Dragwindow (Thewindow : Quickdraw.Windowptr;
                          Startpt : Point;
                          Boundsrect : Rect);
    pragma Interface (Mpwpascal, Dragwindow, "16#A925#");

    generic
        with procedure Routine;
    procedure Userdragroutine;

    generic
        with function Routine (Varcode : Mac_Types.Integer;
                               Thewindow : Quickdraw.Windowptr;
                               Message : Mac_Types.Integer;
                               Data : Longint) return Longint;
    procedure Userwindowroutine;

end Windows;