mirror of
https://github.com/elliotnunn/supermario.git
synced 2025-02-20 10:28:57 +00:00
71 lines
1.4 KiB
OpenEdge ABL
71 lines
1.4 KiB
OpenEdge ABL
{
|
|
Created: Sunday, January 6, 1991 at 10:27 PM
|
|
Desk.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1985-1989
|
|
All rights reserved
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Desk;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingDesk}
|
|
{$SETC UsingDesk := 1}
|
|
|
|
{$I+}
|
|
{$SETC DeskIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingQuickdraw}
|
|
{$I $$Shell(PInterfaces)Quickdraw.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingEvents}
|
|
{$I $$Shell(PInterfaces)Events.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := DeskIncludes}
|
|
|
|
CONST
|
|
accEvent = 64;
|
|
accRun = 65;
|
|
accCursor = 66;
|
|
accMenu = 67;
|
|
accUndo = 68;
|
|
accCut = 70;
|
|
accCopy = 71;
|
|
accPaste = 72;
|
|
accClear = 73;
|
|
goodbye = -1; {goodbye message}
|
|
|
|
FUNCTION OpenDeskAcc(deskAccName: Str255): INTEGER;
|
|
INLINE $A9B6;
|
|
PROCEDURE CloseDeskAcc(refNum: INTEGER);
|
|
INLINE $A9B7;
|
|
PROCEDURE SystemClick(theEvent: EventRecord;theWindow: WindowPtr);
|
|
INLINE $A9B3;
|
|
FUNCTION SystemEdit(editCmd: INTEGER): BOOLEAN;
|
|
INLINE $A9C2;
|
|
PROCEDURE SystemTask;
|
|
INLINE $A9B4;
|
|
FUNCTION SystemEvent(theEvent: EventRecord): BOOLEAN;
|
|
INLINE $A9B2;
|
|
PROCEDURE SystemMenu(menuResult: LONGINT);
|
|
INLINE $A9B5;
|
|
|
|
|
|
{$ENDC} { UsingDesk }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|