DataMuseum.dk

top - download

    Length: 3369 (0xd29)
    Types: TextFile
    Names: »V«

└─⟦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 Events is

    Nullevent : constant := 0;
    Mousedown : constant := 1;
    Mouseup : constant := 2;
    Keydown : constant := 3;
    Keyup : constant := 4;
    Autokey : constant := 5;
    Updateevt : constant := 6;
    Diskevt : constant := 7;
    Activateevt : constant := 8;
    Networkevt : constant := 10;
    Driverevt : constant := 11;
    App1evt : constant := 12;
    App2evt : constant := 13;
    App3evt : constant := 14;
    App4evt : constant := 15;
    Charcodemask : constant := 16#000000FF#;
    Keycodemask : constant := 16#0000FF00#;
    Adbaddrmask : constant := 16#00FF0000#;
    Mousemovedmessage : constant := 16#FA#;
    Childdiedmessage : constant := 16#FD#;
    Suspendresumemessage : constant := 16#01#;
    Mdownmask : constant := 2;
    Mupmask : constant := 4;
    Keydownmask : constant := 8;
    Keyupmask : constant := 16;
    Autokeymask : constant := 32;
    Updatemask : constant := 64;
    Diskmask : constant := 128;
    Activmask : constant := 256;
    Networkmask : constant := 1024;
    Drivermask : constant := 2048;
    App1mask : constant := 4096;
    App2mask : constant := 8192;
    App3mask : constant := 16384;
    App4mask : constant := -32768;
    Everyevent : constant := -1;
    Activeflag : constant := 1;
    Btnstate : constant := 128;
    Cmdkey : constant := 256;
    Shiftkey : constant := 512;
    Alphalock : constant := 1024;
    Optionkey : constant := 2048;
    Controlkey : constant := 4096;

    type Eventrecord is
        record
            What : Mac_Types.Integer;
            Message : Longint;
            Erwhen : Longint;
            Where : Point;
            Modifiers : Mac_Types.Integer;
        end record;

    type Keymap is array (0 .. 127) of Boolean;
    pragma Pack (Keymap);

    function Getnextevent
                (Eventmask : Mac_Types.Integer; Theevent : Eventrecord)
                return Boolean;
    pragma Interface (Mpwpascal, Getnextevent, "16#A970#");

    function Waitnextevent (Mask : Mac_Types.Integer;
                            Event : Eventrecord;
                            Sleep : Longint;
                            Mousergn : Quickdraw.Rgnhandle) return Boolean;
    pragma Interface (Mpwpascal, Waitnextevent, "16#A860#");

    function Eventavail (Eventmask : Mac_Types.Integer; Theevent : Eventrecord)
                        return Boolean;
    pragma Interface (Mpwpascal, Eventavail, "16#A971#");

    procedure Getmouse (Mouseloc : in out Point);
    pragma Interface (Mpwpascal, Getmouse, "16#A972#");

    function Button return Boolean;
    pragma Interface (Mpwpascal, Button, "16#A974#");

    function Stilldown return Boolean;
    pragma Interface (Mpwpascal, Stilldown, "16#A973#");

    function Waitmouseup return Boolean;
    pragma Interface (Mpwpascal, Waitmouseup, "16#A977#");

    procedure Getkeys (Thekeys : in out Keymap);
    pragma Interface (Mpwpascal, Getkeys, "16#A976#");

    function Tickcount return Longint;
    pragma Interface (Mpwpascal, Tickcount, "16#A975#");

    function Getdbltime return Longint;
    pragma Interface (Mpwpascal, Getdbltime, "16#2EB8#,16#02F0#");

    function Getcarettime return Longint;
    pragma Interface (Mpwpascal, Getcarettime, "16#2EB8#,16#02F4#");

end Events;