*/
/*
- * NOTE: Comment mentionning FAQ refer to the book:
- * "Macworld Mac Programming FAQs" from "IDG Books"
- */
-
-/*
- * WARNING: Vim must be able to compile without Carbon
- * As the desired minimum requirement are circa System 7
- * (I want to run it on my Mac Classic) (Dany)
+ * NOTES: - Vim 7+ does not support classic MacOS. Please use Vim 6.x
+ * - Comments mentioning FAQ refer to the book:
+ * "Macworld Mac Programming FAQs" from "IDG Books"
*/
/*
*
*/
-/* TODO: find the best place for this (Dany) */
-#if 0
-# if ! TARGET_API_MAC_CARBON
-/* Enable the new API functions even when not compiling for Carbon */
-/* Apple recomends Universal Interface 3.3.2 or later */
-# define OPAQUE_TOOLBOX_STRUCTS 1
-# define ACCESSOR_CALLS_ARE_FUNCTIONS 1
-/* Help Menu not supported by Carbon */
-# define USE_HELPMENU
-# endif
-#endif
+ /* TODO (Jussi)
+ * * Clipboard does not work (at least some cases)
+ * * ATSU font rendering has some problems
+ * * Investigate and remove dead code (there is still lots of that)
+ */
#include <Devices.h> /* included first to avoid CR problems */
#include "vim.h"
-/* Enable Contextual Menu Support */
-#if UNIVERSAL_INTERFACES_VERSION >= 0x0320
-# define USE_CTRLCLICKMENU
-#endif
-
-/* Put Vim Help in MacOS Help */
-#define USE_HELPMENU
-
-/* Enable AEVENT */
-#define USE_AEVENT
+#define USE_CARBONIZED
+#define USE_AEVENT /* Enable AEVENT */
+#undef USE_OFFSETED_WINDOW /* Debugging feature: start Vim window OFFSETed */
/* Compile as CodeWarior External Editor */
#if defined(FEAT_CW_EDITOR) && !defined(USE_AEVENT)
# define USE_AEVENT /* Need Apple Event Support */
#endif
-/* The VIM creator is CodeWarior specific */
-#if !(defined(__MRC__) || defined(__SC__) || defined(__APPLE_CC__))
-# define USE_VIM_CREATOR_ID
-#else
-# if 0 /* Was this usefull for some compiler? (Dany) */
-static OSType _fcreator = 'VIM!';
-static OSType _ftype = 'TEXT';
-# endif
-#endif
-
/* Vim's Scrap flavor. */
#define VIMSCRAPFLAVOR 'VIM!'
-/* CARBON version only tested with Project Builder under MacOS X */
-#undef USE_CARBONIZED
-#if (defined(__APPLE_CC__) || defined(__MRC__)) && defined(TARGET_API_MAC_CARBON)
-# if TARGET_API_MAC_CARBON
-# define USE_CARBONIZED
-# endif
-#endif
-
-#undef USE_MOUSEWHEEL
-#if defined(MACOS_X) && defined(USE_CARBONIZED)
-# define USE_MOUSEWHEEL
static EventHandlerUPP mouseWheelHandlerUPP = NULL;
-#endif
+SInt32 gMacSystemVersion;
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
-# define USE_CARBONKEYHANDLER
+#if defined(FEAT_MBYTE)
+#define USE_CARBONKEYHANDLER
static EventHandlerUPP keyEventHandlerUPP = NULL;
#endif
-#ifdef MACOS_X
-SInt32 gMacSystemVersion;
-#endif
-
-/* Debugging feature: start Vim window OFFSETed */
-#undef USE_OFFSETED_WINDOW
-
-/* Debugging feature: use CodeWarior SIOUX */
-#undef USE_SIOUX
-
/* Include some file. TODO: move into os_mac.h */
#include <Menus.h>
#include <Resources.h>
-#if !TARGET_API_MAC_CARBON
-#include <StandardFile.h>
-#include <Traps.h>
-#endif
-#include <Balloons.h>
#include <Processes.h>
#ifdef USE_AEVENT
# include <AppleEvents.h>
# include <AERegistry.h>
#endif
-#ifdef USE_CTRLCLICKMENU
# include <Gestalt.h>
-#endif
-#ifdef USE_SIOUX
-# include <stdio.h>
-# include <sioux.h>
-# include <console.h>
-#endif
#if UNIVERSAL_INTERFACES_VERSION >= 0x0330
# include <ControlDefinitions.h>
# include <Navigation.h> /* Navigation only part of ?? */
#endif
-#if TARGET_API_MAC_CARBON && 0
+/* Help Manager (balloon.h, HM prefixed functions) are not supported
+ * under Carbon (Jussi) */
+# if 0
/* New Help Interface for Mac, not implemented yet.*/
-# include <MacHelp.h>
-#endif
+# include <MacHelp.h>
+# endif
/*
- * Translate new name to old ones
- * New function only available in MacOS 8.5,
- * So use old one to be compatible back to System 7
+ * These seem to be rectangle options. Why are they not found in
+ * headers? (Jussi)
*/
-#ifndef USE_CARBONIZED
-# undef EnableMenuItem
-# define EnableMenuItem EnableItem
-# undef DisableMenuItem
-# define DisableMenuItem DisableItem
-#endif
-
-/* Carbon does not support the Get/SetControll functions,
- * use Get/SetControl32Bit instead and rename for non-carbon
- * systems.
- */
-
-#ifndef USE_CARBONIZED
-# undef SetControl32BitMaximum
-# define SetControl32BitMaximum SetControlMaximum
-# undef SetControl32BitMinimum
-# define SetControl32BitMinimum SetControlMinimum
-# undef SetControl32BitValue
-# define SetControl32BitValue SetControlValue
-# undef GetControl32BitValue
-# define GetControl32BitValue GetControlValue
-#endif
-
-/*
- * ???
- */
-
#define kNothing 0
#define kCreateEmpty 2 /*1*/
#define kCreateRect 2
/*
* Dany: Don't like those...
*/
-
#define topLeft(r) (((Point*)&(r))[0])
#define botRight(r) (((Point*)&(r))[1])
static int allow_scrollbar = FALSE;
/* Last mouse click caused contextual menu, (to provide proper release) */
-#ifdef USE_CTRLCLICKMENU
static short clickIsPopup;
-#endif
/* Feedback Action for Scrollbar */
ControlActionUPP gScrollAction;
/* Keeping track of which scrollbar is being dragged */
static ControlHandle dragged_sb = NULL;
-#if defined(USE_CARBONIZED) && defined(MACOS_X)
static struct
{
FMFontFamily family;
FMFontStyle style;
Boolean isPanelVisible;
} gFontPanelInfo = { 0, 0, 0, false };
-#endif
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
# define USE_ATSUI_DRAWING
ATSUStyle gFontStyle;
Boolean gIsFontFallbackSet;
#endif
-/*
- * The Quickdraw global is predefined in CodeWarior
- * but is not in Apple MPW
- */
-#if (defined(__MRC__) || defined(__SC__))
-# if !(defined(TARGET_API_MAC_CARBON) && TARGET_API_MAC_CARBON)
-QDGlobals qd;
-# endif
-#endif
-
/* Colors Macros */
#define RGB(r,g,b) ((r) << 16) + ((g) << 8) + (b)
#define Red(c) ((c & 0x00FF0000) >> 16)
*
*/
-char_u *C2Pascal_save(char_u *Cstring)
+ char_u *
+C2Pascal_save(char_u *Cstring)
{
char_u *PascalString;
int len;
*
*/
-char_u *C2Pascal_save_and_remove_backslash(char_u *Cstring)
+ char_u *
+C2Pascal_save_and_remove_backslash(char_u *Cstring)
{
char_u *PascalString;
int len;
return pixels;
}
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
/*
* Deletes all traces of any Windows-style mnemonic text (including any
* parentheses) from a menu item and returns the cleaned menu item title.
* The caller is responsible for releasing the returned string.
*/
static CFStringRef
-menu_title_removing_mnemonic(menu)
- vimmenu_T *menu;
+menu_title_removing_mnemonic(vimmenu_T *menu)
{
CFStringRef name;
size_t menuTitleLen;
* character strings.
*/
-char_u **new_fnames_from_AEDesc(AEDesc *theList, long *numFiles, OSErr *error)
+ char_u **
+new_fnames_from_AEDesc(AEDesc *theList, long *numFiles, OSErr *error)
{
char_u **fnames = NULL;
OSErr newError;
*error = AECountItems(theList, numFiles);
if (*error)
{
-#ifdef USE_SIOUX
- printf("fname_from_AEDesc: AECountItems error: %d\n", error);
-#endif
return(fnames);
}
{
/* Caller is able to clean up */
/* TODO: Should be clean up or not? For safety. */
-#ifdef USE_SIOUX
- printf("aevt_odoc: AEGetNthPtr error: %ld\n", (long)newError);
-#endif
return(fnames);
}
*
*/
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma options align=mac68k
-#endif
typedef struct WindowSearch WindowSearch;
struct WindowSearch /* for handling class 'KAHL', event 'SRCH', keyDirectObject typeChar*/
{
FSSpec theFile; // identifies the file
long *theDate; // where to put the modification date/time
};
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma options align=reset
-#endif
pascal OSErr
-Handle_KAHL_SRCH_AE(const AppleEvent *theAEvent, AppleEvent *theReply, long refCon)
+Handle_KAHL_SRCH_AE(
+ const AppleEvent *theAEvent,
+ AppleEvent *theReply,
+ long refCon)
{
OSErr error = noErr;
buf_T *buf;
error = AEGetParamPtr(theAEvent, keyDirectObject, typeChar, &typeCode, (Ptr) &SearchData, sizeof(WindowSearch), &actualSize);
if (error)
{
-#ifdef USE_SIOUX
- printf("KAHL_SRCH: AEGetParamPtr error: %d\n", error);
-#endif
return(error);
}
error = HandleUnusedParms(theAEvent);
if (error)
{
-#ifdef USE_SIOUX
- printf("KAHL_SRCH: HandleUnusedParms error: %d\n", error);
-#endif
return(error);
}
else
*SearchData.theDate = buf->b_mtime;
-#ifdef USE_SIOUX
- printf("KAHL_SRCH: file \"%#s\" {%d}", SearchData.theFile.name,SearchData.theFile.parID);
- if (foundFile == false)
- printf(" NOT");
- printf(" found. [date %lx, %lx]\n", *SearchData.theDate, buf->b_mtime_read);
-#endif
-
return error;
};
*
*/
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma options align=mac68k
-#endif
typedef struct ModificationInfo ModificationInfo;
struct ModificationInfo /* for replying to class 'KAHL', event 'MOD ', keyDirectObject typeAEList*/
{
long theDate; // the date/time the file was last modified
short saved; // set this to zero when replying, unused
};
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma options align=reset
-#endif
pascal OSErr
-Handle_KAHL_MOD_AE(const AppleEvent *theAEvent, AppleEvent *theReply, long refCon)
+Handle_KAHL_MOD_AE(
+ const AppleEvent *theAEvent,
+ AppleEvent *theReply,
+ long refCon)
{
OSErr error = noErr;
AEDescList replyList;
error = HandleUnusedParms(theAEvent);
if (error)
{
-#ifdef USE_SIOUX
- printf("KAHL_MOD: HandleUnusedParms error: %d\n", error);
-#endif
return(error);
}
error = AECreateList(nil, 0, false, &replyList);
if (error)
{
-#ifdef USE_SIOUX
- printf("KAHL_MOD: AECreateList error: %d\n", error);
-#endif
return(error);
}
#if 0
error = AECountItems(&replyList, &numFiles);
-#ifdef USE_SIOUX
- printf("KAHL_MOD ReplyList: %x %x\n", replyList.descriptorType, replyList.dataHandle);
- printf("KAHL_MOD ItemInList: %d\n", numFiles);
-#endif
/* AEPutKeyDesc(&replyList, keyAEPnject, &aDesc)
* AEPutKeyPtr(&replyList, keyAEPosition, typeChar, (Ptr)&theType,
theFile.theDate = buf->b_mtime;
/* theFile.theDate = time(NULL) & (time_t) 0xFFFFFFF0; */
error = AEPutPtr(&replyList, numFiles, typeChar, (Ptr) &theFile, sizeof(theFile));
-#ifdef USE_SIOUX
- if (numFiles == 0)
- printf("KAHL_MOD: ");
- else
- printf(", ");
- printf("\"%#s\" {%d} [date %lx, %lx]", theFile.theFile.name, theFile.theFile.parID, theFile.theDate, buf->b_mtime_read);
- if (error)
- printf(" (%d)", error);
- numFiles++;
-#endif
};
-#ifdef USE_SIOUX
- printf("\n");
-#endif
-
#if 0
error = AECountItems(&replyList, &numFiles);
-#ifdef USE_SIOUX
- printf("KAHL_MOD ItemInList: %d\n", numFiles);
-#endif
#endif
/* We can add data only if something to reply */
error = AEPutParamDesc(theReply, keyDirectObject, &replyList);
-#ifdef USE_SIOUX
- if (error)
- printf("KAHL_MOD: AEPutParamDesc error: %d\n", error);
-#endif
-
if (replyList.dataHandle)
AEDisposeDesc(&replyList);
*
*/
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma options align=mac68k
-#endif
typedef struct CW_GetText CW_GetText;
struct CW_GetText /* for handling class 'KAHL', event 'GTTX', keyDirectObject typeChar*/
{
long *unused; /* 0 (not used) */
long *theDate; /* where to put the modification date/time */
};
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma options align=reset
-#endif
pascal OSErr
-Handle_KAHL_GTTX_AE(const AppleEvent *theAEvent, AppleEvent *theReply, long refCon)
+Handle_KAHL_GTTX_AE(
+ const AppleEvent *theAEvent,
+ AppleEvent *theReply,
+ long refCon)
{
OSErr error = noErr;
buf_T *buf;
if (error)
{
-#ifdef USE_SIOUX
- printf("KAHL_GTTX: AEGetParamPtr error: %d\n", error);
-#endif
return(error);
}
SetHandleSize(GetTextData.theText, BufferSize);
if (GetHandleSize(GetTextData.theText) != BufferSize)
{
- #ifdef USE_SIOUX
- printf("KAHL_GTTX: SetHandleSize increase: %d, size %d\n",
- linesize, BufferSize);
- #endif
break; /* Simple handling for now */
}
else
/* *GetTextData.theDate = time(NULL) & (time_t) 0xFFFFFFF0;*/
*GetTextData.theDate = buf->b_mtime;
}
-#ifdef USE_SIOUX
- printf("KAHL_GTTX: file \"%#s\" {%d} [date %lx, %lx]", GetTextData.theFile.name, GetTextData.theFile.parID, *GetTextData.theDate, buf->b_mtime_read);
- if (foundFile == false)
- printf(" NOT");
- printf(" found. (BufferSize = %d)\n", BufferSize);
-#endif
error = HandleUnusedParms(theAEvent);
if (error)
{
-#ifdef USE_SIOUX
- printf("KAHL_GTTX: HandleUnusedParms error: %d\n", error);
-#endif
return(error);
}
*/
/* Taken from MoreAppleEvents:ProcessHelpers*/
-pascal OSErr FindProcessBySignature(const OSType targetType,
- const OSType targetCreator,
- ProcessSerialNumberPtr psnPtr)
+ pascal OSErr
+FindProcessBySignature(
+ const OSType targetType,
+ const OSType targetCreator,
+ ProcessSerialNumberPtr psnPtr)
{
OSErr anErr = noErr;
Boolean lookingForProcess = true;
anErr = FindProcessBySignature('APPL', 'CWIE', &psn);
-#ifdef USE_SIOUX
- printf("CodeWarrior is");
- if (anErr != noErr)
- printf(" NOT");
- printf(" running\n");
-#endif
if (anErr == noErr)
{
anErr = AECreateDesc(typeProcessSerialNumber, &psn,
anErr = AESend(&theEvent, &theReply, sendMode, kAENormalPriority, kNoTimeOut, idleProcUPP, nil);
if (anErr == noErr && sendMode == kAEWaitReply)
{
-#ifdef USE_SIOUX
- printf("KAHL_MOD: Send error: %d\n", anErr);
-#endif
/* anErr = AEHGetHandlerError(&theReply);*/
}
(void) AEDisposeDesc(&theReply);
*
*/
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma options align=mac68k
-#endif
typedef struct SelectionRange SelectionRange;
struct SelectionRange /* for handling kCoreClassEvent:kOpenDocuments:keyAEPosition typeChar */
{
long unused2; // 0 (not used)
long theDate; // modification date/time
};
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma options align=reset
-#endif
/* The IDE uses the optional keyAEPosition parameter to tell the ed-
itor the selection range. If lineNum is zero or greater, scroll the text
short gotPosition = false;
long lnum;
-#ifdef USE_SIOUX
- printf("aevt_odoc:\n");
-#endif
-
/* the direct object parameter is the list of aliases to files (one or more) */
error = AEGetParamDesc(theAEvent, keyDirectObject, typeAEList, &theList);
if (error)
{
-#ifdef USE_SIOUX
- printf("aevt_odoc: AEGetParamDesc error: %ld\n", (long)error);
-#endif
return(error);
}
error = noErr;
if (error)
{
-#ifdef USE_SIOUX
- printf("aevt_odoc: AEGetParamPtr error: %ld\n", (long)error);
-#endif
return(error);
}
-#ifdef USE_SIOUX
- printf("aevt_odoc: lineNum: %d, startRange %ld, endRange %ld, [date %lx]\n",
- (int)thePosition.lineNum,
- (long)thePosition.startRange, (long)thePosition.endRange,
- (long)thePosition.theDate);
-#endif
/*
error = AEGetParamDesc(theAEvent, keyAEPosition, typeChar, &thePosition);
error = HandleUnusedParms(theAEvent);
if (error)
{
-#ifdef USE_SIOUX
- printf("aevt_odoc: HandleUnusedParms error: %ld\n", (long)error);
-#endif
return(error);
}
return(error);
*/
pascal OSErr
-Handle_aevt_oapp_AE(const AppleEvent *theAEvent, AppleEvent *theReply, long refCon)
+Handle_aevt_oapp_AE(
+ const AppleEvent *theAEvent,
+ AppleEvent *theReply,
+ long refCon)
{
OSErr error = noErr;
-#ifdef USE_SIOUX
- printf("aevt_oapp:\n");
-#endif
-
error = HandleUnusedParms(theAEvent);
if (error)
{
*/
pascal OSErr
-Handle_aevt_quit_AE(const AppleEvent *theAEvent, AppleEvent *theReply, long refCon)
+Handle_aevt_quit_AE(
+ const AppleEvent *theAEvent,
+ AppleEvent *theReply,
+ long refCon)
{
OSErr error = noErr;
-#ifdef USE_SIOUX
- printf("aevt_quit\n");
-#endif
-
error = HandleUnusedParms(theAEvent);
if (error)
{
*/
pascal OSErr
-Handle_aevt_pdoc_AE(const AppleEvent *theAEvent, AppleEvent *theReply, long refCon)
+Handle_aevt_pdoc_AE(
+ const AppleEvent *theAEvent,
+ AppleEvent *theReply,
+ long refCon)
{
OSErr error = noErr;
-#ifdef USE_SIOUX
- printf("aevt_pdoc:\n");
-#endif
-
error = HandleUnusedParms(theAEvent);
if (error)
{
* (Just get rid of all the parms)
*/
pascal OSErr
-Handle_unknown_AE(const AppleEvent *theAEvent, AppleEvent *theReply, long refCon)
+Handle_unknown_AE(
+ const AppleEvent *theAEvent,
+ AppleEvent *theReply,
+ long refCon)
{
OSErr error = noErr;
-#ifdef USE_SIOUX
- printf("Unknown Event: %x\n", theAEvent->descriptorType);
-#endif
-
error = HandleUnusedParms(theAEvent);
if (error)
{
}
-
-#if TARGET_API_MAC_CARBON
-# define NewAEEventHandlerProc(x) NewAEEventHandlerUPP(x)
-#endif
-
/*
* Install the various AppleEvent Handlers
*/
/* install open application handler */
error = AEInstallEventHandler(kCoreEventClass, kAEOpenApplication,
- NewAEEventHandlerProc(Handle_aevt_oapp_AE), 0, false);
+ NewAEEventHandlerUPP(Handle_aevt_oapp_AE), 0, false);
if (error)
{
return error;
/* install quit application handler */
error = AEInstallEventHandler(kCoreEventClass, kAEQuitApplication,
- NewAEEventHandlerProc(Handle_aevt_quit_AE), 0, false);
+ NewAEEventHandlerUPP(Handle_aevt_quit_AE), 0, false);
if (error)
{
return error;
/* install open document handler */
error = AEInstallEventHandler(kCoreEventClass, kAEOpenDocuments,
- NewAEEventHandlerProc(HandleODocAE), 0, false);
+ NewAEEventHandlerUPP(HandleODocAE), 0, false);
if (error)
{
return error;
/* install print document handler */
error = AEInstallEventHandler(kCoreEventClass, kAEPrintDocuments,
- NewAEEventHandlerProc(Handle_aevt_pdoc_AE), 0, false);
+ NewAEEventHandlerUPP(Handle_aevt_pdoc_AE), 0, false);
/* Install Core Suite */
/* error = AEInstallEventHandler(kAECoreSuite, kAEClone,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
error = AEInstallEventHandler(kAECoreSuite, kAEClose,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
error = AEInstallEventHandler(kAECoreSuite, kAECountElements,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
error = AEInstallEventHandler(kAECoreSuite, kAECreateElement,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
error = AEInstallEventHandler(kAECoreSuite, kAEDelete,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
error = AEInstallEventHandler(kAECoreSuite, kAEDoObjectsExist,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
error = AEInstallEventHandler(kAECoreSuite, kAEGetData,
- NewAEEventHandlerProc(Handle_unknown_AE), kAEGetData, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), kAEGetData, false);
error = AEInstallEventHandler(kAECoreSuite, kAEGetDataSize,
- NewAEEventHandlerProc(Handle_unknown_AE), kAEGetDataSize, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), kAEGetDataSize, false);
error = AEInstallEventHandler(kAECoreSuite, kAEGetClassInfo,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
error = AEInstallEventHandler(kAECoreSuite, kAEGetEventInfo,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
error = AEInstallEventHandler(kAECoreSuite, kAEMove,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
error = AEInstallEventHandler(kAECoreSuite, kAESave,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
error = AEInstallEventHandler(kAECoreSuite, kAESetData,
- NewAEEventHandlerProc(Handle_unknown_AE), nil, false);
+ NewAEEventHandlerUPP(Handle_unknown_AE), nil, false);
*/
#ifdef FEAT_CW_EDITOR
* Bind codewarrior support handlers
*/
error = AEInstallEventHandler('KAHL', 'GTTX',
- NewAEEventHandlerProc(Handle_KAHL_GTTX_AE), 0, false);
+ NewAEEventHandlerUPP(Handle_KAHL_GTTX_AE), 0, false);
if (error)
{
return error;
}
error = AEInstallEventHandler('KAHL', 'SRCH',
- NewAEEventHandlerProc(Handle_KAHL_SRCH_AE), 0, false);
+ NewAEEventHandlerUPP(Handle_KAHL_SRCH_AE), 0, false);
if (error)
{
return error;
}
error = AEInstallEventHandler('KAHL', 'MOD ',
- NewAEEventHandlerProc(Handle_KAHL_MOD_AE), 0, false);
+ NewAEEventHandlerUPP(Handle_KAHL_MOD_AE), 0, false);
if (error)
{
return error;
#endif /* USE_AEVENT */
-#if defined(USE_CARBONIZED) && defined(MACOS_X)
/*
* Callback function, installed by InstallFontPanelHandler(), below,
* to handle Font Panel events.
*/
static OSStatus
-FontPanelHandler(EventHandlerCallRef inHandlerCallRef, EventRef inEvent,
- void *inUserData)
+FontPanelHandler(
+ EventHandlerCallRef inHandlerCallRef,
+ EventRef inEvent,
+ void *inUserData)
{
if (GetEventKind(inEvent) == kEventFontPanelClosed)
{
static void
-InstallFontPanelHandler()
+InstallFontPanelHandler(void)
{
EventTypeSpec eventTypes[2];
EventHandlerUPP handlerUPP;
*outName = NUL;
}
}
-#endif
/*
* Returns the index inside the menu wher
*/
short /* Shoulde we return MenuItemIndex? */
-gui_mac_get_menu_item_index(pMenu)
- vimmenu_T *pMenu;
+gui_mac_get_menu_item_index(vimmenu_T *pMenu)
{
short index;
short itemIndex = -1;
index++;
pBrother = pBrother->next;
}
-#ifdef USE_HELPMENU
- /* Adjust index in help menu (for predefined ones) */
- if (itemIndex != -1)
- if (pMenu->parent->submenu_id == kHMHelpMenuID)
- itemIndex += gui.MacOSHelpItems;
-#endif
}
return itemIndex;
}
static vimmenu_T *
-gui_mac_get_vim_menu(menuID, itemIndex, pMenu)
- short menuID;
- short itemIndex;
- vimmenu_T *pMenu;
+gui_mac_get_vim_menu(short menuID, short itemIndex, vimmenu_T *pMenu)
{
short index;
vimmenu_T *pChildMenu;
if ((pElder) && (pElder->submenu_id == menuID))
{
-#ifdef USE_HELPMENU
- if (menuID == kHMHelpMenuID)
- itemIndex -= gui.MacOSHelpItems;
-#endif
-
for (index = 1; (index != itemIndex) && (pMenu != NULL); index++)
pMenu = pMenu->next;
}
* TODO: Add support for potential TOOLBAR
*/
void
-gui_mac_doInContentClick(theEvent, whichWindow)
- EventRecord *theEvent;
- WindowPtr whichWindow;
+gui_mac_doInContentClick(EventRecord *theEvent, WindowPtr whichWindow)
{
Point thePoint;
int_u vimModifiers;
/* Defaults to MOUSE_LEFT as there's only one mouse button */
vimMouseButton = MOUSE_LEFT;
-#ifdef USE_CTRLCLICKMENU
/* Convert the CTRL_MOUSE_LEFT to MOUSE_RIGHT */
+ /* TODO: NEEDED? */
clickIsPopup = FALSE;
if ((gui.MacOSHaveCntxMenu) && (mouse_model_popup()))
vimModifiers &= ~MOUSE_CTRL;
clickIsPopup = TRUE;
}
-#endif
/* Is it a double click ? */
dblClick = ((theEvent->when - lastMouseTick) < GetDblTime());
- /* Send the mouse clicj to Vim */
+ /* Send the mouse click to Vim */
gui_send_mouse_event(vimMouseButton, thePoint.h,
thePoint.v, dblClick, vimModifiers);
/* Create the rectangle around the cursor to detect
* the mouse dragging
*/
-#ifdef USE_CTRLCLICKMENU
#if 0
/* TODO: Do we need to this even for the contextual menu?
* It may be require for popup_setpos, but for popup?
*/
if (vimMouseButton == MOUSE_LEFT)
-#endif
#endif
{
SetRect(&dragRect, FILL_X(X_2_COL(thePoint.h)),
* Handle the click in the titlebar (to move the window)
*/
void
-gui_mac_doInDragClick(where, whichWindow)
- Point where;
- WindowPtr whichWindow;
+gui_mac_doInDragClick(Point where, WindowPtr whichWindow)
{
Rect movingLimits;
Rect *movingLimitsPtr = &movingLimits;
/* TODO: may try to prevent move outside screen? */
-#ifdef USE_CARBONIZED
movingLimitsPtr = GetRegionBounds(GetGrayRgn(), &movingLimits);
-#else
- movingLimitsPtr = &(*GetGrayRgn())->rgnBBox;
-#endif
DragWindow(whichWindow, where, movingLimitsPtr);
}
* Handle the click in the grow box
*/
void
-gui_mac_doInGrowClick(where, whichWindow)
- Point where;
- WindowPtr whichWindow;
+gui_mac_doInGrowClick(Point where, WindowPtr whichWindow)
{
long newSize;
unsigned short newHeight;
Rect resizeLimits;
Rect *resizeLimitsPtr = &resizeLimits;
-#ifdef USE_CARBONIZED
Rect NewContentRect;
resizeLimitsPtr = GetRegionBounds(GetGrayRgn(), &resizeLimits);
-#else
- resizeLimits = qd.screenBits.bounds;
-#endif
/* Set the minimun size */
/* TODO: Should this come from Vim? */
resizeLimits.top = 100;
resizeLimits.left = 100;
-#ifdef USE_CARBONIZED
newSize = ResizeWindow(whichWindow, where, &resizeLimits, &NewContentRect);
newWidth = NewContentRect.right - NewContentRect.left;
newHeight = NewContentRect.bottom - NewContentRect.top;
gui_resize_shell(newWidth, newHeight);
gui_mch_set_bg_color(gui.back_pixel);
gui_set_shellsize(TRUE, FALSE);
-#else
- newSize = GrowWindow(whichWindow, where, &resizeLimits);
- if (newSize != 0)
- {
- newWidth = newSize & 0x0000FFFF;
- newHeight = (newSize >> 16) & 0x0000FFFF;
-
- gui_mch_set_bg_color(gui.back_pixel);
-
- gui_resize_shell(newWidth, newHeight);
-
- /*
- * We need to call gui_set_shellsize as the size
- * used by Vim may be smaller than the size selected
- * by the user. This cause some overhead
- * TODO: add a check inside gui_resize_shell?
- */
- gui_set_shellsize(TRUE, FALSE);
-
- /*
- * Origin of the code below is unknown.
- * Functionality is unknown.
- * Time of commented out is unknown.
- */
-/* SetPort(wp);
- InvalRect(&wp->portRect);
- if (isUserWindow(wp)) {
- DrawingWindowPeek aWindow = (DrawingWindowPeek)wp;
-
- if (aWindow->toolRoutines.toolWindowResizedProc)
- CallToolWindowResizedProc(aWindow->toolRoutines.toolWindowResizedProc, wp);
- }*/
- };
-#endif
-
}
/*
* Handle the click in the zoom box
*/
-#ifdef USE_CARBONIZED
static void
-gui_mac_doInZoomClick(theEvent, whichWindow)
- EventRecord *theEvent;
- WindowPtr whichWindow;
+gui_mac_doInZoomClick(EventRecord *theEvent, WindowPtr whichWindow)
{
Rect r;
Point p;
gui_mch_set_bg_color(gui.back_pixel);
gui_set_shellsize(TRUE, FALSE);
}
-#endif /* defined(USE_CARBONIZED) */
/*
* ------------------------------------------------------------
*/
void
-gui_mac_doUpdateEvent(event)
- EventRecord *event;
+gui_mac_doUpdateEvent(EventRecord *event)
{
WindowPtr whichWindow;
GrafPtr savePort;
RgnHandle updateRgn;
-#ifdef USE_CARBONIZED
Rect updateRect;
-#endif
Rect *updateRectPtr;
Rect rc;
Rect growRect;
RgnHandle saveRgn;
-#ifdef USE_CARBONIZED
updateRgn = NewRgn();
if (updateRgn == NULL)
return;
-#endif
/* This could be done by the caller as we
* don't require anything else out of the event
GetPort(&savePort);
/* Select the Window's Port */
-#ifdef USE_CARBONIZED
SetPortWindowPort(whichWindow);
-#else
- SetPort(whichWindow);
-#endif
/* Let's update the window */
BeginUpdate(whichWindow);
/* Redraw the biggest rectangle covering the area
* to be updated.
*/
-#ifdef USE_CARBONIZED
GetPortVisibleRegion(GetWindowPort(whichWindow), updateRgn);
# if 0
/* Would be more appropriate to use the follwing but doesn't
*/
GetWindowRegion(whichWindow, kWindowUpdateRgn, updateRgn);
# endif
-#else
- updateRgn = whichWindow->visRgn;
-#endif
+
/* Use the HLock useless in Carbon? Is it harmful?*/
HLock((Handle) updateRgn);
-#ifdef USE_CARBONIZED
+
updateRectPtr = GetRegionBounds(updateRgn, &updateRect);
# if 0
/* Code from original Carbon Port (using GetWindowRegion.
GlobalToLocal(&topLeft(updateRect)); /* preCarbon? */
GlobalToLocal(&botRight(updateRect));
# endif
-#else
- updateRectPtr = &(*updateRgn)->rgnBBox;
-#endif
/* Update the content (i.e. the text) */
gui_redraw(updateRectPtr->left, updateRectPtr->top,
updateRectPtr->right - updateRectPtr->left,
EraseRect(&rc);
}
HUnlock((Handle) updateRgn);
-#ifdef USE_CARBONIZED
DisposeRgn(updateRgn);
-#endif
/* Update scrollbars */
DrawControls(whichWindow);
/* Update the GrowBox */
/* Taken from FAQ 33-27 */
saveRgn = NewRgn();
-#ifdef USE_CARBONIZED
GetWindowBounds(whichWindow, kWindowGrowRgn, &growRect);
-#else
- growRect = whichWindow->portRect;
- growRect.top = growRect.bottom - 15;
- growRect.left = growRect.right - 15;
-#endif
GetClip(saveRgn);
ClipRect(&growRect);
DrawGrowIcon(whichWindow);
* (apply to a window)
*/
void
-gui_mac_doActivateEvent(event)
- EventRecord *event;
+gui_mac_doActivateEvent(EventRecord *event)
{
WindowPtr whichWindow;
* (apply to the application)
*/
void
-gui_mac_doSuspendEvent(event)
- EventRecord *event;
+gui_mac_doSuspendEvent(EventRecord *event)
{
/* The frontmost application just changed */
#ifdef USE_CARBONKEYHANDLER
# define INLINE_KEY_BUFFER_SIZE 80
static pascal OSStatus
-gui_mac_doKeyEventCarbon(EventHandlerCallRef nextHandler, EventRef theEvent,
+gui_mac_doKeyEventCarbon(
+ EventHandlerCallRef nextHandler,
+ EventRef theEvent,
void *data)
{
/* Multibyte-friendly key event handler */
* Handle MouseClick
*/
void
-gui_mac_doMouseDownEvent(theEvent)
- EventRecord *theEvent;
+gui_mac_doMouseDownEvent(EventRecord *theEvent)
{
short thePart;
WindowPtr whichWindow;
case (inZoomIn):
case (inZoomOut):
-#ifdef USE_CARBONIZED
gui_mac_doInZoomClick(theEvent, whichWindow);
-#endif
break;
}
}
* [this event is a moving in and out of a region]
*/
void
-gui_mac_doMouseMovedEvent(event)
- EventRecord *event;
+gui_mac_doMouseMovedEvent(EventRecord *event)
{
Point thePoint;
int_u vimModifiers;
if (!Button())
gui_mouse_moved(thePoint.h, thePoint.v);
else
-#ifdef USE_CTRLCLICKMENU
if (!clickIsPopup)
-#endif
gui_send_mouse_event(MOUSE_DRAG, thePoint.h,
thePoint.v, FALSE, vimModifiers);
* Handle the mouse release
*/
void
-gui_mac_doMouseUpEvent(theEvent)
- EventRecord *theEvent;
+gui_mac_doMouseUpEvent(EventRecord *theEvent)
{
Point thePoint;
int_u vimModifiers;
GlobalToLocal(&thePoint);
vimModifiers = EventModifiers2VimMouseModifiers(theEvent->modifiers);
-#ifdef USE_CTRLCLICKMENU
if (clickIsPopup)
{
vimModifiers &= ~MOUSE_CTRL;
clickIsPopup = FALSE;
}
-#endif
gui_send_mouse_event(MOUSE_RELEASE, thePoint.h, thePoint.v, FALSE, vimModifiers);
}
-#ifdef USE_MOUSEWHEEL
static pascal OSStatus
gui_mac_mouse_wheel(EventHandlerCallRef nextHandler, EventRef theEvent,
void *data)
*/
return CallNextEventHandler(nextHandler, theEvent);
}
-#endif /* defined(USE_MOUSEWHEEL) */
#if 0
* Handle menubar selection
*/
void
-gui_mac_handle_menu(menuChoice)
- long menuChoice;
+gui_mac_handle_menu(long menuChoice)
{
short menu = HiWord(menuChoice);
short item = LoWord(menuChoice);
vimmenu_T *theVimMenu = root_menu;
-#ifndef USE_CARBONIZED
- MenuHandle appleMenu;
- Str255 itemName;
-#endif
if (menu == 256) /* TODO: use constant or gui.xyz */
{
if (item == 1)
gui_mch_beep(); /* TODO: Popup dialog or do :intro */
- else
- {
-#ifndef USE_CARBONIZED
- /* Desk Accessory doesn't exist in Carbon */
- appleMenu = GetMenuHandle(menu);
- GetMenuItemText(appleMenu, item, itemName);
- (void) OpenDeskAcc(itemName);
-#endif
- }
}
else if (item != 0)
{
*/
void
-gui_mac_handle_event(event)
- EventRecord *event;
+gui_mac_handle_event(EventRecord *event)
{
OSErr error;
/* Handle contextual menu right now (if needed) */
-#ifdef USE_CTRLCLICKMENU
if (gui.MacOSHaveCntxMenu)
if (IsShowContextualMenuClick(event))
{
# endif
return;
}
-#endif
/* Handle normal event */
switch (event->what)
GuiFont
-gui_mac_find_font(font_name)
- char_u *font_name;
+gui_mac_find_font(char_u *font_name)
{
char_u c;
char_u *p;
*p = c;
/* Get the font name, minus the style suffix (:h, etc) */
-#if defined(MACOS_X) && defined(USE_CARBONIZED)
char_u fontName[256];
char_u *styleStart = vim_strchr(font_name, ':');
size_t fontNameLen = styleStart ? styleStart - font_name : STRLEN(fontName);
if (FMGetFontFamilyInstanceFromFont(fontRef, &font_id, &fontStyle) != noErr)
font_id = 0;
}
-#else
- GetFNum(pFontName, &font_id);
-#endif
if (font_id == 0)
{
}
}
if (changed)
-#if defined(MACOS_X) && defined(USE_CARBONIZED)
if (ATSUFindFontFromName(&pFontName[1], pFontName[0],
kFontFullName, kFontNoPlatformCode, kFontNoScriptCode,
kFontNoLanguageCode, &fontRef) == noErr)
if (FMGetFontFamilyInstanceFromFont(fontRef, &font_id, &fontStyle) != noErr)
font_id = 0;
}
-#else
- GetFNum(pFontName, &font_id);
-#endif
}
#else
{
/* Oups, the system font was it the one the user want */
-#if defined(MACOS_X) && defined(USE_CARBONIZED)
if (FMGetFontFamilyName(systemFont, systemFontname) != noErr)
return NOFONT;
-#else
- GetFontName(0, systemFontname);
-#endif
if (!EqualString(pFontName, systemFontname, false, false))
return NOFONT;
}
* when vim is started, whether or not the GUI has been started.
*/
void
-gui_mch_prepare(argc, argv)
- int *argc;
- char **argv;
+gui_mch_prepare(int *argc, char **argv)
{
/* TODO: Move most of this stuff toward gui_mch_init */
#ifdef USE_EXE_NAME
# endif
#endif
-#ifndef USE_CARBONIZED
- MaxApplZone(); /* What could replace thos */
- /* In Carbon, all shared library are automatically load in
- * there's no need to init them
- */
- InitGraf(&qd.thePort);
- InitFonts();
- InitWindows();
- InitMenus();
- TEInit();
- InitDialogs(nil);
-#else
/* Why did I put that in? (Dany) */
MoreMasterPointers (0x40 * 3); /* we love handles */
-#endif
#if 0
InitCursor();
-#ifdef USE_CARBONIZED
RegisterAppearanceClient();
-#endif
#ifdef USE_AEVENT
(void) InstallAEHandlers();
#endif
-#ifdef USE_CTRLCLICKMENU
if (Gestalt(gestaltContextualMenuAttr, &gestalt_rc) == noErr)
gui.MacOSHaveCntxMenu = BitTst(&gestalt_rc, 31-gestaltContextualMenuTrapAvailable);
else
if (gui.MacOSHaveCntxMenu)
gui.MacOSHaveCntxMenu = (InitContextualMenus()==noErr);
-#endif
-
-#ifdef USE_SIOUX
- SIOUXSettings.standalone = false;
- SIOUXSettings.initializeTB = false;
- SIOUXSettings.setupmenus = false;
- SIOUXSettings.asktosaveonclose = false;
- SIOUXSettings.showstatusline = true;
- SIOUXSettings.toppixel = 300;
- SIOUXSettings.leftpixel = 10;
- InstallConsole(1); /* fileno(stdout) = 1, on page 430 of MSL C */
- printf("Debugging console enabled\n");
- /* SIOUXSetTitle((char_u *) "Vim Stdout"); */
-#endif
pomme = NewMenu(256, "\p\024"); /* 0x14= = Apple Menu */
AppendMenu(pomme, "\pAbout VIM");
-#ifndef USE_CARBONIZED
- AppendMenu(pomme, "\p-");
- AppendResMenu(pomme, 'DRVR');
-#endif
InsertMenu(pomme, 0);
#endif
-#ifdef USE_CARBONIZED
CreateNewWindow(kDocumentWindowClass,
kWindowResizableAttribute | kWindowCollapseBoxAttribute,
&windRect, &gui.VimWindow);
SetPortWindowPort(gui.VimWindow);
-#else
- gui.VimWindow = NewCWindow(nil, &windRect, "\pgVim on Macintosh", true, documentProc,
- (WindowPtr) -1L, false, 0);
- SetPort(gui.VimWindow);
-#endif
gui.char_width = 7;
gui.char_height = 11;
gui.num_cols = 80;
gui.in_focus = TRUE; /* For the moment -> syn. of front application */
-#if TARGET_API_MAC_CARBON
gScrollAction = NewControlActionUPP(gui_mac_scroll_action);
gScrollDrag = NewControlActionUPP(gui_mac_drag_thumb);
-#else
- gScrollAction = NewControlActionProc(gui_mac_scroll_action);
- gScrollDrag = NewControlActionProc(gui_mac_drag_thumb);
-#endif
-
- /* Getting a handle to the Help menu */
-#ifdef USE_HELPMENU
-# ifdef USE_CARBONIZED
- HMGetHelpMenu(&gui.MacOSHelpMenu, NULL);
-# else
- (void) HMGetHelpMenuHandle(&gui.MacOSHelpMenu);
-# endif
-
- if (gui.MacOSHelpMenu != nil)
- gui.MacOSHelpItems = CountMenuItems(gui.MacOSHelpMenu);
- else
- gui.MacOSHelpItems = 0;
-#endif
dragRectEnbl = FALSE;
dragRgn = NULL;
# endif
exe_name = FullPathFromFSSpec_save(applDir);
#endif
-
-#ifdef USE_VIM_CREATOR_ID
- _fcreator = 'VIM!';
- _ftype = 'TEXT';
-#endif
}
#ifndef ALWAYS_USE_GUI
* etc.
*/
int
-gui_mch_init()
+gui_mch_init(void)
{
/* TODO: Move most of this stuff toward gui_mch_init */
Rect windRect;
MenuHandle pomme;
-#ifdef USE_CTRLCLICKMENU
long gestalt_rc;
-#endif
-#ifdef USE_MOUSEWHEEL
EventTypeSpec eventTypeSpec;
EventHandlerRef mouseWheelHandlerRef;
-#endif
#ifdef USE_CARBONKEYHANDLER
EventHandlerRef keyEventHandlerRef;
#endif
-#ifdef MACOS_X
if (Gestalt(gestaltSystemVersion, &gMacSystemVersion) != noErr)
- gMacSystemVersion = 0x1000; /* Default to minimum sensible value */
-#endif
+ gMacSystemVersion = 0x1000; /* TODO: Default to minimum sensible value */
#if 1
InitCursor();
-#ifdef USE_CARBONIZED
RegisterAppearanceClient();
-#endif
#ifdef USE_AEVENT
(void) InstallAEHandlers();
#endif
-#ifdef USE_CTRLCLICKMENU
+ /* Ctrl click */
if (Gestalt(gestaltContextualMenuAttr, &gestalt_rc) == noErr)
gui.MacOSHaveCntxMenu = BitTst(&gestalt_rc, 31-gestaltContextualMenuTrapAvailable);
else
if (gui.MacOSHaveCntxMenu)
gui.MacOSHaveCntxMenu = (InitContextualMenus()==noErr);
-#endif
-
-#ifdef USE_SIOUX
- SIOUXSettings.standalone = false;
- SIOUXSettings.initializeTB = false;
- SIOUXSettings.setupmenus = false;
- SIOUXSettings.asktosaveonclose = false;
- SIOUXSettings.showstatusline = true;
- SIOUXSettings.toppixel = 300;
- SIOUXSettings.leftpixel = 10;
- InstallConsole(1); /* fileno(stdout) = 1, on page 430 of MSL C */
- printf("Debugging console enabled\n");
- /* SIOUXSetTitle((char_u *) "Vim Stdout"); */
-#endif
pomme = NewMenu(256, "\p\024"); /* 0x14= = Apple Menu */
AppendMenu(pomme, "\pAbout VIM");
-#ifndef USE_CARBONIZED
- AppendMenu(pomme, "\p-");
- AppendResMenu(pomme, 'DRVR');
-#endif
InsertMenu(pomme, 0);
#endif
gui.VimWindow = NewCWindow(nil, &windRect, "\pgVim on Macintosh", true,
-#ifdef USE_CARBONIZED
zoomDocProc,
-#else
- documentProc,
-#endif
(WindowPtr)-1L, true, 0);
InstallReceiveHandler((DragReceiveHandlerUPP)receiveHandler,
gui.VimWindow, NULL);
-#ifdef USE_CARBONIZED
SetPortWindowPort(gui.VimWindow);
-#else
- SetPort(gui.VimWindow);
-#endif
gui.char_width = 7;
gui.char_height = 11;
gui.num_cols = 80;
gui.in_focus = TRUE; /* For the moment -> syn. of front application */
-#if TARGET_API_MAC_CARBON
gScrollAction = NewControlActionUPP(gui_mac_scroll_action);
gScrollDrag = NewControlActionUPP(gui_mac_drag_thumb);
-#else
- gScrollAction = NewControlActionProc(gui_mac_scroll_action);
- gScrollDrag = NewControlActionProc(gui_mac_drag_thumb);
-#endif
-#if defined(USE_CARBONIZED) && defined(MACOS_X)
/* Install Carbon event callbacks. */
(void)InstallFontPanelHandler();
-#endif
-
- /* Getting a handle to the Help menu */
-#ifdef USE_HELPMENU
-# ifdef USE_CARBONIZED
- HMGetHelpMenu(&gui.MacOSHelpMenu, NULL);
-# else
- (void) HMGetHelpMenuHandle(&gui.MacOSHelpMenu);
-# endif
-
- if (gui.MacOSHelpMenu != nil)
- gui.MacOSHelpItems = CountMenuItems(gui.MacOSHelpMenu);
- else
- gui.MacOSHelpItems = 0;
-#endif
dragRectEnbl = FALSE;
dragRgn = NULL;
gui.scrollbar_height = gui.scrollbar_width = 15; /* cheat 1 overlap */
gui.border_offset = gui.border_width = 2;
-#if defined(FEAT_GUI) && defined(MACOS_X)
/* If Quartz-style text antialiasing is available (see
gui_mch_draw_string() below), enable it for all font sizes. */
vim_setenv((char_u *)"QDTEXT_MINSIZE", (char_u *)"1");
-#endif
-#ifdef USE_MOUSEWHEEL
eventTypeSpec.eventClass = kEventClassMouse;
eventTypeSpec.eventKind = kEventMouseWheelMoved;
mouseWheelHandlerUPP = NewEventHandlerUPP(gui_mac_mouse_wheel);
DisposeEventHandlerUPP(mouseWheelHandlerUPP);
mouseWheelHandlerUPP = NULL;
}
-#endif
#ifdef USE_CARBONKEYHANDLER
eventTypeSpec.eventClass = kEventClassTextInput;
* Called when the foreground or background color has been changed.
*/
void
-gui_mch_new_colors()
+gui_mch_new_colors(void)
{
/* TODO:
* This proc is called when Normal is set to a value
* Open the GUI window which was created by a call to gui_mch_init().
*/
int
-gui_mch_open()
+gui_mch_open(void)
{
ShowWindow(gui.VimWindow);
if (gui_win_x != -1 && gui_win_y != -1)
gui_mch_set_winpos(gui_win_x, gui_win_y);
-#ifdef USE_CARBONIZED
/*
* Make the GUI the foreground process (in case it was launched
* from the Terminal or via :gui).
if (GetCurrentProcess(&psn) == noErr)
SetFrontProcess(&psn);
}
-#endif
return OK;
}
DisposeEventHandlerUPP(keyEventHandlerUPP);
#endif
-#ifdef USE_MOUSEWHEEL
if (mouseWheelHandlerUPP != NULL)
DisposeEventHandlerUPP(mouseWheelHandlerUPP);
-#endif
#ifdef USE_ATSUI_DRAWING
if (gFontStyle)
gui_mch_get_winpos(int *x, int *y)
{
/* TODO */
-#ifdef USE_CARBONIZED
Rect bounds;
OSStatus status;
*x = bounds.left;
*y = bounds.top;
return OK;
-#endif
return FAIL;
}
int base_width,
int base_height)
{
-#ifdef USE_CARBONIZED
CGrafPtr VimPort;
Rect VimBound;
-#endif
if (gui.which_scrollbars[SBAR_LEFT])
{
-#ifdef USE_CARBONIZED
VimPort = GetWindowPort(gui.VimWindow);
GetPortBounds(VimPort, &VimBound);
VimBound.left = -gui.scrollbar_width; /* + 1;*/
SetPortBounds(VimPort, &VimBound);
/* GetWindowBounds(gui.VimWindow, kWindowGlobalPortRgn, &winPortRect); ??*/
-#else
- gui.VimWindow->portRect.left = -gui.scrollbar_width; /* + 1;*/
- /* SetWindowBounds(gui.VimWindow, kWindowGlobalPortRgn, &winPortRect); ??*/
-#endif
}
else
{
-#ifdef USE_CARBONIZED
VimPort = GetWindowPort(gui.VimWindow);
GetPortBounds(VimPort, &VimBound);
VimBound.left = 0;
SetPortBounds(VimPort, &VimBound);
-#else
- gui.VimWindow->portRect.left = 0;
-#endif;
}
SizeWindow(gui.VimWindow, width, height, TRUE);
* TODO: Add live udate of those value on suspend/resume.
*/
void
-gui_mch_get_screen_dimensions(screen_w, screen_h)
- int *screen_w;
- int *screen_h;
+gui_mch_get_screen_dimensions(int *screen_w, int *screen_h)
{
GDHandle dominantDevice = GetMainDevice();
Rect screenRect = (**dominantDevice).gdRect;
}
-#if defined(USE_CARBONIZED) && defined(MACOS_X)
/*
* Open the Font Panel and wait for the user to select a font and
* close the panel. Then fill the buffer pointed to by font_name with
}
return selected_font;
}
-#endif
/*
* could not be loaded, OK otherwise.
*/
int
-gui_mch_init_font(font_name, fontset)
- char_u *font_name;
- int fontset; /* not used */
+gui_mch_init_font(char_u *font_name, int fontset)
{
/* TODO: Add support for bold italic underline proportional etc... */
Str255 suggestedFont = "\pMonaco";
STRCPY(used_font_name, "Monaco");
font = (suggestedSize << 16) + ((long) font_id & 0xFFFF);
}
-#if defined(USE_CARBONIZED) && defined(MACOS_X)
else if (STRCMP(font_name, "*") == 0)
{
char_u *new_p_guifont;
}
}
}
-#endif
else
{
font = gui_mac_find_font(font_name);
/* No antialiasing by default (do not attempt to touch antialising
* options on pre-Jaguar) */
fontOptions =
-#ifdef MACOS_X
(gMacSystemVersion >= 0x1020) ?
kATSStyleNoAntiAliasing :
-#endif
kATSStyleNoOptions;
+ printf("BLA\n");
+
ATSUAttributeTag attribTags[] =
{
kATSUFontTag, kATSUSizeTag, kATSUStyleRenderingOptionsTag,
* Adjust gui.char_height (after 'linespace' was changed).
*/
int
-gui_mch_adjust_charheight()
+gui_mch_adjust_charheight(void)
{
FontInfo font_info;
* Get a font structure for highlighting.
*/
GuiFont
-gui_mch_get_font(name, giveErrorIfMissing)
- char_u *name;
- int giveErrorIfMissing;
+gui_mch_get_font(char_u *name, int giveErrorIfMissing)
{
GuiFont font;
* Don't know how to get the actual name, thus use the provided name.
*/
char_u *
-gui_mch_get_fontname(font, name)
- GuiFont font;
- char_u *name;
+gui_mch_get_fontname(GuiFont font, char_u *name)
{
if (name == NULL)
return NULL;
* Set the current text font.
*/
void
-gui_mch_set_font(font)
- GuiFont font;
+gui_mch_set_font(GuiFont font)
{
#ifdef USE_ATSUI_DRAWING
GuiFont currFont;
* but it's mainly because a) latin (non-wide) aliased fonts
* look bad in OS X 10.3.x and below (due to a bug in ATS), and
* b) wide multibyte input does not suffer from that problem. */
- fontOptions =
-#ifdef MACOS_X
+ /*fontOptions =
(p_antialias && (font == gui.wide_font)) ?
kATSStyleNoOptions : kATSStyleNoAntiAliasing;
-#else
- kATSStyleNoOptions;
-#endif
+ */
+ /*fontOptions = kATSStyleAntiAliasing;*/
ATSUAttributeTag attribTags[] =
{
}
static int
-hex_digit(c)
- int c;
+hex_digit(int c)
{
if (isdigit(c))
return c - '0';
* Return INVALCOLOR when failed.
*/
guicolor_T
-gui_mch_get_color(name)
- char_u *name;
+gui_mch_get_color(char_u *name)
{
/* TODO: Add support for the new named color of MacOS 8
*/
return table[i].color;
}
-
/*
* Last attempt. Look in the file "$VIM/rgb.txt".
*/
* Set the current text foreground color.
*/
void
-gui_mch_set_fg_color(color)
- guicolor_T color;
+gui_mch_set_fg_color(guicolor_T color)
{
RGBColor TheColor;
* Set the current text background color.
*/
void
-gui_mch_set_bg_color(color)
- guicolor_T color;
+gui_mch_set_bg_color(guicolor_T color)
{
RGBColor TheColor;
* Set the current text special color.
*/
void
-gui_mch_set_sp_color(color)
- guicolor_T color;
+gui_mch_set_sp_color(guicolor_T color)
{
specialColor.red = Red(color) * 0x0101;
specialColor.green = Green(color) * 0x0101;
static void
draw_undercurl(int flags, int row, int col, int cells)
{
- int i;
+ int x;
int offset;
const static int val[8] = {1, 0, 0, 0, 1, 2, 2, 2 };
int y = FILL_Y(row + 1) - 1;
offset = val[FILL_X(col) % 8];
MoveTo(FILL_X(col), y - offset);
- for (i = FILL_X(col); i < FILL_X(col + cells); ++i)
+ for (x = FILL_X(col); x < FILL_X(col + cells); ++x)
{
- offset = val[i % 8];
- LineTo(i, y - offset);
+ offset = val[x % 8];
+ LineTo(x, y - offset);
}
}
- void
-gui_mch_draw_string(row, col, s, len, flags)
- int row;
- int col;
- char_u *s;
- int len;
- int flags;
+#ifndef USE_ATSUI_DRAWING
+
+ static void
+draw_string_QD(int row, int col, char_u *s, int len, int flags)
{
#ifdef FEAT_MBYTE
-#ifdef USE_ATSUI_DRAWING
- /* ATSUI requires utf-16 strings */
- UniCharCount utf16_len;
- UniChar *tofree = mac_enc_to_utf16(s, len, (size_t *)&utf16_len);
- utf16_len /= sizeof(UniChar);
-#else
char_u *tofree = NULL;
if (output_conv.vc_type != CONV_NONE)
s = tofree;
}
#endif
-#endif
-#if defined(FEAT_GUI) && defined(MACOS_X)
- /* ATSUI automatically antialiases text */
-#ifndef USE_ATSUI_DRAWING
/*
* On OS X, try using Quartz-style text antialiasing.
*/
kQDUseCGTextRendering | kQDUseCGTextMetrics : 0);
QDSwapTextFlags(qd_flags);
}
-#endif
/*
* When antialiasing we're using srcOr mode, we have to clear the block
* The following is like calling gui_mch_clear_block(row, col, row, col +
* len - 1), but without setting the bg color to gui.back_pixel.
*/
-#ifdef USE_ATSUI_DRAWING
- if ((flags & DRAW_TRANSP) == 0)
-#else
if (((gMacSystemVersion >= 0x1020 && p_antialias) || p_linespace != 0)
&& !(flags & DRAW_TRANSP))
-#endif
{
Rect rc;
EraseRect(&rc);
}
-#ifndef USE_ATSUI_DRAWING
if (gMacSystemVersion >= 0x1020 && p_antialias)
{
StyleParameter face;
DrawText((char*)s, 0, len);
}
else
+ {
+ /* Use old-style, non-antialiased QuickDraw text rendering. */
+ TextMode(srcCopy);
+ TextFace(normal);
+
+ /* SelectFont(hdc, gui.currFont); */
+
+ if (flags & DRAW_TRANSP)
+ {
+ TextMode(srcOr);
+ }
+
+ MoveTo(TEXT_X(col), TEXT_Y(row));
+ DrawText((char *)s, 0, len);
+
+ if (flags & DRAW_BOLD)
+ {
+ TextMode(srcOr);
+ MoveTo(TEXT_X(col) + 1, TEXT_Y(row));
+ DrawText((char *)s, 0, len);
+ }
+
+ if (flags & DRAW_UNDERL)
+ {
+ MoveTo(FILL_X(col), FILL_Y(row + 1) - 1);
+ LineTo(FILL_X(col + len) - 1, FILL_Y(row + 1) - 1);
+ }
+ }
+
+ if (flags & DRAW_UNDERC)
+ draw_undercurl(flags, row, col, len);
+
+#ifdef FEAT_MBYTE
+ vim_free(tofree);
#endif
-#endif
+}
+
+#else /* USE_ATSUI_DRAWING */
+
+ static void
+draw_string_ATSUI(int row, int col, char_u *s, int len, int flags)
+{
+ /* ATSUI requires utf-16 strings */
+ UniCharCount utf16_len;
+ UniChar *tofree = mac_enc_to_utf16(s, len, (size_t *)&utf16_len);
+ utf16_len /= sizeof(UniChar);
+
+ /* - ATSUI automatically antialiases text (Someone)
+ * - for some reason it does not work... (Jussi) */
+
+ /*
+ * When antialiasing we're using srcOr mode, we have to clear the block
+ * before drawing the text.
+ * Also needed when 'linespace' is non-zero to remove the cursor and
+ * underlining.
+ * But not when drawing transparently.
+ * The following is like calling gui_mch_clear_block(row, col, row, col +
+ * len - 1), but without setting the bg color to gui.back_pixel.
+ */
+ if ((flags & DRAW_TRANSP) == 0)
+ {
+ Rect rc;
+
+ rc.left = FILL_X(col);
+ rc.top = FILL_Y(row);
+ /* Multibyte computation taken from gui_w32.c */
+ if (has_mbyte)
+ {
+ int cell_len = 0;
+ int n;
+
+ /* Compute the length in display cells. */
+ for (n = 0; n < len; n += MB_BYTE2LEN(s[n]))
+ cell_len += (*mb_ptr2cells)(s + n);
+ rc.right = FILL_X(col + cell_len);
+ }
+ else
+ rc.right = FILL_X(col + len) + (col + len == Columns);
+
+ rc.bottom = FILL_Y(row + 1);
+ EraseRect(&rc);
+ }
+
{
/* Use old-style, non-antialiased QuickDraw text rendering. */
TextMode(srcCopy);
}
MoveTo(TEXT_X(col), TEXT_Y(row));
-#ifdef USE_ATSUI_DRAWING
ATSUTextLayout textLayout;
if (ATSUCreateTextLayoutWithTextPtr(tofree,
ATSUDisposeTextLayout(textLayout);
}
-#else
- DrawText((char *)s, 0, len);
-
-
- if (flags & DRAW_BOLD)
- {
- TextMode(srcOr);
- MoveTo(TEXT_X(col) + 1, TEXT_Y(row));
- DrawText((char *)s, 0, len);
- }
-
- if (flags & DRAW_UNDERL)
- {
- MoveTo(FILL_X(col), FILL_Y(row + 1) - 1);
- LineTo(FILL_X(col + len) - 1, FILL_Y(row + 1) - 1);
- }
-#endif
}
if (flags & DRAW_UNDERC)
draw_undercurl(flags, row, col, len);
-#ifdef FEAT_MBYTE
vim_free(tofree);
+}
+#endif
+
+ void
+gui_mch_draw_string(int row, int col, char_u *s, int len, int flags)
+{
+#if defined(USE_ATSUI_DRAWING)
+ draw_string_ATSUI(row, col, s, len, flags);
+#else
+ draw_string_QD(row, col, s, len, flags);
#endif
}
* Return OK if the key with the termcap name "name" is supported.
*/
int
-gui_mch_haskey(name)
- char_u *name;
+gui_mch_haskey(char_u *name)
{
int i;
}
void
-gui_mch_beep()
+gui_mch_beep(void)
{
SysBeep(1); /* Should this be 0? (????) */
}
void
-gui_mch_flash(msec)
- int msec;
+gui_mch_flash(int msec)
{
/* Do a visual beep by reversing the foreground and background colors */
Rect rc;
* Invert a rectangle from row r, column c, for nr rows and nc columns.
*/
void
-gui_mch_invert_rectangle(r, c, nr, nc)
- int r;
- int c;
- int nr;
- int nc;
+gui_mch_invert_rectangle(int r, int c, int nr, int nc)
{
Rect rc;
rc.right = rc.left + nc * gui.char_width;
rc.bottom = rc.top + nr * gui.char_height;
InvertRect(&rc);
-
}
/*
* Iconify the GUI window.
*/
void
-gui_mch_iconify()
+gui_mch_iconify(void)
{
/* TODO: find out what could replace iconify
* -window shade?
* Bring the Vim window to the foreground.
*/
void
-gui_mch_set_foreground()
+gui_mch_set_foreground(void)
{
/* TODO */
}
* Draw a cursor without focus.
*/
void
-gui_mch_draw_hollow_cursor(color)
- guicolor_T color;
+gui_mch_draw_hollow_cursor(guicolor_T color)
{
Rect rc;
* Draw part of a cursor, only w pixels wide, and h pixels high.
*/
void
-gui_mch_draw_part_cursor(w, h, color)
- int w;
- int h;
- guicolor_T color;
+gui_mch_draw_part_cursor(int w, int h, guicolor_T color)
{
Rect rc;
* immediately.
*/
void
-gui_mch_update()
+gui_mch_update(void)
{
/* TODO: find what to do
* maybe call gui_mch_wait_for_chars (0)
* spent inside WaitNextEvent while profiling.
*/
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma profile reset
-#endif
pascal
Boolean
WaitNextEventWrp(EventMask eventMask, EventRecord *theEvent, UInt32 sleep, RgnHandle mouseRgn)
* Returns OK if a character was found to be available within the given time,
* or FAIL otherwise.
*/
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma profile reset
-#endif
int
-gui_mch_wait_for_chars(wtime)
- int wtime;
+gui_mch_wait_for_chars(int wtime)
{
EventMask mask = (everyEvent);
EventRecord event;
sleeppyTick = 32767;
if (WaitNextEventWrp(mask, &event, sleeppyTick, dragRgn))
{
-#ifdef USE_SIOUX
- if (!SIOUXHandleOneEvent(&event))
-#endif
gui_mac_handle_event(&event);
if (input_available())
{
return FAIL;
}
-#if defined(__MWERKS__) /* only in Codewarrior */
-# pragma profile reset
-#endif
-
/*
* Output routines.
*/
/* Flush any output to the screen */
void
-gui_mch_flush()
+gui_mch_flush(void)
{
/* TODO: Is anything needed here? */
}
* (row2, col2) inclusive.
*/
void
-gui_mch_clear_block(row1, col1, row2, col2)
- int row1;
- int col1;
- int row2;
- int col2;
+gui_mch_clear_block(int row1, int col1, int row2, int col2)
{
Rect rc;
* Clear the whole text window.
*/
void
-gui_mch_clear_all()
+gui_mch_clear_all(void)
{
Rect rc;
* text further down within the scroll region.
*/
void
-gui_mch_delete_lines(row, num_lines)
- int row;
- int num_lines;
+gui_mch_delete_lines(int row, int num_lines)
{
Rect rc;
* following text within the scroll region.
*/
void
-gui_mch_insert_lines(row, num_lines)
- int row;
- int num_lines;
+gui_mch_insert_lines(int row, int num_lines)
{
Rect rc;
*/
void
-clip_mch_request_selection(cbd)
- VimClipboard *cbd;
+clip_mch_request_selection(VimClipboard *cbd)
{
Handle textOfClip;
int flavor = 0;
-#ifdef USE_CARBONIZED
Size scrapSize;
ScrapFlavorFlags scrapFlags;
ScrapRef scrap = nil;
OSStatus error;
-#else
- long scrapOffset;
- long scrapSize;
-#endif
int type;
char *searchCR;
char_u *tempclip;
-#ifdef USE_CARBONIZED
error = GetCurrentScrap(&scrap);
if (error != noErr)
return;
}
ReserveMem(scrapSize);
-#else
- /* Call to LoadScrap seem to avoid problem with crash on first paste */
- scrapSize = LoadScrap();
- scrapSize = GetScrap(nil, 'TEXT', &scrapOffset);
- if (scrapSize > 0)
-#endif
{
-#ifdef USE_CARBONIZED
/* In CARBON we don't need a Handle, a pointer is good */
textOfClip = NewHandle(scrapSize);
/* tempclip = lalloc(scrapSize+1, TRUE); */
-#else
- textOfClip = NewHandle(0);
-#endif
HLock(textOfClip);
-#ifdef USE_CARBONIZED
error = GetScrapFlavorData(scrap,
flavor ? VIMSCRAPFLAVOR : kScrapFlavorTypeUnicode,
&scrapSize, *textOfClip);
-#else
- scrapSize = GetScrap(textOfClip, 'TEXT', &scrapOffset);
-#endif
scrapSize -= flavor;
if (flavor)
type = (strchr(*textOfClip, '\r') != NULL) ? MLINE : MCHAR;
tempclip = lalloc(scrapSize + 1, TRUE);
-#if defined(FEAT_MBYTE) && defined(USE_CARBONIZED)
+#if defined(FEAT_MBYTE)
mch_memmove(tempclip, *textOfClip + flavor, scrapSize);
#else
STRNCPY(tempclip, *textOfClip + flavor, scrapSize);
#endif
tempclip[scrapSize] = 0;
-#if defined(FEAT_MBYTE) && defined(USE_CARBONIZED)
+#if defined(FEAT_MBYTE)
/* Convert from utf-16 (clipboard) */
size_t encLen = 0;
char_u *to = mac_utf16_to_enc((UniChar *)tempclip, scrapSize, &encLen);
}
void
-clip_mch_lose_selection(cbd)
- VimClipboard *cbd;
+clip_mch_lose_selection(VimClipboard *cbd)
{
/*
* TODO: Really nothing to do?
}
int
-clip_mch_own_selection(cbd)
- VimClipboard *cbd;
+clip_mch_own_selection(VimClipboard *cbd)
{
return OK;
}
* Send the current selection to the clipboard.
*/
void
-clip_mch_set_selection(cbd)
- VimClipboard *cbd;
+clip_mch_set_selection(VimClipboard *cbd)
{
Handle textOfClip;
long scrapSize;
int type;
-#ifdef USE_CARBONIZED
ScrapRef scrap;
-#endif
char_u *str = NULL;
type = clip_convert_selection(&str, (long_u *) &scrapSize, cbd);
-#if defined(FEAT_MBYTE) && defined(USE_CARBONIZED)
+#if defined(FEAT_MBYTE)
size_t utf16_len = 0;
UniChar *to = mac_enc_to_utf16(str, scrapSize, &utf16_len);
if (to)
if (type >= 0)
{
-#ifdef USE_CARBONIZED
ClearCurrentScrap();
-#else
- ZeroScrap();
-#endif
-#ifdef USE_CARBONIZED
textOfClip = NewHandle(scrapSize + 1);
-#else
- textOfClip = NewHandle(scrapSize);
-#endif
HLock(textOfClip);
-#ifdef USE_CARBONIZED
**textOfClip = type;
mch_memmove(*textOfClip + 1, str, scrapSize);
GetCurrentScrap(&scrap);
scrapSize, *textOfClip + 1);
PutScrapFlavor(scrap, VIMSCRAPFLAVOR, kScrapFlavorMaskNone,
scrapSize + 1, *textOfClip);
-#else
- STRNCPY(*textOfClip, str, scrapSize);
- PutScrap(scrapSize, 'TEXT', *textOfClip);
-#endif
HUnlock(textOfClip);
DisposeHandle(textOfClip);
}
}
void
-gui_mch_set_text_area_pos(x, y, w, h)
- int x;
- int y;
- int w;
- int h;
+gui_mch_set_text_area_pos(int x, int y, int w, int h)
{
Rect VimBound;
/* HideWindow(gui.VimWindow); */
-#ifdef USE_CARBONIZED
GetWindowBounds(gui.VimWindow, kWindowGlobalPortRgn, &VimBound);
-#else
- VimBound = gui.VimWindow->portRect;
-#endif
if (gui.which_scrollbars[SBAR_LEFT])
{
VimBound.left = 0;
}
-#ifdef USE_CARBONIZED
SetWindowBounds(gui.VimWindow, kWindowGlobalPortRgn, &VimBound);
-#endif
ShowWindow(gui.VimWindow);
}
*/
void
-gui_mch_enable_menu(flag)
- int flag;
+gui_mch_enable_menu(int flag)
{
/*
* Menu is always active.
}
void
-gui_mch_set_menu_pos(x, y, w, h)
- int x;
- int y;
- int w;
- int h;
+gui_mch_set_menu_pos(int x, int y, int w, int h)
{
/*
* The menu is always at the top of the screen.
* Add a sub menu to the menu bar.
*/
void
-gui_mch_add_menu(menu, idx)
- vimmenu_T *menu;
- int idx;
+gui_mch_add_menu(vimmenu_T *menu, int idx)
{
/*
* TODO: Try to use only menu_id instead of both menu_id and menu_handle.
*/
static long next_avail_id = 128;
long menu_after_me = 0; /* Default to the end */
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
CFStringRef name;
#else
char_u *name;
menu_after_me = hierMenu;
/* Convert the name */
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
name = menu_title_removing_mnemonic(menu);
#else
name = C2Pascal_save(menu->dname);
return;
/* Create the menu unless it's the help menu */
-#ifdef USE_HELPMENU
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
- if (menu->priority == 9999)
-#else
- if (STRNCMP(name, "\4Help", 5) == 0)
-#endif
- {
- menu->submenu_id = kHMHelpMenuID;
- menu->submenu_handle = gui.MacOSHelpMenu;
- }
- else
-#endif
{
/* Carbon suggest use of
* OSStatus CreateNewMenu(MenuID, MenuAttributes, MenuRef *);
* OSStatus SetMenuTitle(MenuRef, ConstStr255Param title);
*/
menu->submenu_id = next_avail_id;
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
if (CreateNewMenu(menu->submenu_id, 0, (MenuRef *)&menu->submenu_handle) == noErr)
SetMenuTitleWithCFString((MenuRef)menu->submenu_handle, name);
#else
* menubar The Inserted menu are scanned or the Command-key combos
*/
- /* Insert the menu unless it's the Help menu */
-#ifdef USE_HELPMENU
- if (menu->submenu_id != kHMHelpMenuID)
-#endif
- InsertMenu(menu->submenu_handle, menu_after_me); /* insert before */
+ /* Insert the menu */
+ InsertMenu(menu->submenu_handle, menu_after_me); /* insert before */
#if 1
/* Vim should normally update it. TODO: verify */
DrawMenuBar();
* to avoid special character recognition by InsertMenuItem
*/
InsertMenuItem(parent->submenu_handle, "\p ", idx); /* afterItem */
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
SetMenuItemTextWithCFString(parent->submenu_handle, idx+1, name);
#else
SetMenuItemText(parent->submenu_handle, idx+1, name);
InsertMenu(menu->submenu_handle, hierMenu);
}
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
CFRelease(name);
#else
vim_free(name);
* Add a menu item to a menu
*/
void
-gui_mch_add_menu_item(menu, idx)
- vimmenu_T *menu;
- int idx;
+gui_mch_add_menu_item(vimmenu_T *menu, int idx)
{
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
CFStringRef name;
#else
char_u *name;
for older OS call GetMenuItemData (menu, item, isCommandID?, data) */
/* Convert the name */
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
name = menu_title_removing_mnemonic(menu);
#else
name = C2Pascal_save(menu->dname);
menu->submenu_id = 0;
menu->submenu_handle = NULL;
-#ifdef USE_HELPMENU
- /* The index in the help menu are offseted */
- if (parent->submenu_id == kHMHelpMenuID)
- idx += gui.MacOSHelpItems;
-#endif
-
menu_inserted = 0;
if (menu->actext)
{
if (!menu_inserted)
InsertMenuItem(parent->submenu_handle, "\p ", idx); /* afterItem */
/* Set the menu item name. */
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
SetMenuItemTextWithCFString(parent->submenu_handle, idx+1, name);
#else
SetMenuItemText(parent->submenu_handle, idx+1, name);
DrawMenuBar();
#endif
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
CFRelease(name);
#else
/* TODO: Can name be freed? */
}
void
-gui_mch_toggle_tearoffs(enable)
- int enable;
+gui_mch_toggle_tearoffs(int enable)
{
/* no tearoff menus */
}
* Destroy the machine specific menu widget.
*/
void
-gui_mch_destroy_menu(menu)
- vimmenu_T *menu;
+gui_mch_destroy_menu(vimmenu_T *menu)
{
short index = gui_mac_get_menu_item_index(menu);
{
if (menu->parent)
{
-#ifdef USE_HELPMENU
- if (menu->parent->submenu_handle != nil) /*gui.MacOSHelpMenu)*/
-#endif
{
/* For now just don't delete help menu items. (Huh? Dany) */
DeleteMenuItem(menu->parent->submenu_handle, index);
DisposeMenu(menu->submenu_handle);
}
}
-#ifdef USE_HELPMENU
-# ifdef DEBUG_MAC_MENU
- else
- {
- printf("gmdm 1\n");
- }
-# endif
-#endif
}
#ifdef DEBUG_MAC_MENU
else
}
else
{
- /* Do not delete the Help Menu */
-#ifdef USE_HELPMENU
- if (menu->submenu_id != kHMHelpMenuID)
-#endif
{
DeleteMenu(menu->submenu_id);
DisposeMenu(menu->submenu_handle);
* Make a menu either grey or not grey.
*/
void
-gui_mch_menu_grey(menu, grey)
- vimmenu_T *menu;
- int grey;
+gui_mch_menu_grey(vimmenu_T *menu, int grey)
{
/* TODO: Check if menu really exists */
short index = gui_mac_get_menu_item_index(menu);
* Make menu item hidden or not hidden
*/
void
-gui_mch_menu_hidden(menu, hidden)
- vimmenu_T *menu;
- int hidden;
+gui_mch_menu_hidden(vimmenu_T *menu, int hidden)
{
/* There's no hidden mode on MacOS */
gui_mch_menu_grey(menu, hidden);
* This is called after setting all the menus to grey/hidden or not.
*/
void
-gui_mch_draw_menubar()
+gui_mch_draw_menubar(void)
{
DrawMenuBar();
}
*/
void
-gui_mch_enable_scrollbar(sb, flag)
- scrollbar_T *sb;
- int flag;
+gui_mch_enable_scrollbar(
+ scrollbar_T *sb,
+ int flag)
{
if (flag)
ShowControl(sb->id);
}
void
-gui_mch_set_scrollbar_thumb(sb, val, size, max)
- scrollbar_T *sb;
- long val;
- long size;
- long max;
+gui_mch_set_scrollbar_thumb(
+ scrollbar_T *sb,
+ long val,
+ long size,
+ long max)
{
SetControl32BitMaximum (sb->id, max);
SetControl32BitMinimum (sb->id, 0);
}
void
-gui_mch_set_scrollbar_pos(sb, x, y, w, h)
- scrollbar_T *sb;
- int x;
- int y;
- int w;
- int h;
+gui_mch_set_scrollbar_pos(
+ scrollbar_T *sb,
+ int x,
+ int y,
+ int w,
+ int h)
{
gui_mch_set_bg_color(gui.back_pixel);
/* if (gui.which_scrollbars[SBAR_LEFT])
}
void
-gui_mch_create_scrollbar(sb, orient)
- scrollbar_T *sb;
- int orient; /* SBAR_VERT or SBAR_HORIZ */
+gui_mch_create_scrollbar(
+ scrollbar_T *sb,
+ int orient) /* SBAR_VERT or SBAR_HORIZ */
{
Rect bounds;
0, /* current*/
0, /* top */
0, /* bottom */
-#ifdef USE_CARBONIZED
kControlScrollBarLiveProc,
-#else
- scrollBarProc,
-#endif
(long) sb->ident);
#ifdef DEBUG_MAC_SB
printf("create_sb (%x) %x\n",sb->id, orient);
}
void
-gui_mch_destroy_scrollbar(sb)
- scrollbar_T *sb;
+gui_mch_destroy_scrollbar(scrollbar_T *sb)
{
gui_mch_set_bg_color(gui.back_pixel);
DisposeControl(sb->id);
* Stop the cursor blinking. Show the cursor if it wasn't shown.
*/
void
-gui_mch_stop_blink()
+gui_mch_stop_blink(void)
{
gui_update_cursor(TRUE, FALSE);
/* TODO: TODO: TODO: TODO: */
* waiting time and shows the cursor.
*/
void
-gui_mch_start_blink()
+gui_mch_start_blink(void)
{
gui_update_cursor(TRUE, FALSE);
/* TODO: TODO: TODO: TODO: */
char_u *initdir,
char_u *filter)
{
-#if defined (USE_NAVIGATION_SERVICE) || defined (USE_CARBONIZED)
/* TODO: Add Ammon's safety checl (Dany) */
NavReplyRecord reply;
char_u *fname = NULL;
/* TODO: Shorten the file name if possible */
return fname;
-#else
- SFTypeList fileTypes;
- StandardFileReply reply;
- Str255 Prompt;
- Str255 DefaultName;
- Str255 Directory;
-
- /* TODO: split dflt in path and filename */
-
- (void) C2PascalString(title, &Prompt);
- (void) C2PascalString(dflt, &DefaultName);
- (void) C2PascalString(initdir, &Directory);
-
- if (saving)
- {
- /* Use a custon filter instead of nil FAQ 9-4 */
- StandardPutFile(Prompt, DefaultName, &reply);
- if (!reply.sfGood)
- return NULL;
- }
- else
- {
- StandardGetFile(nil, -1, fileTypes, &reply);
- if (!reply.sfGood)
- return NULL;
- }
-
- /* Work fine but append a : for new file */
- return (FullPathFromFSSpec_save(reply.sfFile));
-
- /* Shorten the file name if possible */
-/* mch_dirname(IObuff, IOSIZE);
- p = shorten_fname(fileBuf, IObuff);
- if (p == NULL)
- p = fileBuf;
- return vim_strsave(p);
-*/
-#endif
}
#endif /* FEAT_BROWSE */
SetDialogItemText(itemHandle, itemName);
}
+/* TODO: There have been some crashes with dialogs, check your inbox
+ * (Jussi)
+ */
int
gui_mch_dialog(
int type,
/* Change the graphical port to the dialog,
* so we can measure the text with the proper font */
GetPort(&oldPort);
-#ifdef USE_CARBONIZED
SetPortDialogPort(theDialog);
-#else
- SetPort(theDialog);
-#endif
/* Get the info about the default text,
* used to calculate the height of the message
dialogHeight = box.bottom + dfltElementSpacing;
SizeWindow(theWindow, maximumWidth, dialogHeight, TRUE);
-#ifdef USE_CARBONIZED
/* Magic resize */
AutoSizeDialog(theDialog);
/* Need a horizontal resize anyway so not that useful */
-#endif
/* Display it */
ShowWindow(theWindow);
/* DrawDialog(theDialog); */
#if 0
GetPort(&oldPort);
-#ifdef USE_CARBONIZED
SetPortDialogPort(theDialog);
-#else
- SetPort(theDialog);
-#endif
#endif
/* Hang until one of the button is hit */
*/
#ifdef USE_MCH_ERRMSG
void
-display_errors()
+display_errors(void)
{
char *p;
char_u pError[256];
- if (error_ga.ga_data != NULL)
- {
- /* avoid putting up a message box with blanks only */
- for (p = (char *)error_ga.ga_data; *p; ++p)
- if (!isspace(*p))
- {
- if (STRLEN(p) > 255)
- pError[0] = 255;
- else
- pError[0] = STRLEN(p);
+ if (error_ga.ga_data == NULL)
+ return;
- STRNCPY(&pError[1], p, pError[0]);
- ParamText(pError, nil, nil, nil);
- Alert(128, nil);
- break;
- /* TODO: handled message longer than 256 chars
- * use auto-sizeable alert
- * or dialog with scrollbars (TextEdit zone)
- */
- }
- ga_clear(&error_ga);
- }
+ /* avoid putting up a message box with blanks only */
+ for (p = (char *)error_ga.ga_data; *p; ++p)
+ if (!isspace(*p))
+ {
+ if (STRLEN(p) > 255)
+ pError[0] = 255;
+ else
+ pError[0] = STRLEN(p);
+
+ STRNCPY(&pError[1], p, pError[0]);
+ ParamText(pError, nil, nil, nil);
+ Alert(128, nil);
+ break;
+ /* TODO: handled message longer than 256 chars
+ * use auto-sizeable alert
+ * or dialog with scrollbars (TextEdit zone)
+ */
+ }
+ ga_clear(&error_ga);
}
#endif
}
void
-gui_mch_setmouse(x, y)
- int x;
- int y;
+gui_mch_setmouse(int x, int y)
{
/* TODO */
#if 0
}
void
-gui_mch_show_popupmenu(menu)
- vimmenu_T *menu;
+gui_mch_show_popupmenu(vimmenu_T *menu)
{
-#ifdef USE_CTRLCLICKMENU
/*
* Clone PopUp to use menu
* Create a object descriptor for the current selection
/* Restore original Port */
SetPort(savePort); /*OSX*/
-#endif
}
#if defined(FEAT_CW_EDITOR) || defined(PROTO)
void
mch_post_buffer_write(buf_T *buf)
{
-# ifdef USE_SIOUX
- printf("Writing Buf...\n");
-# endif
GetFSSpecFromPath(buf->b_ffname, &buf->b_FSSpec);
Send_KAHL_MOD_AE(buf);
}
* (The icon is not taken care of).
*/
void
-gui_mch_settitle(title, icon)
- char_u *title;
- char_u *icon;
+gui_mch_settitle(char_u *title, char_u *icon)
{
/* TODO: Get vim to make sure maxlen (from p_titlelen) is smaller
* that 256. Even better get it to fit nicely in the titlebar.
*/
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
CFStringRef windowTitle;
size_t windowTitleLen;
#else
if (title == NULL) /* nothing to do */
return;
-#if defined(USE_CARBONIZED) && defined(FEAT_MBYTE)
+#if defined(FEAT_MBYTE)
windowTitleLen = STRLEN(title);
windowTitle = mac_enc_to_cfstring(title, windowTitleLen);
*/
int
-C2PascalString(CString, PascalString)
- char_u *CString;
- Str255 *PascalString;
+C2PascalString(char_u *CString, Str255 *PascalString)
{
char_u *PascalPtr = (char_u *) PascalString;
int len;
}
int
-GetFSSpecFromPath(file, fileFSSpec)
- char_u *file;
- FSSpec *fileFSSpec;
+GetFSSpecFromPath(char_u *file, FSSpec *fileFSSpec)
{
/* From FAQ 8-12 */
Str255 filePascal;
* Get IM status. When IM is on, return not 0. Else return 0.
*/
int
-im_get_status()
+im_get_status(void)
{
SInt32 script = GetScriptManagerVariable(smKeyScript);
return (script != smRoman
projects / vim / commitdiff