+#endif /* not USE_X_TOOLKIT */
+}
+\f
+#ifdef USE_X_TOOLKIT
+
+static void
+dispatch_dummy_expose (w, x, y)
+ Widget w;
+ int x;
+ int y;
+{
+ XExposeEvent dummy;
+
+ dummy.type = Expose;
+ dummy.window = XtWindow (w);
+ dummy.count = 0;
+ dummy.serial = 0;
+ dummy.send_event = 0;
+ dummy.display = XtDisplay (w);
+ dummy.x = x;
+ dummy.y = y;
+
+ XtDispatchEvent (&dummy);
+}
+
+static int
+string_width (mw, s)
+ XlwMenuWidget mw;
+ char* s;
+{
+ XCharStruct xcs;
+ int drop;
+
+ XTextExtents (mw->menu.font, s, strlen (s), &drop, &drop, &drop, &xcs);
+ return xcs.width;
+}
+
+static int
+event_is_in_menu_item (mw, event, name, string_w)
+ XlwMenuWidget mw;
+ struct input_event *event;
+ char *name;
+ int *string_w;
+{
+ *string_w += string_width (mw, name)
+ + 2 * (mw->menu.horizontal_spacing + mw->menu.shadow_thickness);
+ return (XINT (event->x) < *string_w);
+}
+
+
+Lisp_Object
+map_event_to_object (event, f)
+ struct input_event *event;
+ FRAME_PTR f;
+{
+ int i,j, string_w;
+ window_state* ws;
+ XlwMenuWidget mw = (XlwMenuWidget) f->display.x->menubar_widget;
+ widget_value *val;
+
+
+ string_w = 0;
+ /* Find the window */
+ for (val = mw->menu.old_stack [0]->contents; val; val = val->next)
+ {
+ ws = &mw->menu.windows [0];
+ if (ws && event_is_in_menu_item (mw, event, val->name, &string_w))
+ {
+ Lisp_Object items;
+ items = FRAME_MENU_BAR_ITEMS (f);
+ for (; CONSP (items); items = XCONS (items)->cdr)
+ if (!strcmp (val->name,
+ XSTRING (Fcar (Fcdr (Fcar (items))))->data))
+ return items;
+ }
+ }
+ return Qnil;
+}
+
+static widget_value *
+set_menu_items (menu, prefixes, panes, names, enables, menus,
+ items, number_of_panes, obj_list, title, error_name)
+ Lisp_Object menu;
+ Lisp_Object **prefixes;
+ int *panes;
+ char ***names[];
+ int ***enables;
+ char ***menus;
+ int **items;
+ int *number_of_panes;
+ Lisp_Object ***obj_list;
+ char **title;
+ char **error_name;
+{
+ Lisp_Object keymap, tem;
+ Lisp_Object ltitle, selection;
+ int i, j;
+ widget_value *wv, *save_wv = 0, *first_wv = 0, *prev_wv = 0;
+ int last, selidx, lpane, status;
+ int lines, sofar;
+
+ keymap = Fkeymapp (menu);
+ tem = Qnil;
+
+ if (XTYPE (menu) == Lisp_Cons)
+ tem = Fkeymapp (Fcar (menu));
+ if (!NILP (keymap))
+ {
+ /* We were given a keymap. Extract menu info from the keymap. */
+ Lisp_Object prompt;
+ keymap = get_keymap (menu);
+
+ /* Search for a string appearing directly as an element of the keymap.
+ That string is the title of the menu. */
+ prompt = map_prompt (keymap);
+ if (!NILP (prompt))
+ *title = (char *) XSTRING (prompt)->data;
+
+ /* Extract the detailed info to make one pane. */
+ *number_of_panes = keymap_panes (obj_list, menus, names, enables,
+ items, prefixes, menu, 1);
+ /* The menu title seems to be ignored,
+ so put it in the pane title. */
+ if ((*menus)[0] == 0)
+ (*menus)[0] = *title;
+ }
+ else if (!NILP (tem))
+ {
+ /* We were given a list of keymaps. */
+ Lisp_Object prompt;
+ int nmaps = XFASTINT (Flength (menu));
+ Lisp_Object *maps
+ = (Lisp_Object *) alloca (nmaps * sizeof (Lisp_Object));
+ int i;
+ *title = 0;
+
+ /* The first keymap that has a prompt string
+ supplies the menu title. */
+ for (tem = menu, i = 0; XTYPE (tem) == Lisp_Cons; tem = Fcdr (tem))
+ {
+ maps[i++] = keymap = get_keymap (Fcar (tem));
+
+ prompt = map_prompt (keymap);
+ if (*title == 0 && !NILP (prompt))
+ *title = (char *) XSTRING (prompt)->data;
+ }
+
+ /* Extract the detailed info to make one pane. */
+ *number_of_panes = keymap_panes (obj_list, menus, names, enables,
+ items, prefixes, maps, nmaps);
+ /* The menu title seems to be ignored,
+ so put it in the pane title. */
+ if ((*menus)[0] == 0)
+ (*menus)[0] = *title;
+ }
+ else
+ {
+ /* We were given an old-fashioned menu. */
+ ltitle = Fcar (menu);
+ CHECK_STRING (ltitle, 1);
+ *title = (char *) XSTRING (ltitle)->data;
+ *prefixes = 0;
+ *number_of_panes = list_of_panes (obj_list, menus, names, enables,
+ items, Fcdr (menu));
+ }
+
+ *error_name = 0;
+ if (*number_of_panes == 0)
+ return 0;
+
+ *error_name = (char *) 0; /* Initialize error pointer to null */
+
+ wv = malloc_widget_value ();
+ wv->name = "menu";
+ wv->value = 0;
+ wv->enabled = 1;
+ first_wv = wv;
+
+ for (*panes = 0, lines = 0; *panes < *number_of_panes;
+ lines += (*items)[*panes], (*panes)++)
+ ;
+ /* datap = (struct indices *) xmalloc (lines * sizeof (struct indices)); */
+ /* datap = (char *) xmalloc (lines * sizeof (char));
+ datap_save = datap;*/
+
+ for (*panes = 0, sofar = 0; *panes < *number_of_panes;
+ sofar += (*items)[*panes], (*panes)++)
+ {
+ if (strcmp((*menus)[*panes], ""))
+ {
+ wv = malloc_widget_value ();
+ if (save_wv)
+ save_wv->next = wv;
+ else
+ first_wv->contents = wv;
+ wv->name = (*menus)[*panes];
+ wv->value = 0;
+ wv->enabled = 1;
+ }
+ prev_wv = 0;
+ save_wv = wv;
+
+ for (selidx = 0; selidx < (*items)[*panes]; selidx++)
+ {
+ wv = malloc_widget_value ();
+ if (prev_wv)
+ prev_wv->next = wv;
+ else
+ save_wv->contents = wv;
+ wv->name = (*names)[*panes][selidx];
+ wv->value = 0;
+ selection = (*obj_list)[*panes][selidx];
+ if (*prefixes != 0)
+ {
+ selection = Fcons (selection, Qnil);
+ if (!NILP ((*prefixes)[*panes]))
+ selection = Fcons ((*prefixes)[*panes], selection);
+ }
+ wv->call_data = LISP_TO_VOID(selection);
+ wv->enabled = (*enables)[*panes][selidx];
+ prev_wv = wv;
+ }
+ }
+
+ return (first_wv);
+}
+
+static void
+free_menu_items (names, enables, menus, items, number_of_panes,
+ obj_list, title, error_name)
+ char **names[];
+ int *enables[];
+ char **menus;
+ int *items;
+ int number_of_panes;
+ Lisp_Object **obj_list;
+ char *title;
+ char *error_name;
+{
+ int i;
+ /* now free up the strings */
+ for (i = 0; i < number_of_panes; i++)
+ {
+ xfree (names[i]);
+ xfree (enables[i]);
+ xfree (obj_list[i]);
+ }
+ xfree (menus);
+ xfree (obj_list);
+ xfree (names);
+ xfree (enables);
+ xfree (items);
+ /* free (title); */
+ if (error_name) error (error_name);
+