|
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: 12288 (0x3000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Menus, seg_021fd0
└─⟦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;
package Menus is
Nomark : constant := 0;
Mdrawmsg : constant := 0;
Mchoosemsg : constant := 1;
Msizemsg : constant := 2;
Textmenuproc : constant := 0;
Hmenucmd : constant := 27;
Hiermenu : constant := -1;
Mpopupmsg : constant := 3;
Mctallitems : constant := -98;
Mctlastidindic : constant := -99;
type Menuinfo is
record
Menuid : Mac_Types.Integer;
Menuwidth : Mac_Types.Integer;
Menuheight : Mac_Types.Integer;
Menuproc : Handle;
Enableflags : Longint;
Menudata : Str255;
end record;
type Menuptr is access Menuinfo;
type Menuhandle is access Menuptr;
type Mcentry is
record
Mctid : Mac_Types.Integer;
Mctitem : Mac_Types.Integer;
Mctrgb1 : Quickdraw.Rgbcolor;
Mctrgb2 : Quickdraw.Rgbcolor;
Mctrgb3 : Quickdraw.Rgbcolor;
Mctrgb4 : Quickdraw.Rgbcolor;
Mctreserved : Mac_Types.Integer;
end record;
type Mcentryptr is access Mcentry;
type Mctable is array (0 .. 0) of Mcentry;
type Mctableptr is access Mctable;
type Mctablehandle is access Mctableptr;
procedure Initmenus;
pragma Interface (Mpwpascal, Initmenus, "16#A930#");
function Newmenu (Menuid : Mac_Types.Integer; Menutitle : Str255)
return Menuhandle;
pragma Interface (Mpwpascal, Newmenu, "16#A931#");
function Getmenu (Resourceid : Mac_Types.Integer) return Menuhandle;
pragma Interface (Mpwpascal, Getmenu, "16#A9BF#");
procedure Disposemenu (Themenu : Menuhandle);
pragma Interface (Mpwpascal, Disposemenu, "16#A932#");
procedure Appendmenu (Menu : Menuhandle; Data : Str255);
pragma Interface (Mpwpascal, Appendmenu, "16#A933#");
procedure Addresmenu (Themenu : Menuhandle; Thetype : Restype);
pragma Interface (Mpwpascal, Addresmenu, "16#A94D#");
procedure Insertresmenu (Themenu : Menuhandle;
Thetype : Restype;
Afteritem : Mac_Types.Integer);
pragma Interface (Mpwpascal, Insertresmenu, "16#A951#");
procedure Insertmenu (Themenu : Menuhandle; Beforeid : Mac_Types.Integer);
pragma Interface (Mpwpascal, Insertmenu, "16#A935#");
procedure Drawmenubar;
pragma Interface (Mpwpascal, Drawmenubar, "16#A937#");
procedure Deletemenu (Menuid : Mac_Types.Integer);
pragma Interface (Mpwpascal, Deletemenu, "16#A936#");
procedure Clearmenubar;
pragma Interface (Mpwpascal, Clearmenubar, "16#A934#");
function Getnewmbar (Menubarid : Mac_Types.Integer) return Handle;
pragma Interface (Mpwpascal, Getnewmbar, "16#A9C0#");
function Getmenubar return Handle;
pragma Interface (Mpwpascal, Getmenubar, "16#A93B#");
procedure Setmenubar (Menulist : Handle);
pragma Interface (Mpwpascal, Setmenubar, "16#A93C#");
procedure Insmenuitem (Themenu : Menuhandle;
Itemstring : Str255;
Afteritem : Mac_Types.Integer);
pragma Interface (Mpwpascal, Insmenuitem, "16#A826#");
procedure Delmenuitem (Themenu : Menuhandle; Item : Mac_Types.Integer);
pragma Interface (Mpwpascal, Delmenuitem, "16#A952#");
function Menukey (Ch : Charword) return Longint;
pragma Interface (Mpwpascal, Menukey, "16#A93E#");
procedure Hilitemenu (Menuid : Mac_Types.Integer);
pragma Interface (Mpwpascal, Hilitemenu, "16#A938#");
procedure Setitem (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Itemstring : Str255);
pragma Interface (Mpwpascal, Setitem, "16#A947#");
procedure Getitem (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Itemstring : in out Str255);
pragma Interface (Mpwpascal, Getitem, "16#A946#");
procedure Disableitem (Themenu : Menuhandle; Item : Mac_Types.Integer);
pragma Interface (Mpwpascal, Disableitem, "16#A93A#");
procedure Enableitem (Themenu : Menuhandle; Item : Mac_Types.Integer);
pragma Interface (Mpwpascal, Enableitem, "16#A939#");
procedure Checkitem (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Checked : Boolean);
pragma Interface (Mpwpascal, Checkitem, "16#A945#");
procedure Setitemmark (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Markchar : Charword);
pragma Interface (Mpwpascal, Setitemmark, "16#A944#");
procedure Getitemmark (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Markchar : in out Charword);
pragma Interface (Mpwpascal, Getitemmark, "16#A943#");
procedure Setitemicon (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Icon : Byteword);
pragma Interface (Mpwpascal, Setitemicon, "16#A940#");
procedure Getitemicon (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Iconnum : in out Byteword);
pragma Interface (Mpwpascal, Getitemicon, "16#A93F#");
procedure Setitemstyle (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Chstyle : Quickdraw.Style);
pragma Interface (Mpwpascal, Setitemstyle, "16#A942#");
procedure Getitemstyle (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Chstyle : in out Quickdraw.Style);
pragma Interface (Mpwpascal, Getitemstyle, "GETITEMSTYLE");
procedure Calcmenusize (Themenu : Menuhandle);
pragma Interface (Mpwpascal, Calcmenusize, "16#A948#");
function Countmitems (Themenu : Menuhandle) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Countmitems, "16#A950#");
function Getmhandle (Menuid : Mac_Types.Integer) return Menuhandle;
pragma Interface (Mpwpascal, Getmhandle, "16#A949#");
procedure Flashmenubar (Menuid : Mac_Types.Integer);
pragma Interface (Mpwpascal, Flashmenubar, "16#A94C#");
procedure Setmenuflash (Count : Mac_Types.Integer);
pragma Interface (Mpwpascal, Setmenuflash, "16#A94A#");
function Menuselect (Startpt : Point) return Longint;
pragma Interface (Mpwpascal, Menuselect, "16#A93D#");
procedure Initprocmenu (Resid : Mac_Types.Integer);
pragma Interface (Mpwpascal, Initprocmenu, "16#A808#");
procedure Getitemcmd (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Cmdchar : in out Charword);
pragma Interface (Mpwpascal, Getitemcmd, "16#A84E#");
procedure Setitemcmd (Themenu : Menuhandle;
Item : Mac_Types.Integer;
Cmdchar : Charword);
pragma Interface (Mpwpascal, Setitemcmd, "16#A84F#");
function Popupmenuselect (Menu : Menuhandle;
Top : Mac_Types.Integer;
Left : Mac_Types.Integer;
Popupitem : Mac_Types.Integer) return Longint;
pragma Interface (Mpwpascal, Popupmenuselect, "16#A80B#");
function Menuchoice return Longint;
pragma Interface (Mpwpascal, Menuchoice, "16#AA66#");
procedure Delmcentries (Menuid : Mac_Types.Integer;
Menuitem : Mac_Types.Integer);
pragma Interface (Mpwpascal, Delmcentries, "16#AA60#");
function Getmcinfo return Mctablehandle;
pragma Interface (Mpwpascal, Getmcinfo, "16#AA61#");
procedure Setmcinfo (Menuctbl : Mctablehandle);
pragma Interface (Mpwpascal, Setmcinfo, "16#AA62#");
procedure Dispmcinfo (Menuctbl : Mctablehandle);
pragma Interface (Mpwpascal, Dispmcinfo, "16#AA63#");
function Getmcentry
(Menuid : Mac_Types.Integer; Menuitem : Mac_Types.Integer)
return Mcentryptr;
pragma Interface (Mpwpascal, Getmcentry, "16#AA64#");
procedure Setmcentries (Numentries : Mac_Types.Integer;
Menucentries : Mctableptr);
pragma Interface (Mpwpascal, Setmcentries, "16#AA65#");
generic
with procedure Routine (Message : Mac_Types.Integer;
Themenu : Menuhandle;
Menurect : Rect;
Hitpt : Point;
Whichitem : Varinteger);
procedure Usermenuroutine;
generic
with function Routine (Selector : Mac_Types.Integer;
Message : Mac_Types.Integer;
Parameter1 : Mac_Types.Integer;
Parameter2 : Longint) return Longint;
procedure Usermenubarroutine;
end Menus;
nblk1=b
nid=6
hdr6=14
[0x00] rec0=23 rec1=00 rec2=01 rec3=02e
[0x01] rec0=1a rec1=00 rec2=02 rec3=044
[0x02] rec0=19 rec1=00 rec2=03 rec3=046
[0x03] rec0=19 rec1=00 rec2=04 rec3=03a
[0x04] rec0=17 rec1=00 rec2=05 rec3=01c
[0x05] rec0=15 rec1=00 rec2=0b rec3=07a
[0x06] rec0=19 rec1=00 rec2=07 rec3=022
[0x07] rec0=16 rec1=00 rec2=08 rec3=064
[0x08] rec0=1a rec1=00 rec2=09 rec3=052
[0x09] rec0=09 rec1=00 rec2=0a rec3=000
[0x0a] rec0=2c rec1=00 rec2=00 rec3=010
tail 0x2171dcbd283906e006132 0x42a00088462060003
Free Block Chain:
0x6: 0000 00 00 03 fc 80 29 20 20 20 20 20 20 20 20 20 20 ┆ ) ┆