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 ┃

⟦91b232b86⟧ TextFile

    Length: 8957 (0x22fd)
    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;
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;