comparison src/w32menu.c @ 48375:4d7b83cc03aa

Added a partial implementation of play-sound-internal for Windows. Fixed the following entry in etc/PROBLEMS: Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs built on XP crashes at startup on Windows 9x/ME.

48374:a6f9803f174f

#define FALSE 0
#endif /* no TRUE */

static HMENU current_popup_menu;

FARPROC get_menu_item_info;
FARPROC set_menu_item_info;

Lisp_Object Vmenu_updating_frame;

Lisp_Object Qdebug_on_next_call;

void
initialize_frame_menubar (f)
     FRAME_PTR f;
{
  /* This function is called before the first chance to redisplay
     the frame.  It has to be, so the frame will have the right size.  */
  FRAME_MENU_BAR_ITEMS (f) = menu_bar_items (FRAME_MENU_BAR_ITEMS (f));
  set_frame_menubar (f, 1, 1);
}

  current_popup_menu = NULL;
}

#endif /* HAVE_MENUS */


syms_of_w32menu ()
{
  /* See if Get/SetMenuItemInfo functions are available.  */
  HMODULE user32 = GetModuleHandle ("user32.dll");
  get_menu_item_info = GetProcAddress (user32, "GetMenuItemInfoA");
  set_menu_item_info = GetProcAddress (user32, "SetMenuItemInfoA");

  staticpro (&menu_items);
  menu_items = Qnil;

  current_popup_menu = NULL;

48375:4d7b83cc03aa

#define FALSE 0
#endif /* no TRUE */

static HMENU current_popup_menu;

void syms_of_w32menu ();

typedef BOOL (WINAPI * GetMenuItemInfoA_Proc) (
    IN HMENU,
    IN UINT,
    IN BOOL,
    IN OUT LPMENUITEMINFOA
    );
typedef BOOL (WINAPI * SetMenuItemInfoA_Proc) (
    IN HMENU,
    IN UINT,
    IN BOOL,
    IN LPCMENUITEMINFOA
    );

GetMenuItemInfoA_Proc get_menu_item_info=NULL;
SetMenuItemInfoA_Proc set_menu_item_info=NULL;

Lisp_Object Vmenu_updating_frame;

Lisp_Object Qdebug_on_next_call;

void
initialize_frame_menubar (f)
     FRAME_PTR f;
{
  HMODULE user32 = GetModuleHandle ("user32.dll");
  /*
    Reinitialize the function pointers set_menu_item_info and
    get_menu_item_info here.
    Even though these function pointers are initialized in
    syms_of_w32menu which is called from main (emacs.c),
    we need to initialize them again here in order to prevent
    a crash that occurs in Windows 9x (possibly only when Emacs
    was built on Windows NT / 2000 / XP?) in add_menu_item.
    The crash occurs when attempting to call the Win32 API
    function SetMenuItemInfo through the function pointer.
    It appears as if the function pointer that is obtained when
    syms_of_w32menu is called from main is no longer valid
    (possibly due to DLL relocation?).
    To resolve this issue, I have placed calls to reinitialize
    these function pointers here because this function is the
    entry point for menu creation.
   */
  get_menu_item_info = (GetMenuItemInfoA_Proc) GetProcAddress (user32, "GetMenuItemInfoA");
  set_menu_item_info = (SetMenuItemInfoA_Proc) GetProcAddress (user32, "SetMenuItemInfoA");
  /* This function is called before the first chance to redisplay
     the frame.  It has to be, so the frame will have the right size.  */
  FRAME_MENU_BAR_ITEMS (f) = menu_bar_items (FRAME_MENU_BAR_ITEMS (f));
  set_frame_menubar (f, 1, 1);
}

  current_popup_menu = NULL;
}

#endif /* HAVE_MENUS */

void syms_of_w32menu ()
{
  /* See if Get/SetMenuItemInfo functions are available.  */
  HMODULE user32 = GetModuleHandle ("user32.dll");
  get_menu_item_info = (GetMenuItemInfoA_Proc) GetProcAddress (user32, "GetMenuItemInfoA");
  set_menu_item_info = (SetMenuItemInfoA_Proc) GetProcAddress (user32, "SetMenuItemInfoA");

  staticpro (&menu_items);
  menu_items = Qnil;

  current_popup_menu = NULL;