mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-09 02:29:27 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
38 lines
898 B
OpenEdge ABL
38 lines
898 B
OpenEdge ABL
{
|
|
File: AEInteract.p
|
|
|
|
Copyright: © 1990-1991 by Apple Computer, Inc., all rights reserved.
|
|
|
|
This file is used in these builds: BigBang
|
|
|
|
Change History (most recent first):
|
|
|
|
<2> 5/21/91 gbm Stop using the "empty" units (MemTypes, etc...)
|
|
<1> 12/13/90 Lai first checked in
|
|
|
|
To Do:
|
|
}
|
|
|
|
UNIT AEInteract;
|
|
|
|
INTERFACE
|
|
|
|
USES
|
|
Types, Memory, Resources,
|
|
AppleEvents, AEHashTable, AEUtil, AEDFWrapper, AEDF;
|
|
|
|
FUNCTION AE_InteractWithUser(timeOutInTicks: LONGINT; { how long are you willing to wait }
|
|
nmReqPtr: NMRecPtr; { your own custom notification }
|
|
idleProc: IdleProcPtr { your own idle procedure }
|
|
): OSErr; { return the error }
|
|
|
|
|
|
FUNCTION AE_ResetTimer(VAR reply:AppleEvent): OSErr;{ VAR is for efficiency only }
|
|
{ Convience routine. Create and send a 'wait' message for the }
|
|
{ current reply. }
|
|
|
|
IMPLEMENTATION
|
|
|
|
{$I AEInteract.inc1.p}
|
|
|
|
END. { AEMisc } |