Macintosh-Tools/Retro68
1
0
Fork 0
mirror of https://github.com/autc04/Retro68.git synced 2025-01-21 10:32:53 +00:00
Code Issues Projects Releases Wiki Activity

LaunchAPPLServer: handle AppleEvents

Browse Source
This commit is contained in:
Wolfgang Thaller 2018-05-05 23:59:38 +02:00
parent 106281041d
commit 672efae198
2 changed files with 46 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
LaunchAPPL/Server/LaunchAPPLServer.cc
View File

@ -396,6 +396,24 @@ void WritePrefs()
}
}
pascal OSErr aeRun (const AppleEvent *theAppleEvent, AppleEvent *reply, long handlerRefcon)
{
return noErr;
}
pascal OSErr aeOpen (const AppleEvent *theAppleEvent, AppleEvent *reply, long handlerRefcon)
{
return noErr;
}
pascal OSErr aePrint (const AppleEvent *theAppleEvent, AppleEvent *reply, long handlerRefcon)
{
return noErr;
}
pascal OSErr aeQuit (const AppleEvent *theAppleEvent, AppleEvent *reply, long handlerRefcon)
{
gQuitting = true;
return noErr;
}
int main()
{
// default stack size is 8KB on B&W macs
@ -411,20 +429,29 @@ int main()
InitMenus();
TEInit();
InitDialogs(NULL);
#endif
#if TARGET_CPU_68K && !TARGET_RT_MAC_CFM
short& ROM85 = *(short*) 0x028E;
Boolean is128KROM = (ROM85 > 0);
Boolean hasSysEnvirons = false;
Boolean hasWaitNextEvent = false;
Boolean hasAppleEvents = false;
if (is128KROM)
{
UniversalProcPtr trapUnimpl = GetToolTrapAddress(_Unimplemented);
UniversalProcPtr trapSysEnv = GetOSTrapAddress(_SysEnvirons);
UniversalProcPtr trapWaitNextEvent = GetToolTrapAddress(_WaitNextEvent);
UniversalProcPtr trapUnimpl = GetToolTrapAddress(_Unimplemented);
UniversalProcPtr trapAppleEvents = GetToolTrapAddress(_Pack8);
hasSysEnvirons = (trapSysEnv != trapUnimpl);
hasWaitNextEvent = (trapWaitNextEvent != trapUnimpl);
hasAppleEvents = (trapAppleEvents != trapUnimpl);
}
#else
const Boolean hasSysEnvirons = true;
const Boolean hasWaitNextEvent = true;
const Boolean hasAppleEvents = true;
#endif
SetMenuBar(GetNewMBar(128));
@ -433,6 +460,14 @@ int main()
InitCursor();
if(hasAppleEvents)
{
AEInstallEventHandler(kCoreEventClass, kAEOpenApplication, NewAEEventHandlerUPP(&aeRun), 0, false);
AEInstallEventHandler(kCoreEventClass, kAEOpenDocuments, NewAEEventHandlerUPP(&aeOpen), 0, false);
AEInstallEventHandler(kCoreEventClass, kAEPrintDocuments, NewAEEventHandlerUPP(&aePrint), 0, false);
AEInstallEventHandler(kCoreEventClass, kAEQuitApplication, NewAEEventHandlerUPP(&aeQuit), 0, false);
}
statusWindow = GetNewWindow(129, NULL, (WindowPtr) -1);
SetStatus(AppStatus::ready);
@ -523,6 +558,10 @@ int main()
case updateEvt:
DoUpdate((WindowRef)e.message);
break;
case kHighLevelEvent:
if(hasAppleEvents)
AEProcessAppleEvent(&e);
break;
}
}
else

12
LaunchAPPL/Server/LaunchAPPLServer.r
View File

@ -116,13 +116,13 @@ resource 'SIZE' (-1) {
dontGetFrontClicks,
ignoreChildDiedEvents,
is32BitCompatible,
isHighLevelEventAware,
onlyLocalHLEvents,
notStationeryAware,
dontUseTextEditServices,
notDisplayManagerAware,
reserved,
reserved,
reserved,
reserved,
reserved,
reserved,
reserved,
136 * 1024,
150 * 1024,
136 * 1024
};