bug#5871: [Aquamacs-bugs] Re: yes-or-no-p menu

[YAMAMOTO Mitsuharu]

>>>>> On Sat, 4 Jun 2005 09:04:02 +0200, jhd <jan.h.d@swipnet.se> said:

> But I would also like C-g to do a quit as it does on X11, but I
> could not find a way to make PopUpMenuSelect return and pop down the
> menu form within an event handler function.  Anybody knows how to do
> that?

Installing a Carbon Event handler on a menu seems to work, but only
for Mac OS X 10.3 and later because CancelMenuTracking is not
available on earlier versions.

                                     YAMAMOTO Mitsuharu
                                mituharu@math.s.chiba-u.ac.jp

static pascal OSStatus
mac_handle_menu_event (next_handler, event, data)
     EventHandlerCallRef next_handler;
     EventRef event;
     void *data;
{
  MenuRef menu = data;

  switch (GetEventKind (event))
    {
    case kEventRawKeyDown:
      {
        char c;

        GetEventParameter (event, kEventParamKeyMacCharCodes, typeChar,
                           NULL, sizeof (char), NULL, &c);
        if (c == 7)             /* C-g */
          {
            CancelMenuTracking (menu, true, 0);

            return noErr;
          }
        else
          return CallNextEventHandler (next_handler, event);
      }
      break;

    default:
      break;
    }

  return eventNotHandledErr;
}

static OSErr
install_menu_handler (menu)
     MenuRef menu;
{
  EventTypeSpec specs[] = {{kEventClassKeyboard, kEventRawKeyDown}};

  return InstallMenuEventHandler (menu, mac_handle_menu_event,
                                  GetEventTypeCount (specs), specs,
                                  menu, NULL);
}