-/* $Id: mac.c,v 1.20 2003/01/08 22:46:12 ben Exp $ */
+/* $Id: mac.c,v 1.36 2003/01/24 00:25:33 ben Exp $ */
/*
* Copyright (c) 1999 Ben Harris
* All rights reserved.
*/
#include <MacTypes.h>
+#include <AEDataModel.h>
+#include <AppleEvents.h>
#include <Quickdraw.h>
#include <Fonts.h>
#include <MacWindows.h>
Session *sesslist;
static int cold = 1;
+static int borednow = FALSE;
struct mac_gestalts mac_gestalts;
static void mac_startup(void);
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)
struct mac_windows {
DisposeHandle((Handle)ti);
}
- mactcp_init();
+ sk_init();
/* We've been tested with the Appearance Manager */
if (mac_gestalts.apprvers != 0)
windows.about = NULL;
windows.licence = NULL;
- default_protocol = DEFAULT_PROTOCOL;
- default_port = DEFAULT_PORT;
+ default_protocol = be_default_protocol;
+ /* Find the appropriate default port. */
+ {
+ int i;
+ default_port = 0; /* illegal */
+ for (i = 0; backends[i].backend != NULL; i++)
+ if (backends[i].protocol == default_protocol) {
+ default_port = backends[i].backend->default_port;
+ break;
+ }
+ }
flags = FLAG_INTERACTIVE;
- /*
- * Really grotty hack to ensure that anything that looks at the
- * global "cfg" variable gets something vaguely sensible.
- * Obviously, nothing should actually be using it, but that will
- * take a while to arrange.
- */
- do_defaults(NULL, &cfg);
-
{
short vol;
long dirid;
LMSetCurDirStore(dirid);
}
}
- init_ucs();
+
+ /* Install Apple Event handlers. */
+ AEInstallEventHandler(kCoreEventClass, kAEOpenApplication,
+ NewAEEventHandlerUPP(&mac_aevt_oapp), 0, FALSE);
+ AEInstallEventHandler(kCoreEventClass, kAEOpenDocuments,
+ NewAEEventHandlerUPP(&mac_aevt_odoc), 0, FALSE);
+ AEInstallEventHandler(kCoreEventClass, kAEPrintDocuments,
+ NewAEEventHandlerUPP(&mac_aevt_pdoc), 0, FALSE);
+ AEInstallEventHandler(kCoreEventClass, kAEQuitApplication,
+ NewAEEventHandlerUPP(&mac_aevt_quit), 0, FALSE);
}
static void mac_eventloop(void) {
mac_adjustcursor(cursrgn);
if (gotevent)
mac_event(&event);
- mactcp_poll();
+ if (borednow)
+ cleanup_exit(0);
+ sk_poll();
mac_pollterm();
}
DisposeRgn(cursrgn);
DIBadMount(pt, event->message);
}
break;
+ case kHighLevelEvent:
+ AEProcessAppleEvent(event); /* errors? */
+ break;
}
}
case iClose:
mac_closewindow(window);
goto done;
+ case iSave:
+ mac_savesession();
+ goto done;
+ case iSaveAs:
+ mac_savesessionas();
+ goto done;
case iQuit:
cleanup_exit(0);
goto done;
CloseDeskAcc(((WindowPeek)window)->windowKind);
break;
case wTerminal:
- /* FIXME: end session and stuff */
+ mac_closeterm(window);
break;
case wAbout:
windows.about = NULL;
- CloseWindow(window);
+ DisposeDialog(window);
break;
case wLicence:
windows.licence = NULL;
- CloseWindow(window);
- break;
- default:
- CloseWindow(window);
+ DisposeWindow(window);
break;
}
}
EnableItem(menu, iQuit);
switch (mac_windowtype(window)) {
+ case wSettings:
+ DisableItem(menu, iSave); /* XXX enable if modified */
+ EnableItem(menu, iSaveAs);
+ menu = GetMenuHandle(mEdit);
+ DisableItem(menu, 0);
+ break;
case wTerminal:
mac_adjusttermmenus(window);
break;
default:
+ DisableItem(menu, iSave);
+ DisableItem(menu, iSaveAs);
menu = GetMenuHandle(mEdit);
DisableItem(menu, 0);
break;
}
}
+pascal OSErr mac_aevt_quit(const AppleEvent *req, AppleEvent *reply,
+ long refcon)
+{
+ DescType type;
+ Size size;
+
+ if (AEGetAttributePtr(req, keyMissedKeywordAttr, typeWildCard,
+ &type, NULL, 0, &size) == noErr)
+ return errAEParamMissed;
+
+ borednow = 1;
+ return noErr;
+}
+
void cleanup_exit(int status)
{
if (mac_gestalts.encvvers != 0)
TerminateUnicodeConverter();
#endif
- mactcp_shutdown();
+ sk_cleanup();
exit(status);
}
va_end(ap);
ParamText(stuff, NULL, NULL, NULL);
StopAlert(128, NULL);
- exit(1);
+ cleanup_exit(1);
}
void modalfatalbox(char *fmt, ...) {
va_end(ap);
ParamText(stuff, NULL, NULL, NULL);
StopAlert(128, NULL);
- exit(1);
+ cleanup_exit(1);
}
/* This should only kill the current session, not the whole application. */
va_end(ap);
ParamText(stuff, NULL, NULL, NULL);
StopAlert(128, NULL);
- exit(1);
+ cleanup_exit(1);
}
/* Null SSH agent client -- never finds an agent. */
}
+char *platform_default_s(char const *name)
+{
+ long smfs;
+ Str255 pname;
+ static char cname[256];
+
+ if (!strcmp(name, "Font")) {
+ smfs = GetScriptVariable(smSystemScript, smScriptMonoFondSize);
+ if (smfs == 0)
+ smfs = GetScriptVariable(smRoman, smScriptMonoFondSize);
+ if (smfs != 0) {
+ GetFontName(HiWord(smfs), pname);
+ if (pname[0] == 0)
+ return "Monaco";
+ p2cstrcpy(cname, pname);
+ return cname;
+ } else
+ return "Monaco";
+ }
+ return NULL;
+}
+
+int platform_default_i(char const *name, int def)
+{
+ long smfs;
+
+ if (!strcmp(name, "FontHeight")) {
+ smfs = GetScriptVariable(smSystemScript, smScriptMonoFondSize);
+ if (smfs == 0)
+ smfs = GetScriptVariable(smRoman, smScriptMonoFondSize);
+ if (smfs != 0)
+ return LoWord(smfs);
+ else
+ return 9;
+ }
+
+ /* Non-raw cut and paste of line-drawing chars works badly on the
+ * current Unix stub implementation of the Unicode functions.
+ * So I'm going to temporarily set the default to raw mode so
+ * that the failure mode isn't quite so drastically horrid.
+ * When Unicode comes in, this can all be put right. */
+ if (!strcmp(name, "RawCNP"))
+ return 1;
+ return def;
+}
+
+void platform_get_x11_auth(char *display, int *proto,
+ unsigned char *data, int *datalen)
+{
+ /* SGT: I have no idea whether Mac X servers need anything here. */
+}
+
/*
* Local Variables:
* c-file-style: "simon"