#define MIN_DOC_SIZE 64
#define MAX_DOC_SIZE 32767
+#if 0
/* sleep time for WaitNextEvent */
#define WNE_SLEEP_AT_SUSPEND 10
#define WNE_SLEEP_AT_RESUME 1
-/* true when cannot handle any Mac OS events */
-static int handling_window_update = 0;
-
-#if 0
/* the flag appl_is_suspended is used both for determining the sleep
time to be passed to WaitNextEvent and whether the cursor should be
drawn when updating the display. The cursor is turned off when
#define ABOUT_ALERT_ID 128
#define RAM_TOO_LARGE_ALERT_ID 129
-Boolean terminate_flag = false;
-
/* Contains the string "reverse", which is a constant for mouse button emu.*/
Lisp_Object Qreverse;
static DragReceiveHandlerUPP mac_do_receive_dragUPP = NULL;
#endif
+static Lisp_Object Qapplication, Qabout;
#if USE_CARBON_EVENTS
#ifdef MAC_OSX
-/* Preliminary Support for the OSX Services Menu */
-static OSStatus mac_handle_service_event (EventHandlerCallRef,EventRef,void*);
-static void init_service_handler ();
+extern void init_service_handler ();
+static Lisp_Object Qpreferences, Qservices, Qpaste, Qperform;
#endif
/* Window Event Handler */
static pascal OSStatus mac_handle_window_event (EventHandlerCallRef,
SetMenuBar (menubar_handle);
DrawMenuBar ();
+#if !TARGET_API_MAC_CARBON
menu_handle = GetMenuHandle (M_APPLE);
if(menu_handle != NULL)
AppendResMenu (menu_handle,'DRVR');
else
abort ();
+#endif
}
{
Rect r;
- handling_window_update = 1;
-
#if TARGET_API_MAC_CARBON
{
RgnHandle region = NewRgn ();
expose_frame (f, r.left, r.top, r.right - r.left, r.bottom - r.top);
UpdateControls (win, win->visRgn);
#endif
-
- handling_window_update = 0;
}
}
menu_id = HiWord (menu_choice);
menu_item = LoWord (menu_choice);
- if (menu_id == 0)
- return;
-
switch (menu_id)
{
+ case 0:
+ break;
+
case M_APPLE:
do_apple_menu (menu_item);
break;
abort ();
}
-#if USE_CARBON_EVENTS
-#ifdef MAC_OSX
void
-init_service_handler ()
+mac_store_application_menu_event (event)
+#if USE_CARBON_EVENTS
+ EventRef event;
+#else
+ UInt32 event;
+#endif
{
- EventTypeSpec specs[] = {{kEventClassService, kEventServiceGetTypes},
- {kEventClassService, kEventServiceCopy},
- {kEventClassService, kEventServicePaste}};
- InstallApplicationEventHandler (NewEventHandlerUPP (mac_handle_service_event),
- 3, specs, NULL, NULL);
-}
+ struct input_event buf;
+ Lisp_Object frame, entry;
-/*
- MAC_TODO: Check to see if this is called by AEProcessDesc...
- */
-OSStatus
-mac_handle_service_event (EventHandlerCallRef callRef,
- EventRef event, void *data)
-{
- OSStatus err = noErr;
- switch (GetEventKind (event))
- {
- case kEventServiceGetTypes:
- {
- CFMutableArrayRef copyTypes, pasteTypes;
- CFStringRef type;
- Boolean selection = true;
- /*
- GetEventParameter(event, kEventParamServicePasteTypes,
- typeCFMutableArrayRef, NULL,
- sizeof (CFMutableArrayRef), NULL, &pasteTypes);
- */
- GetEventParameter(event, kEventParamServiceCopyTypes,
- typeCFMutableArrayRef, NULL,
- sizeof (CFMutableArrayRef), NULL, ©Types);
- type = CreateTypeStringWithOSType (kScrapFlavorTypeText);
- if (type) {
- CFArrayAppendValue (copyTypes, type);
- //CFArrayAppendValue (pasteTypes, type);
- CFRelease (type);
- }
- }
- case kEventServiceCopy:
- {
- ScrapRef currentScrap, specificScrap;
- char * buf = "";
- Size byteCount = 0;
+ EVENT_INIT (buf);
- GetCurrentScrap (¤tScrap);
+ XSETFRAME (frame, mac_focus_frame (&one_mac_display_info));
+ buf.kind = MENU_BAR_EVENT;
+ buf.frame_or_window = frame;
+ buf.arg = frame;
+ kbd_buffer_store_event (&buf);
- err = GetScrapFlavorSize (currentScrap, kScrapFlavorTypeText, &byteCount);
- if (err == noErr)
+ buf.arg = Qapplication;
+ kbd_buffer_store_event (&buf);
+
+#if USE_CARBON_EVENTS
+ switch (GetEventClass (event))
+ {
+#ifdef MAC_OSX
+ case kEventClassService:
+ buf.arg = Qservices;
+ kbd_buffer_store_event (&buf);
+ switch (GetEventKind (event))
+ {
+ case kEventServicePaste:
+ entry = Qpaste;
+ break;
+
+ case kEventServicePerform:
{
- void *buffer = xmalloc (byteCount);
- if (buffer != NULL)
- {
- GetEventParameter (event, kEventParamScrapRef, typeScrapRef, NULL,
- sizeof (ScrapRef), NULL, &specificScrap);
-
- err = GetScrapFlavorData (currentScrap, kScrapFlavorTypeText,
- &byteCount, buffer);
- if (err == noErr)
- PutScrapFlavor (specificScrap, kScrapFlavorTypeText,
- kScrapFlavorMaskNone, byteCount, buffer);
- xfree (buffer);
- }
+ OSErr err;
+ CFStringRef message;
+
+ err = GetEventParameter (event, kEventParamServiceMessageName,
+ typeCFStringRef, NULL,
+ sizeof (CFStringRef), NULL, &message);
+ buf.arg = Qperform;
+ kbd_buffer_store_event (&buf);
+ if (err == noErr && message)
+ entry = intern (SDATA (cfstring_to_lisp (message)));
+ else
+ entry = Qnil;
}
- err = noErr;
- }
- case kEventServicePaste:
+ break;
+
+ default:
+ abort ();
+ }
+ break;
+#endif /* MAC_OSX */
+ case kEventClassCommand:
{
- /*
- // Get the current location
- Size byteCount;
- ScrapRef specificScrap;
- GetEventParameter(event, kEventParamScrapRef, typeScrapRef, NULL,
- sizeof(ScrapRef), NULL, &specificScrap);
- err = GetScrapFlavorSize(specificScrap, kScrapFlavorTypeText, &byteCount);
- if (err == noErr) {
- void * buffer = xmalloc(byteCount);
- if (buffer != NULL ) {
- err = GetScrapFlavorData(specificScrap, kScrapFlavorTypeText,
- &byteCount, buffer);
- if (err == noErr) {
- // Actually place in the buffer
- BLOCK_INPUT;
- // Get the current "selection" string here
- UNBLOCK_INPUT;
- }
+ HICommand command;
+
+ GetEventParameter(event, kEventParamDirectObject, typeHICommand,
+ NULL, sizeof (HICommand), NULL, &command);
+ switch (command.commandID)
+ {
+ case kHICommandAbout:
+ entry = Qabout;
+ break;
+#ifdef MAC_OSX
+ case kHICommandPreferences:
+ entry = Qpreferences;
+ break;
+#endif /* MAC_OSX */
+ case kHICommandQuit:
+ entry = Qquit;
+ break;
+ default:
+ abort ();
}
- xfree(buffer);
- }
- */
}
+ break;
+
+ default:
+ abort ();
+ }
+#else /* USE_CARBON_EVENTS */
+ switch (event)
+ {
+ case kHICommandAbout:
+ entry = Qabout;
+ break;
+ case kHICommandQuit:
+ entry = Qquit;
+ break;
+ default:
+ abort ();
}
- return err;
-}
#endif
+ buf.arg = entry;
+ kbd_buffer_store_event (&buf);
+}
+
+#if USE_CARBON_EVENTS
+static pascal OSStatus
+mac_handle_command_event (next_handler, event, data)
+ EventHandlerCallRef next_handler;
+ EventRef event;
+ void *data;
+{
+ HICommand command;
+ OSErr result;
+
+ GetEventParameter(event, kEventParamDirectObject, typeHICommand, NULL,
+ sizeof (HICommand), NULL, &command);
+
+ switch (command.commandID)
+ {
+ case kHICommandAbout:
+#ifdef MAC_OSX
+ case kHICommandPreferences:
+#endif /* MAC_OSX */
+ result = CallNextEventHandler (next_handler, event);
+ if (result != eventNotHandledErr)
+ return result;
+
+ mac_store_application_menu_event (event);
+ return noErr;
+
+ default:
+ break;
+ }
+
+ return eventNotHandledErr;
+}
+
+static OSErr
+init_command_handler (window)
+ WindowPtr window;
+{
+ OSErr err = noErr;
+ EventTypeSpec specs[] = {{kEventClassCommand, kEventCommandProcess}};
+ static EventHandlerUPP handle_command_eventUPP = NULL;
+
+ if (handle_command_eventUPP == NULL)
+ handle_command_eventUPP = NewEventHandlerUPP (mac_handle_command_event);
+ return InstallApplicationEventHandler (handle_command_eventUPP,
+ GetEventTypeCount (specs), specs,
+ NULL, NULL);
+}
+
static pascal OSStatus
mac_handle_window_event (next_handler, event, data)
EventHandlerCallRef next_handler;
return result;
do_window_update (wp);
- break;
+ return noErr;
case kEventWindowBoundsChanging:
result = CallNextEventHandler (next_handler, event);
static pascal OSErr
do_ae_quit_application (AppleEvent* message, AppleEvent *reply, long refcon)
{
- /* FixMe: Do we need an unwind-protect or something here? And what
- do we do about unsaved files. Currently just forces quit rather
- than doing recursive callback to get user input. */
+#if USE_CARBON_EVENTS
+ OSErr err;
+ EventRef event = NULL;
+ static const HICommand quit_command = {kEventAttributeNone, kHICommandQuit};
- terminate_flag = true;
+ err = CreateEvent (NULL, kEventClassCommand, kEventCommandProcess, 0,
+ kEventAttributeUserEvent, &event);
+ if (err == noErr)
+ err = SetEventParameter (event, kEventParamDirectObject, typeHICommand,
+ sizeof (HICommand), &quit_command);
+ if (err == noErr)
+ mac_store_application_menu_event (event);
+ if (event)
+ ReleaseEvent (event);
+
+ if (err == noErr)
+ return noErr;
+ else
+ return errAEEventNotHandled;
+#else
+ mac_store_application_menu_event (kHICommandQuit);
- /* Fkill_emacs doesn't return. We have to return. (TI) */
return noErr;
+#endif
}
/* So people can tell when we have read the available input. */
input_signal_count++;
- /* Don't poll for events to process (specifically updateEvt) if
- window update currently already in progress. A call to redisplay
- (in do_window_update) can be preempted by another call to
- redisplay, causing blank regions to be left on the screen and the
- cursor to be left at strange places. */
- if (handling_window_update)
- {
- UNBLOCK_INPUT;
- return 0;
- }
-
- if (terminate_flag)
- Fkill_emacs (make_number (1));
-
#if USE_CARBON_EVENTS
toolbox_dispatcher = GetEventDispatcherTarget ();
kbd_buffer_store_event (&e);
}
}
-
#endif /* MAC_OSX */
+static void
+init_menu_bar ()
+{
+#ifdef MAC_OSX
+ OSErr err;
+ MenuRef menu;
+ MenuItemIndex menu_index;
+
+ err = GetIndMenuItemWithCommandID (NULL, kHICommandQuit, 1,
+ &menu, &menu_index);
+ if (err == noErr)
+ SetMenuItemCommandKey (menu, menu_index, false, 0);
+#if USE_CARBON_EVENTS
+ EnableMenuCommand (NULL, kHICommandPreferences);
+ err = GetIndMenuItemWithCommandID (NULL, kHICommandPreferences, 1,
+ &menu, &menu_index);
+ if (err == noErr)
+ {
+ SetMenuItemCommandKey (menu, menu_index, false, 0);
+ InsertMenuItemTextWithCFString (menu, NULL,
+ 0, kMenuItemAttrSeparator, 0);
+ InsertMenuItemTextWithCFString (menu, CFSTR ("About Emacs"),
+ 0, 0, kHICommandAbout);
+ }
+#endif /* USE_CARBON_EVENTS */
+#else /* !MAC_OSX */
+#if USE_CARBON_EVENTS
+ SetMenuItemCommandID (GetMenuHandle (M_APPLE), I_ABOUT, kHICommandAbout);
+#endif
+#endif
+}
+
+
/* Set up use of X before we make the first connection. */
extern frame_parm_handler mac_frame_parm_handlers[];
#if TARGET_API_MAC_CARBON
init_required_apple_events ();
-#if USE_CARBON_EVENTS && defined (MAC_OSX)
+#if USE_CARBON_EVENTS
+#ifdef MAC_OSX
init_service_handler ();
init_quit_char_handler ();
-#endif
+#endif /* MAC_OSX */
- DisableMenuCommand (NULL, kHICommandQuit);
+ init_command_handler ();
+
+ init_menu_bar ();
+#endif /* USE_CARBON_EVENTS */
#ifdef MAC_OSX
if (!inhibit_window_system)
Qsuper = intern ("super");
Fput (Qsuper, Qmodifier_value, make_number (super_modifier));
+ Qapplication = intern ("application"); staticpro (&Qapplication);
+ Qabout = intern ("about"); staticpro (&Qabout);
+
+#if USE_CARBON_EVENTS && defined (MAC_OSX)
+ Qpreferences = intern ("preferences"); staticpro (&Qpreferences);
+ Qservices = intern ("services"); staticpro (&Qservices);
+ Qpaste = intern ("paste"); staticpro (&Qpaste);
+ Qperform = intern ("perform"); staticpro (&Qperform);
+#endif
+
#ifdef MAC_OSX
Fprovide (intern ("mac-carbon"), Qnil);
#endif