|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 15360 (0x3c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Windows, seg_021ff7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
-- 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;
nblk1=e
nid=0
hdr6=1c
[0x00] rec0=23 rec1=00 rec2=01 rec3=036
[0x01] rec0=21 rec1=00 rec2=02 rec3=01a
[0x02] rec0=1d rec1=00 rec2=03 rec3=056
[0x03] rec0=1c rec1=00 rec2=04 rec3=01c
[0x04] rec0=19 rec1=00 rec2=05 rec3=046
[0x05] rec0=17 rec1=00 rec2=06 rec3=028
[0x06] rec0=16 rec1=00 rec2=07 rec3=052
[0x07] rec0=19 rec1=00 rec2=08 rec3=056
[0x08] rec0=17 rec1=00 rec2=09 rec3=02c
[0x09] rec0=19 rec1=00 rec2=0a rec3=020
[0x0a] rec0=15 rec1=00 rec2=0b rec3=064
[0x0b] rec0=17 rec1=00 rec2=0c rec3=010
[0x0c] rec0=16 rec1=00 rec2=0d rec3=04c
[0x0d] rec0=15 rec1=00 rec2=0e rec3=000
tail 0x2171dcdec83906e63438f 0x42a00088462060003