-/* $Id: mac.c,v 1.38 2003/02/01 12:54:40 simon Exp $ */
+/* $Id: mac.c,v 1.49 2003/02/15 16:22:15 ben Exp $ */
/*
- * Copyright (c) 1999 Ben Harris
+ * Copyright (c) 1999, 2003 Ben Harris
* All rights reserved.
*
* Permission is hereby granted, free of charge, to any person
#include <DiskInit.h>
#include <Gestalt.h>
#include <LowMem.h>
+#include <Navigation.h>
#include <Resources.h>
#include <Script.h>
#include <TextCommon.h>
#include "ssh.h"
#include "mac.h"
-QDGlobals qd;
-
Session *sesslist;
static int cold = 1;
static void mac_keypress(EventRecord *);
static int mac_windowtype(WindowPtr);
static void mac_menucommand(long);
-static void mac_openabout(void);
static void mac_openlicence(void);
static void mac_adjustcursor(RgnHandle);
static void mac_adjustmenus(void);
Handle menuBar;
TECInfoHandle ti;
+#if !TARGET_API_MAC_CARBON
/* Init Memory Manager */
MaxApplZone();
/* Init QuickDraw */
TEInit();
/* Init Dialog Manager */
InitDialogs(NULL);
+#endif
cold = 0;
/* Get base system version (only used if there's no better selector) */
mac_gestalts.uncvattr = (*ti)->tecUnicodeConverterFeatures;
DisposeHandle((Handle)ti);
}
+ /* Navigation Services? */
+ if (NavServicesAvailable())
+ mac_gestalts.navsvers = NavLibraryVersion();
+ else
+ mac_gestalts.navsvers = 0;
sk_init();
}
flags = FLAG_INTERACTIVE;
+#if !TARGET_API_MAC_CARBON
{
short vol;
long dirid;
LMSetCurDirStore(dirid);
}
}
+#endif
/* Install Apple Event handlers. */
AEInstallEventHandler(kCoreEventClass, kAEOpenApplication,
static void mac_event(EventRecord *event) {
short part;
WindowPtr window;
- Point pt;
switch (event->what) {
case mouseDown:
mac_adjustmenus();
mac_menucommand(MenuSelect(event->where));
break;
+#if !TARGET_API_MAC_CARBON
case inSysWindow:
SystemClick(event, window);
break;
+#endif
case inContent:
if (window != FrontWindow())
/* XXX: check for movable modal dboxes? */
break;
case inDrag:
/* XXX: moveable modal check? */
+#if TARGET_API_MAC_CARBON
+ {
+ BitMap screenBits;
+
+ GetQDGlobalsScreenBits(&screenBits);
+ DragWindow(window, event->where, &screenBits.bounds);
+ }
+#else
DragWindow(window, event->where, &qd.screenBits.bounds);
+#endif
break;
case inGrow:
mac_growwindow(window, event);
case updateEvt:
mac_updatewindow((WindowPtr)event->message);
break;
+#if !TARGET_API_MAC_CARBON
case diskEvt:
if (HiWord(event->message) != noErr) {
+ Point pt;
+
SetPt(&pt, 120, 120);
DIBadMount(pt, event->message);
}
break;
+#endif
case kHighLevelEvent:
AEProcessAppleEvent(event); /* errors? */
break;
}
}
-static void mac_contentclick(WindowPtr window, EventRecord *event) {
- short item;
+static void mac_contentclick(WindowPtr window, EventRecord *event)
+{
- switch (mac_windowtype(window)) {
- case wTerminal:
- mac_clickterm(window, event);
- break;
- case wAbout:
- if (DialogSelect(event, &window, &item))
- switch (item) {
- case wiAboutLicence:
- mac_openlicence();
- break;
- }
- break;
- case wSettings:
- mac_clickdlg(window, event);
- break;
- }
+ if (mac_wininfo(window)->click != NULL)
+ (*mac_wininfo(window)->click)(window, event);
}
-static void mac_growwindow(WindowPtr window, EventRecord *event) {
+static void mac_growwindow(WindowPtr window, EventRecord *event)
+{
- switch (mac_windowtype(window)) {
- case wTerminal:
- mac_growterm(window, event);
- }
+ if (mac_wininfo(window)->grow != NULL)
+ (*mac_wininfo(window)->grow)(window, event);
}
-static void mac_activatewindow(WindowPtr window, EventRecord *event) {
- int active;
+static void mac_activatewindow(WindowPtr window, EventRecord *event)
+{
- active = (event->modifiers & activeFlag) != 0;
mac_adjustmenus();
- switch (mac_windowtype(window)) {
- case wTerminal:
- mac_activateterm(window, active);
- break;
- case wSettings:
- mac_activatedlg(window, event);
- break;
- case wAbout:
- mac_activateabout(window, event);
- break;
- }
-}
-
-static void mac_activateabout(WindowPtr window, EventRecord *event) {
- DialogItemType itemtype;
- Handle itemhandle;
- short item;
- Rect itemrect;
- int active;
-
- active = (event->modifiers & activeFlag) != 0;
- GetDialogItem(window, wiAboutLicence, &itemtype, &itemhandle, &itemrect);
- HiliteControl((ControlHandle)itemhandle, active ? 0 : 255);
- DialogSelect(event, &window, &item);
-}
-
-static void mac_updatewindow(WindowPtr window) {
-
- switch (mac_windowtype(window)) {
- case wTerminal:
- mac_updateterm(window);
- break;
- case wAbout:
- case wSettings:
- BeginUpdate(window);
- UpdateDialog(window, window->visRgn);
- EndUpdate(window);
- break;
- case wLicence:
- mac_updatelicence(window);
- break;
- }
+ if (mac_wininfo(window)->activate != NULL)
+ (*mac_wininfo(window)->activate)(window, event);
}
-static void mac_updatelicence(WindowPtr window)
+static void mac_updatewindow(WindowPtr window)
{
- Handle h;
- int len;
- long fondsize;
-
- SetPort(window);
- BeginUpdate(window);
- fondsize = GetScriptVariable(smRoman, smScriptSmallFondSize);
- TextFont(HiWord(fondsize));
- TextSize(LoWord(fondsize));
- h = Get1Resource('TEXT', wLicence);
- len = GetResourceSizeOnDisk(h);
- if (h != NULL) {
- HLock(h);
- TETextBox(*h, len, &window->portRect, teFlushDefault);
- HUnlock(h);
- }
- EndUpdate(window);
+
+ if (mac_wininfo(window)->update != NULL)
+ (*mac_wininfo(window)->update)(window);
}
/*
* Work out what kind of window we're dealing with.
- * Concept shamelessly nicked from SurfWriter.
*/
-static int mac_windowtype(WindowPtr window) {
- int kind;
- long refcon;
-
- if (window == NULL)
- return wNone;
- kind = ((WindowPeek)window)->windowKind;
- if (kind < 0)
+static int mac_windowtype(WindowPtr window)
+{
+
+#if !TARGET_API_MAC_CARBON
+ if (GetWindowKind(window) < 0)
return wDA;
- if (GetWVariant(window) == zoomDocProc)
- return wTerminal;
- refcon = GetWRefCon(window);
- if (refcon < 1024)
- return refcon;
- else
- return wSettings;
+#endif
+ return ((WinInfo *)GetWRefCon(window))->wtype;
}
/*
mac_adjustmenus();
mac_menucommand(MenuKey(event->message & charCodeMask));
} else {
- switch (mac_windowtype(window)) {
- case wTerminal:
- mac_keyterm(window, event);
- break;
- }
+ if (mac_wininfo(window)->key != NULL)
+ (*mac_wininfo(window)->key)(window, event);
}
}
static void mac_menucommand(long result) {
short menu, item;
- Str255 da;
WindowPtr window;
+#if !TARGET_API_MAC_CARBON
+ Str255 da;
+#endif
menu = HiWord(result);
item = LoWord(result);
case iAbout:
mac_openabout();
goto done;
+#if !TARGET_API_MAC_CARBON
default:
GetMenuItemText(GetMenuHandle(mApple), item, da);
OpenDeskAcc(da);
goto done;
+#endif
}
break;
case mFile:
break;
}
/* If we get here, handling is up to window-specific code. */
- switch (mac_windowtype(window)) {
- case wTerminal:
- mac_menuterm(window, menu, item);
- break;
- }
+ if (mac_wininfo(window)->menu != NULL)
+ (*mac_wininfo(window)->menu)(window, menu, item);
+
done:
HiliteMenu(0);
}
-static void mac_openabout(void) {
- DialogItemType itemtype;
- Handle item;
- VersRecHndl vers;
- Rect box;
- StringPtr longvers;
-
- if (windows.about)
- SelectWindow(windows.about);
- else {
- windows.about = GetNewDialog(wAbout, NULL, (WindowPtr)-1);
- vers = (VersRecHndl)Get1Resource('vers', 1);
- if (vers != NULL && *vers != NULL) {
- longvers = (*vers)->shortVersion + (*vers)->shortVersion[0] + 1;
- GetDialogItem(windows.about, wiAboutVersion,
- &itemtype, &item, &box);
- assert(itemtype & kStaticTextDialogItem);
- SetDialogItemText(item, longvers);
- }
- ShowWindow(windows.about);
- }
-}
-
-static void mac_openlicence(void) {
-
- if (windows.licence)
- SelectWindow(windows.licence);
- else {
- windows.licence = GetNewWindow(wLicence, NULL, (WindowPtr)-1);
- ShowWindow(windows.licence);
- }
-}
-
static void mac_closewindow(WindowPtr window) {
switch (mac_windowtype(window)) {
+#if !TARGET_API_MAC_CARBON
case wDA:
- CloseDeskAcc(((WindowPeek)window)->windowKind);
- break;
- case wTerminal:
- mac_closeterm(window);
+ CloseDeskAcc(GetWindowKind(window));
break;
- case wAbout:
- windows.about = NULL;
- DisposeDialog(window);
- break;
- case wLicence:
- windows.licence = NULL;
- DisposeWindow(window);
+#endif
+ default:
+ if (mac_wininfo(window)->close != NULL)
+ (*mac_wininfo(window)->close)(window);
break;
}
}
/*
* Make the menus look right before the user gets to see them.
*/
+#if TARGET_API_MAC_CARBON
+#define EnableItem EnableMenuItem
+#define DisableItem DisableMenuItem
+#endif
static void mac_adjustmenus(void) {
WindowPtr window;
MenuHandle menu;
DisableItem(menu, iClose);
EnableItem(menu, iQuit);
- switch (mac_windowtype(window)) {
- case wSettings:
- DisableItem(menu, iSave); /* XXX enable if modified */
- EnableItem(menu, iSaveAs);
- EnableItem(menu, iDuplicate);
- menu = GetMenuHandle(mEdit);
- DisableItem(menu, 0);
- break;
- case wTerminal:
- mac_adjusttermmenus(window);
- break;
- default:
+ if (mac_wininfo(window)->adjustmenus != NULL)
+ (*mac_wininfo(window)->adjustmenus)(window);
+ else {
DisableItem(menu, iSave);
DisableItem(menu, iSaveAs);
DisableItem(menu, iDuplicate);
menu = GetMenuHandle(mEdit);
DisableItem(menu, 0);
- break;
+ menu = GetMenuHandle(mWindow);
+ DisableItem(menu, 0); /* Until we get more than 1 item on it. */
}
DrawMenuBar();
}
Point mouse;
WindowPtr window, front;
short part;
+#if TARGET_API_MAC_CARBON
+ Cursor arrow;
+ RgnHandle visrgn;
+#endif
GetMouse(&mouse);
LocalToGlobal(&mouse);
front = FrontWindow();
if (part != inContent || window == NULL || window != front) {
/* Cursor isn't in the front window, so switch to arrow */
+#if TARGET_API_MAC_CARBON
+ GetQDGlobalsArrow(&arrow);
+ SetCursor(&arrow);
+#else
SetCursor(&qd.arrow);
+#endif
SetRectRgn(cursrgn, SHRT_MIN, SHRT_MIN, SHRT_MAX, SHRT_MAX);
- if (front != NULL)
+ if (front != NULL) {
+#if TARGET_API_MAC_CARBON
+ visrgn = NewRgn();
+ GetPortVisibleRegion(GetWindowPort(front), visrgn);
+ DiffRgn(cursrgn, visrgn, cursrgn);
+ DisposeRgn(visrgn);
+#else
DiffRgn(cursrgn, front->visRgn, cursrgn);
+#endif
+ }
} else {
- switch (mac_windowtype(window)) {
- case wTerminal:
- mac_adjusttermcursor(window, mouse, cursrgn);
- break;
- default:
+ if (mac_wininfo(window)->adjustcursor != NULL)
+ (*mac_wininfo(window)->adjustcursor)(window, mouse, cursrgn);
+ else {
+#if TARGET_API_MAC_CARBON
+ GetQDGlobalsArrow(&arrow);
+ SetCursor(&arrow);
+ GetPortVisibleRegion(GetWindowPort(window), cursrgn);
+#else
SetCursor(&qd.arrow);
CopyRgn(window->visRgn, cursrgn);
- break;
+#endif
}
}
}
exit(status);
}
-void fatalbox(char *fmt, ...) {
- va_list ap;
- Str255 stuff;
-
- va_start(ap, fmt);
- /* We'd like stuff to be a Pascal string */
- stuff[0] = vsprintf((char *)(&stuff[1]), fmt, ap);
- va_end(ap);
- ParamText(stuff, NULL, NULL, NULL);
- StopAlert(128, NULL);
- cleanup_exit(1);
-}
-
-void modalfatalbox(char *fmt, ...) {
- va_list ap;
- Str255 stuff;
-
- va_start(ap, fmt);
- /* We'd like stuff to be a Pascal string */
- stuff[0] = vsprintf((char *)(&stuff[1]), fmt, ap);
- va_end(ap);
- ParamText(stuff, NULL, NULL, NULL);
- StopAlert(128, NULL);
- cleanup_exit(1);
-}
-
/* This should only kill the current session, not the whole application. */
void connection_fatal(void *fontend, char *fmt, ...) {
va_list ap;
}
-FontSpec platform_default_font(char const *name)
+FontSpec platform_default_fontspec(char const *name)
{
FontSpec ret;
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)
- strcpy(ret.name, "Monaco");
- ret.height = LoWord(smfs);
- p2cstrcpy(ret.name, pname);
+ GetFontName(HiWord(smfs), ret.name);
+ if (ret.name[0] == 0)
+ memcpy(ret.name, "\pMonaco", 7);
+ ret.size = LoWord(smfs);
} else {
- strcpy(ret.name, "Monaco");
- ret.height = 9;
+ memcpy(ret.name, "\pMonaco", 7);
+ ret.size = 9;
}
- ret.isbold = 0;
+ ret.face = 0;
} else {
- ret.name[0] = '\0';
+ ret.name[0] = 0;
}
return ret;
{
Filename ret;
if (!strcmp(name, "LogFileName"))
- strcpy(ret.path, "putty.log");
+ FSMakeFSSpec(0, 0, "\pputty.log", &ret.fss);
else
- *ret.path = '\0';
+ memset(&ret, 0, sizeof(ret));
return ret;
}
int platform_default_i(char const *name, int def)
{
- long smfs;
/* Non-raw cut and paste of line-drawing chars works badly on the
* current Unix stub implementation of the Unicode functions.
/* SGT: I have no idea whether Mac X servers need anything here. */
}
-Filename filename_from_str(char *str)
-{
- Filename ret;
- strncpy(ret.path, str, sizeof(ret.path));
- ret.path[sizeof(ret.path)-1] = '\0';
- return ret;
-}
-
-char *filename_to_str(Filename fn)
-{
- return fn.path;
-}
-
-int filename_equal(Filename f1, Filename f2)
-{
- return !strcmp(f1.path, f2.path);
-}
-
-int filename_is_null(Filename fn)
-{
- return !*fn.path;
-}
-
/*
* Local Variables:
* c-file-style: "simon"