Changeset 1661

Timestamp:

02/17/98 01:45:16 (11 years ago)

Author:

himi

Message:

FSF Emacs 20.7 imported

Files:

• branches/GNU/src/w32menu.c (modified) (73 diffs)

branches/GNU/src/w32menu.c

@@ -1 +1 @@
-/* Menu support for GNU Emacs on the Microsoft W32 API.
-88, 93, 94, 96, 98, 1999
+1988, 1993, 1994, 1996, 1998
-
-This file is part of GNU Emacs.
@@ -19 +19 @@
-Boston, MA 02111-1307, USA.  */
-
+#include <signal.h>
-#include <config.h>
-#include <signal.h>
-
-#include <stdio.h>
-#include "lisp.h"
-#include "termhooks.h"
-#include "keyboard.h"
-#include "frame.h"
-#include "window.h"
+#include "keyboard.h"
-#include "blockinput.h"
-#include "buffer.h"
@@ -46 +46 @@
-
-#undef HAVE_MULTILINGUAL_MENU
-#undef HAVE_DIALOGS /* TODO: Implement native dialogs.  */
-
-/******************************************************************/
@@ -54 +53 @@
-typedef char Boolean;
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-
-typedef struct _widget_value
@@ -69 +72 @@
-  /* keyboard equivalent. no implications for XtTranslations */ 
-  char*         key;
-  /* Help string or null if none.  */
-  char          *help;
-  /* true if enabled */
-  Boolean       enabled;
-  /* true if selected */
-  Boolean       selected;
-  /* The type of a button.  */
-  enum button_type button_type;
-  /* true if menu title */
-  Boolean       title;
@@ -140 +139 @@
-void set_frame_menubar ();
-
-
-
-
+
-static Lisp_Object w32_dialog_show ();
-static Lisp_Object w32_menu_show ();
-
-static void keymap_panes ();
@@ -178 +174 @@
-#define MENU_ITEMS_PANE_LENGTH 3
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
-
-static Lisp_Object menu_items;
@@ -210 +200 @@
-static int popup_activated_flag;
-
-static int next_menubar_widget_id;
-
-/* This is set nonzero after the user activates the menu bar, and set
-   to zero again after the menu bars are redisplayed by prepare_menu_bar.
@@ -223 +211 @@
-
-/* Return the frame whose ->output_data.w32->menubar_widget equals
-ID
+MENU
-
-static struct frame *
-
-
+
-{
-  Lisp_Object tail, frame;
-  FRAME_PTR f;
-
-DR (tail)
-
-AR (tail)
+ONS (tail)->cdr
+
+ONS (tail)->car
-      if (!GC_FRAMEP (frame))
-        continue;
-      f = XFRAME (frame);
-!FRAME_WINDOW_P (f)
+f->output_data.nothing == 1
-        continue;
-id
+menu
-        return f;
-    }
@@ -353 +340 @@
-}
-
-  NAME is the string to
-display.  ENABLE if non-nil means this item can be selected.  KEY
-is the key generated by choosing this item, or nil if this item
-doesn't really have a definition.  DEF is the definition of this
-item.  EQUIV is the textual description of the keyboard equivalent
-for this item (or nil if none).  TYPE is the type of this menu
-item, one of nil, `toggle' or `radio'.
+
+NAME is the string to display.  ENABLE if non-nil means
+this item can be selected.  KEY is the key generated by
+choosing this item, or nil if this item doesn't really have a definition.
+DEF is the definition of this item.
+EQUIV is the textual description of the keyboard equivalent for
+this item (or nil if none). 
-
-static void
-, type, selected, help
-, type, selected, help
+
+
-{
-  if (menu_items_used + MENU_ITEMS_ITEM_LENGTH > menu_items_allocated)
@@ -373 +360 @@
-  XVECTOR (menu_items)->contents[menu_items_used++] = equiv;
-  XVECTOR (menu_items)->contents[menu_items_used++] = def;
-  XVECTOR (menu_items)->contents[menu_items_used++] = type;
-  XVECTOR (menu_items)->contents[menu_items_used++] = selected;
-  XVECTOR (menu_items)->contents[menu_items_used++] = help;
-}
-
@@ -397 +381 @@
-     P is the number of panes we have made so far.  */
-  for (mapno = 0; mapno < nmaps; mapno++)
-
-
+
-
-  finish_menu_items ();
@@ -423 +406 @@
-  Lisp_Object tail, item;
-  struct gcpro gcpro1, gcpro2;
+  int notbuttons = 0;
-
-  if (maxdepth <= 0)
@@ -429 +413 @@
-  push_menu_pane (pane_name, prefix);
-
-
+
+
+
+
+
+
+
+
+
-    {
-      GCPRO2 (keymap, pending_maps);
-      /* Look at each key binding, and if it is a menu item add it
-         to this menu.  */
-AR (tail)
+ONS (tail)->car
-      if (CONSP (item))
-AR (item), XCDR (item)
-
+ONS (item)->car, XCONS (item)->cdr
+, &notbuttons
-      else if (VECTORP (item))
-        {
@@ -448 +440 @@
-              XSETFASTINT (character, c);
-              single_menu_item (character, XVECTOR (item)->contents[c],
-
+, &notbuttons
-            }
-        }
@@ -459 +451 @@
-      Lisp_Object elt, eltcdr, string;
-      elt = Fcar (pending_maps);
-DR (elt)
-AR (eltcdr)
+ONS (elt)->cdr
+ONS (eltcdr)->car
-      /* We no longer discard the @ from the beginning of the string here.
-         Instead, we do this in w32_menu_show.  */
-      single_keymap_panes (Fcar (elt), string,
-DR (eltcdr)
+ONS (eltcdr)->cdr
-      pending_maps = Fcdr (pending_maps);
-    }
@@ -476 +468 @@
-   If NOTREAL is nonzero, only check for equivalent key bindings, don't
-   evaluate expressions in menu items and don't make any menu.
-
+
+
+
+
-
-static void
-
+
+
-     Lisp_Object key, item;
-     Lisp_Object *pending_maps_ptr;
-     int maxdepth, notreal;
-
-
+
+
+
-  struct gcpro gcpro1, gcpro2;
-  int res;
@@ -518 +515 @@
-    }
-
+#ifndef HAVE_BOXES
+  /* Simulate radio buttons and toggle boxes by putting a prefix in
+     front of them.  */
+  {
+    Lisp_Object prefix = Qnil;
+    Lisp_Object type = XVECTOR (item_properties)->contents[ITEM_PROPERTY_TYPE];
+    if (!NILP (type))
+      {
+        Lisp_Object selected
+          = XVECTOR (item_properties)->contents[ITEM_PROPERTY_SELECTED];
+
+        if (*notbuttons_ptr)
+          /* The first button. Line up previous items in this menu.  */
+          {
+            int index = *notbuttons_ptr; /* Index for first item this menu.  */
+            int submenu = 0;
+            Lisp_Object tem;
+            while (index < menu_items_used)
+              {
+                tem
+                  = XVECTOR (menu_items)->contents[index + MENU_ITEMS_ITEM_NAME];
+                if (NILP (tem))
+                  {
+                    index++;
+                    submenu++;          /* Skip sub menu.  */
+                  }
+                else if (EQ (tem, Qlambda))
+                  {
+                    index++;
+                    submenu--;          /* End sub menu.  */
+                  }
+                else if (EQ (tem, Qt))
+                  index += 3;           /* Skip new pane marker. */
+                else if (EQ (tem, Qquote))
+                  index++;              /* Skip a left, right divider. */
+                else
+                  {
+                    if (!submenu && XSTRING (tem)->data[0] != '\0'
+                        && XSTRING (tem)->data[0] != '-')
+                      XVECTOR (menu_items)->contents[index + MENU_ITEMS_ITEM_NAME]
+                        = concat2 (build_string ("    "), tem);
+                    index += MENU_ITEMS_ITEM_LENGTH;
+                  }
+              }
+            *notbuttons_ptr = 0;
+          }
+
+        /* Calculate prefix, if any, for this item.  */
+        if (EQ (type, QCtoggle))
+          prefix = build_string (NILP (selected) ? "[ ] " : "[X] ");
+        else if (EQ (type, QCradio))
+          prefix = build_string (NILP (selected) ? "( ) " : "(*) ");
+      }
+    /* Not a button. If we have earlier buttons, then we need a prefix.  */
+    else if (!*notbuttons_ptr && XSTRING (item_string)->data[0] != '\0'
+             && XSTRING (item_string)->data[0] != '-')
+      prefix = build_string ("    ");
+
+    if (!NILP (prefix))
+      item_string = concat2 (prefix, item_string);
+  }
+#endif /* not HAVE_BOXES */
+ 
+#if 0
+  if (!NILP(map))
+    /* Indicate visually that this is a submenu.  */
+    item_string = concat2 (item_string, build_string (" >"));
+#endif
+
-  push_menu_item (item_string, enabled, key,
-                  XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF],
-
-
-
-
-
+
+
+
-  /* Display a submenu using the toolkit.  */
-  if (! (NILP (map) || NILP (enabled)))
@@ -532 +596 @@
-      push_submenu_end ();
-    }
+#endif
-}
-
@@ -573 +638 @@
-      item = Fcar (tail);
-      if (STRINGP (item))
-, Qnil, Qnil, Qnil
+
-      else if (NILP (item))
-        push_left_right_boundary ();
@@ -581 +646 @@
-          item1 = Fcar (item);
-          CHECK_STRING (item1, 1);
-, Qnil, Qnil, Qnil
+
-        }
-    }
@@ -622 +687 @@
-     Lisp_Object position, menu;
-{
+  int number_of_panes, panes;
-  Lisp_Object keymap, tem;
-  int xpos, ypos;
@@ -627 +693 @@
-  char *error_name;
-  Lisp_Object selection;
+  int i, j;
-  FRAME_PTR f;
-  Lisp_Object x, y, window;
@@ -640 +707 @@
-      /* Decode the first argument: find the window and the coordinates.  */
-      if (EQ (position, Qt)
-
-
+
-        {
-          /* Use the mouse's current position.  */
-SELECTED_FRAME ()
+selected_frame
-          Lisp_Object bar_window;
-enum scroll_bar_par
+in
-          unsigned long time;
-
@@ -697 +763 @@
-          f = XFRAME (WINDOW_FRAME (XWINDOW (window)));
-
-FRAME_FONT (f)
+f->output_data.w32->font
-                  * XFASTINT (XWINDOW (window)->left));
-FRAME_LINE_HEIGHT (f)
+f->output_data.w32->line_height
-                  * XFASTINT (XWINDOW (window)->top));
-        }
@@ -720 +786 @@
-  /* Decode the menu items from what was specified.  */
-
-
-
+
+
+
+
+
-    {
-      /* We were given a keymap.  Extract menu info from the keymap.  */
-      Lisp_Object prompt;
+      keymap = get_keymap (menu);
-
-      /* Extract the detailed info to make one pane.  */
@@ -741 +811 @@
-      keymaps = 1;
-    }
-CONSP (menu) && KEYMAPP (XCAR (menu)
+!NILP (tem
-    {
-      /* We were given a list of keymaps.  */
@@ -757 +827 @@
-          Lisp_Object prompt;
-
-, 1, 0
+
-
-          prompt = map_prompt (keymap);
@@ -835 +905 @@
-  /* Decode the first argument: find the window or frame to use.  */
-  if (EQ (position, Qt)
-
-
+
-    {
-#if 0 /* Using the frame the mouse is on may not be right.  */
-      /* Use the mouse's current position.  */
-SELECTED_FRAME ()
+selected_frame
-      Lisp_Object bar_window;
-enum scroll_bar_par
+in
-      unsigned long time;
-      Lisp_Object x, y;
@@ -886 +955 @@
-    CHECK_WINDOW (window, 0);
-
-ndef HAVE_DIALOGS
+ 1
-  /* Display a menu with these alternatives
-     in the middle of frame F.  */
@@ -899 +968 @@
-                          Fcons (Fcar (contents), Fcons (contents, Qnil)));
-  }
- /* HAVE_DIALOGS */
+
-  {
-    Lisp_Object title;
@@ -921 +990 @@
-    return selection;
-  }
- /* HAVE_DIALOGS */
+
-}
-
@@ -936 +1005 @@
-   This way we can safely execute Lisp code.  */
-   
-void
-x_activate_menubar (f)
-     FRAME_PTR f;
@@ -965 +1033 @@
-  if (!f)
-    return;
-  entry = Qnil;
-  subprefix_stack = (Lisp_Object *) alloca (f->menu_bar_items_used * sizeof (Lisp_Object));
-  vector = f->menu_bar_vector;
@@ -1000 +1067 @@
-
-              XSETFRAME (frame, f);
-
-
-
+
+
-              kbd_buffer_store_event (&buf);
-
@@ -1008 +1074 @@
-                if (!NILP (subprefix_stack[j]))
-                  {
-
-
-
+
+
-                    kbd_buffer_store_event (&buf);
-                  }
@@ -1016 +1081 @@
-              if (!NILP (prefix))
-                {
-
-
-
+
+
-                  kbd_buffer_store_event (&buf);
-                }
-
-
-
-
+
+
-              kbd_buffer_store_event (&buf);
-
@@ -1091 +1154 @@
-  Lisp_Object *mapvec;
-  widget_value **submenu_stack;
+  int mapno;
-  int previous_items = menu_items_used;
-  int top_level_items = 0;
@@ -1112 +1176 @@
-    {
-      if (SYMBOLP (mapvec[i])
-
+
+
-        {
-          /* Here we have a command at top level in the menu bar
@@ -1118 +1183 @@
-          top_level_items = 1;
-          push_menu_pane (Qnil, Qnil);
-
-
+
-        }
-      else
@@ -1134 +1198 @@
-  wv->value = 0;
-  wv->enabled = 1;
-  wv->button_type = BUTTON_TYPE_NONE;
-  first_wv = wv;
-  save_wv = 0;
@@ -1201 +1264 @@
-              wv->value = 0;
-              wv->enabled = 1;
-              wv->button_type = BUTTON_TYPE_NONE;
-            }
-          save_wv = wv;
@@ -1210 +1272 @@
-        {
-          /* Create a new item within current pane.  */
-
-
-
+
-          item_name = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_NAME];
-          enable = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_ENABLE];
@@ -1218 +1278 @@
-            = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_EQUIV_KEY];
-          def = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_DEFINITION];
-          type = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_TYPE];
-          selected = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_SELECTED];
-          help = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_HELP];
-
-#ifndef HAVE_MULTILINGUAL_MENU
-          if (STRING_MULTIBYTE (item_name))
@@ -1228 +1284 @@
-            descrip = ENCODE_SYSTEM (descrip);
-#endif
-
-          wv = xmalloc_widget_value ();
-          if (prev_wv) 
@@ -1243 +1298 @@
-          wv->call_data = (!NILP (def) ? (void *) (EMACS_INT) i : 0);
-          wv->enabled = !NILP (enable);
-
-          if (NILP (type))
-            wv->button_type = BUTTON_TYPE_NONE;
-          else if (EQ (type, QCradio))
-            wv->button_type = BUTTON_TYPE_RADIO;
-          else if (EQ (type, QCtoggle))
-            wv->button_type = BUTTON_TYPE_TOGGLE;
-          else
-            abort ();
-
-          wv->selected = !NILP (selected);
-          if (STRINGP (help))
-            wv->help = (char *) XSTRING (help)->data;
-          else
-            wv->help = NULL;
-
-          prev_wv = wv;
-
@@ -1288 +1327 @@
-{
-  HMENU menubar_widget = f->output_data.w32->menubar_widget;
-items
+tail, items, frame
-  widget_value *wv, *first_wv, *prev_wv = 0;
-  int i;
@@ -1307 +1346 @@
-  wv->value = 0;
-  wv->enabled = 1;
-  wv->button_type = BUTTON_TYPE_NONE;
-  first_wv = wv;
-
@@ -1343 +1381 @@
-
-      /* Run the Lucid hook.  */
-safe_run_hooks (
+call1 (Vrun_hooks, 
-      /* If it has changed current-menubar from previous value,
-         really recompute the menubar from the value.  */
@@ -1380 +1418 @@
-          /* Don't set wv->name here; GC during the loop might relocate it.  */
-          wv->enabled = 1;
-          wv->button_type = BUTTON_TYPE_NONE;
-          prev_wv = wv;
-        }
@@ -1424 +1461 @@
-    {
-      /* Make a widget-value tree containing
-
+
+
+
+
+
+
+
+
+
+
+
-
-      items = FRAME_MENU_BAR_ITEMS (f);
+
+      /* If there has been no change in the Lisp-level contents of just
+         the menu bar itself, skip redisplaying it.  Just exit.  */
+      for (i = 0; i < f->menu_bar_items_used; i += 4)
+        if (i == XVECTOR (items)->size
+            || (XVECTOR (f->menu_bar_vector)->contents[i]
+                != XVECTOR (items)->contents[i]))
+          break;
+      if (i == XVECTOR (items)->size && i == f->menu_bar_items_used && i != 0)
+          return;
+
-      for (i = 0; i < XVECTOR (items)->size; i += 4)
-        {
@@ -1439 +1497 @@
-          wv->value = 0;
-          wv->enabled = 1;
-          wv->button_type = BUTTON_TYPE_NONE;
-          /* This prevents lwlib from assuming this
-             menu item is really supposed to be empty.  */
@@ -1453 +1510 @@
-        }
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-    }
-
@@ -1564 +1627 @@
-    = (Lisp_Object *) alloca (menu_items_used * sizeof (Lisp_Object));
-  int submenu_depth = 0;
+
-  int first_pane;
+  int next_release_must_exit = 0;
-
-  *error = NULL;
@@ -1580 +1645 @@
-  wv->value = 0;
-  wv->enabled = 1;
-  wv->button_type = BUTTON_TYPE_NONE;
-  first_wv = wv;
-  first_pane = 1;
@@ -1643 +1707 @@
-              wv->value = 0;
-              wv->enabled = 1;
-              wv->button_type = BUTTON_TYPE_NONE;
-              save_wv = wv;
-              prev_wv = 0;
@@ -1658 +1721 @@
-        {
-          /* Create a new item within current pane.  */
-
-
+
-          item_name = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_NAME];
-          enable = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_ENABLE];
@@ -1665 +1727 @@
-            = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_EQUIV_KEY];
-          def = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_DEFINITION];
-          type = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_TYPE];
-          selected = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_SELECTED];
-          help = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_HELP];
-
-#ifndef HAVE_MULTILINGUAL_MENU
-          if (STRINGP (item_name) && 
-        
-        
-        
+         if (
+       
+       
+       
-#endif
-
@@ -1689 +1748 @@
-          wv->call_data = !NILP (def) ? (void *) (EMACS_INT) i : 0;
-          wv->enabled = !NILP (enable);
-
-          if (NILP (type))
-            wv->button_type = BUTTON_TYPE_NONE;
-          else if (EQ (type, QCtoggle))
-            wv->button_type = BUTTON_TYPE_TOGGLE;
-          else if (EQ (type, QCradio))
-            wv->button_type = BUTTON_TYPE_RADIO;
-          else
-            abort ();
-
-          wv->selected = !NILP (selected);
-
-          if (STRINGP (help))
-            wv->help = (char *) XSTRING (help)->data;
-          else
-            wv->help = NULL;
-
-          prev_wv = wv;
-
@@ -1728 +1770 @@
-#endif
-      wv_title->name = (char *) XSTRING (title)->data;
-
-
-
+
+
-      wv_title->next = wv_sep;
-      first_wv->contents = wv_title;
@@ -1738 +1779 @@
-  menu = CreatePopupMenu ();
-  fill_in_menu (menu, first_wv->contents);
-
+
-  /* Adjust coordinates to be root-window-relative.  */
-  pos.x = x;
@@ -1744 +1785 @@
-  ClientToScreen (FRAME_W32_WINDOW (f), &pos);
-
+  /* Free the widget_value objects we used to specify the contents.  */
+  free_menubar_widget_value_tree (first_wv);
+
-  /* No selection has been chosen yet.  */
-  menu_item_selection = 0;
@@ -1756 +1800 @@
-  discard_mouse_events ();
-
-  /* Free the widget_value objects we used to specify the contents.  */
-  free_menubar_widget_value_tree (first_wv);
-
-  DestroyMenu (menu);
-
@@ -1767 +1808 @@
-      Lisp_Object prefix, entry;
-
-entry = 
+
-      i = 0;
-      while (i < menu_items_used)
@@ -1835 +1876 @@
-  int menu_item_selection;
-
-
+save_wv = 0, *
-
-  /* Number of elements seen so far, before boundary.  */
@@ -1873 +1914 @@
-        
-        /* Create a new item within current pane.  */
-
-
+
-        item_name = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_NAME];
-        enable = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_ENABLE];
-        descrip
-          = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_EQUIV_KEY];
-        help = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_HELP];
-        
-        if (NILP (item_name))
@@ -1943 +1982 @@
-
-  /* Actually create the dialog.  */
-def HAVE_DIALOGS
+ 0
-  dialog_id = widget_id_tick++;
-  menu = lw_create_widget (first_wv->name, "dialog", dialog_id, first_wv,
-                           f->output_data.w32->widget, 1, 0,
-                           dialog_selection_callback, 0);
-RUE
+rue
-#endif
-
@@ -1958 +1997 @@
-
-  /* Display the menu.  */
-def HAVE_DIALOGS
+ 0
-  lw_pop_up_all_widgets (dialog_id);
-  popup_activated_flag = 1;
@@ -2014 +2053 @@
-     char *name;
-{
-
-
-
+
-  while (*name == '-') name++;
-
-
-
-
+
-}
-
@@ -2037 +2071 @@
-  UINT fuFlags;
-  char *out_string;
-  int return_value;
-
-  if (name_is_separator (wv->name))
-
-
-
-
+
-  else 
-    {
@@ -2069 +2099 @@
-          fuFlags = MF_OWNERDRAW | MF_DISABLED;
-        }
-      /* Draw radio buttons and tickboxes. */
-      else if (wv->selected && (wv->button_type == BUTTON_TYPE_TOGGLE ||
-                           wv->button_type == BUTTON_TYPE_RADIO))
-        fuFlags |= MF_CHECKED;
-      else
-        fuFlags |= MF_UNCHECKED;
-    }
-
@@ -2080 +2104 @@
-    fuFlags = MF_POPUP;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
-}
-
-/* Construct native Windows menu(bar) based on widget_value tree.  */
-
+static 
-fill_in_menu (HMENU menu, widget_value *wv)
-{
@@ -2151 +2141 @@
-}
-
-int
-popup_activated ()
-{
-  /* popup_activated_flag not actually used on W32 */
-  return 0;
-}
-
-/* Display help string for currently pointed to menu item. Not
-   supported on NT 3.51 and earlier, as GetMenuItemInfo is not
-   available. */
-void
-w32_menu_display_help (HMENU menu, UINT item, UINT flags)
-{
-  int pane = 0; /* TODO: Set this to pane number.  */
-
-  HMODULE user32 = GetModuleHandle ("user32.dll");
-  FARPROC get_menu_item_info = GetProcAddress (user32, "GetMenuItemInfoA");
-
-  if (get_menu_item_info)
-    {
-      extern Lisp_Object Qmenu_item;
-      Lisp_Object *first_item;
-      Lisp_Object pane_name;
-      Lisp_Object menu_object;
-      MENUITEMINFO info;
-
-      bzero (&info, sizeof (info));
-      info.cbSize = sizeof (info);
-      info.fMask = MIIM_DATA;
-      get_menu_item_info (menu, item, FALSE, &info);
-
-      first_item = XVECTOR (menu_items)->contents;
-      if (EQ (first_item[0], Qt))
-        pane_name = first_item[MENU_ITEMS_PANE_NAME];
-      else if (EQ (first_item[0], Qquote))
-        /* This shouldn't happen, see w32_menu_show.  */
-        pane_name = build_string ("");
-      else
-        pane_name = first_item[MENU_ITEMS_ITEM_NAME];
-
-      /* (menu-item MENU-NAME PANE-NUMBER)  */
-      menu_object = Fcons (Qmenu_item,
-                           Fcons (pane_name,
-                                  Fcons (make_number (pane), Qnil)));
-
-      show_help_echo (info.dwItemData ?
-                      build_string ((char *) info.dwItemData) : Qnil,
-                      Qnil, menu_object, make_number (item), 1);
-    }
-}
-
-
-
-#endif /* HAVE_MENUS */
-