mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2026-01-23 04:16:18 +00:00
139 lines
2.8 KiB
OpenEdge ABL
139 lines
2.8 KiB
OpenEdge ABL
|
|
{
|
|
Created: Sunday, September 15, 1991 at 10:40 PM
|
|
Events.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1985-1991
|
|
All rights reserved
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Events;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingEvents}
|
|
{$SETC UsingEvents := 1}
|
|
|
|
{$I+}
|
|
{$SETC EventsIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingQuickdraw}
|
|
{$I $$Shell(PInterfaces)Quickdraw.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := EventsIncludes}
|
|
|
|
CONST
|
|
nullEvent = 0;
|
|
mouseDown = 1;
|
|
mouseUp = 2;
|
|
keyDown = 3;
|
|
keyUp = 4;
|
|
autoKey = 5;
|
|
updateEvt = 6;
|
|
diskEvt = 7;
|
|
activateEvt = 8;
|
|
osEvt = 15;
|
|
|
|
{ event mask equates }
|
|
mDownMask = 2;
|
|
mUpMask = 4;
|
|
keyDownMask = 8;
|
|
keyUpMask = 16;
|
|
autoKeyMask = 32;
|
|
updateMask = 64;
|
|
diskMask = 128;
|
|
activMask = 256;
|
|
highLevelEventMask = 1024;
|
|
osMask = -32768;
|
|
everyEvent = -1;
|
|
|
|
{ event message equates }
|
|
charCodeMask = $000000FF;
|
|
keyCodeMask = $0000FF00;
|
|
adbAddrMask = $00FF0000;
|
|
osEvtMessageMask = $FF000000;
|
|
|
|
{ OS event messages. Event (sub)code is in the high byte of the message field. }
|
|
mouseMovedMessage = $FA;
|
|
suspendResumeMessage = $01;
|
|
|
|
resumeFlag = 1; { Bit 0 of message indicates resume vs suspend }
|
|
convertClipboardFlag = 2; { Bit 1 in resume message indicates clipboard change }
|
|
|
|
{ modifiers }
|
|
activeFlag = 1; { Bit 0 of modifiers for activateEvt and mouseDown events }
|
|
btnState = 128; { Bit 7 of low byte is mouse button state }
|
|
cmdKey = 256; { Bit 0 }
|
|
shiftKey = 512; { Bit 1 }
|
|
alphaLock = 1024; { Bit 2 }
|
|
optionKey = 2048; { Bit 3 of high byte }
|
|
controlKey = 4096;
|
|
|
|
{ obsolete equates }
|
|
networkEvt = 10;
|
|
driverEvt = 11;
|
|
app1Evt = 12;
|
|
app2Evt = 13;
|
|
app3Evt = 14;
|
|
app4Evt = 15;
|
|
networkMask = 1024;
|
|
driverMask = 2048;
|
|
app1Mask = 4096;
|
|
app2Mask = 8192;
|
|
app3Mask = 16384;
|
|
app4Mask = -32768;
|
|
|
|
TYPE
|
|
EventRecord = RECORD
|
|
what: INTEGER;
|
|
message: LONGINT;
|
|
when: LONGINT;
|
|
where: Point;
|
|
modifiers: INTEGER;
|
|
END;
|
|
|
|
|
|
KeyMap = PACKED ARRAY [0..127] OF BOOLEAN;
|
|
|
|
FUNCTION GetNextEvent(eventMask: INTEGER;VAR theEvent: EventRecord): BOOLEAN;
|
|
INLINE $A970;
|
|
FUNCTION WaitNextEvent(eventMask: INTEGER;VAR theEvent: EventRecord;sleep: LONGINT;
|
|
mouseRgn: RgnHandle): BOOLEAN;
|
|
INLINE $A860;
|
|
FUNCTION EventAvail(eventMask: INTEGER;VAR theEvent: EventRecord): BOOLEAN;
|
|
INLINE $A971;
|
|
PROCEDURE GetMouse(VAR mouseLoc: Point);
|
|
INLINE $A972;
|
|
FUNCTION Button: BOOLEAN;
|
|
INLINE $A974;
|
|
FUNCTION StillDown: BOOLEAN;
|
|
INLINE $A973;
|
|
FUNCTION WaitMouseUp: BOOLEAN;
|
|
INLINE $A977;
|
|
PROCEDURE GetKeys(VAR theKeys: KeyMap);
|
|
INLINE $A976;
|
|
FUNCTION TickCount: LONGINT;
|
|
INLINE $A975;
|
|
FUNCTION GetDblTime: LONGINT;
|
|
INLINE $2EB8,$02F0;
|
|
FUNCTION GetCaretTime: LONGINT;
|
|
INLINE $2EB8,$02F4;
|
|
|
|
|
|
{$ENDC} { UsingEvents }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|