From 97cfddb2a752768e525fe56d2fa85bef97641065 Mon Sep 17 00:00:00 2001
From: ben <ben@cda61777-01e9-0310-a592-d414129be87e>
Date: Mon, 20 Jan 2003 22:55:08 +0000
Subject: [PATCH] Add minimal Apple Event support -- we handle the
 'aevt'/'quit' event.

git-svn-id: svn://svn.tartarus.org/sgt/putty@2668 cda61777-01e9-0310-a592-d414129be87e
---
 mac/mac.c     | 28 +++++++++++++++++++++++++---
 mac/mac_res.r |  6 +++---
 2 files changed, 28 insertions(+), 6 deletions(-)

diff --git a/mac/mac.c b/mac/mac.c
index 5751ac8c..d7ac91fd 100644
--- a/mac/mac.c
+++ b/mac/mac.c
@@ -1,4 +1,4 @@
-/* $Id: mac.c,v 1.33 2003/01/18 20:09:21 ben Exp $ */
+/* $Id: mac.c,v 1.34 2003/01/20 22:55:08 ben Exp $ */
 /*
  * Copyright (c) 1999 Ben Harris
  * All rights reserved.
@@ -29,6 +29,8 @@
  */
 
 #include <MacTypes.h>
+#include <AEDataModel.h>
+#include <AppleEvents.h>
 #include <Quickdraw.h>
 #include <Fonts.h>
 #include <MacWindows.h>
@@ -65,6 +67,7 @@ QDGlobals qd;
 Session *sesslist;
 
 static int cold = 1;
+static int borednow = FALSE;
 struct mac_gestalts mac_gestalts;
 
 static void mac_startup(void);
@@ -86,8 +89,8 @@ static void mac_adjustcursor(RgnHandle);
 static void mac_adjustmenus(void);
 static void mac_closewindow(WindowPtr);
 static void mac_zoomwindow(WindowPtr, short);
-static void mac_shutdown(void);
 #pragma noreturn (cleanup_exit)
+static pascal OSErr mac_aevt_quit(const AppleEvent *, AppleEvent *, long);
 
 struct mac_windows {
     WindowPtr about;
@@ -169,10 +172,12 @@ static void mac_startup(void) {
 	mac_gestalts.uncvattr = (*ti)->tecUnicodeConverterFeatures;
 	DisposeHandle((Handle)ti);
     }
-    /* OpenTransport? */
+
+#if 0    /* OpenTransport? */
     if (Gestalt(gestaltOpenTpt, &mac_gestalts.otptattr) != noErr ||
 	(mac_gestalts.otptattr & gestaltOpenTptTCPPresentMask) == 0 ||
 	ot_init() != noErr)
+#endif
 	mac_gestalts.otptattr = 0;
     if (mac_gestalts.otptattr == 0) {
 	/* MacTCP? */
@@ -224,6 +229,10 @@ static void mac_startup(void) {
 	    LMSetCurDirStore(dirid);
 	}
     }
+
+    /* Install Apple Event handlers. */
+    AEInstallEventHandler(kCoreEventClass, kAEQuitApplication,
+			  NewAEEventHandlerUPP(&mac_aevt_quit), 0, FALSE);
 }
 
 static void mac_eventloop(void) {
@@ -238,6 +247,8 @@ static void mac_eventloop(void) {
 	mac_adjustcursor(cursrgn);
 	if (gotevent)
 	    mac_event(&event);
+	if (borednow)
+	    cleanup_exit(0);
 	if (mac_gestalts.mtcpvers != 0)
 	    mactcp_poll();
 	if (mac_gestalts.otptattr != 0)
@@ -304,6 +315,9 @@ static void mac_event(EventRecord *event) {
 	    DIBadMount(pt, event->message);
         }
         break;
+      case kHighLevelEvent:
+	AEProcessAppleEvent(event); /* errors? */
+	break;
     }
 }
 
@@ -637,6 +651,14 @@ static void mac_adjustcursor(RgnHandle cursrgn) {
     }
 }
 
+static pascal OSErr mac_aevt_quit(const AppleEvent *req, AppleEvent *reply,
+				  long refcon)
+{
+
+    borednow = 1;
+    return noErr;
+}
+
 void cleanup_exit(int status)
 {
 
diff --git a/mac/mac_res.r b/mac/mac_res.r
index 50ed38dc..c3545a27 100644
--- a/mac/mac_res.r
+++ b/mac/mac_res.r
@@ -1,4 +1,4 @@
-/* $Id: mac_res.r,v 1.20 2003/01/18 17:24:21 ben Exp $ */
+/* $Id: mac_res.r,v 1.21 2003/01/20 22:55:08 ben Exp $ */
 /*
  * Copyright (c) 1999, 2002 Ben Harris
  * All rights reserved.
@@ -69,8 +69,8 @@ resource 'SIZE' (-1) {
     dontGetFrontClicks,
     ignoreAppDiedEvents,
     is32BitCompatible,
-    notHighLevelEventAware,
-    onlyLocalHLEvents,
+    isHighLevelEventAware,
+    localandRemoteHLEvents,
     isStationeryAware,
     dontUseTextEditServices,
     reserved,
-- 
2.11.0