comparison src/xmenu.c @ 90650:02cf29720f31

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 490-504) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 161-163) - Update from CVS - Merge from emacs--devo--0 Revision: [e-mail]/emacs--unicode--0--patch-130

90649:d53934e7ddef

If FRAME is nil or not given, use the selected frame.  */)
     (frame)
     Lisp_Object frame;
{
  GtkWidget *menubar;
  BLOCK_INPUT;
  FRAME_PTR f = check_x_frame (frame);

  if (FRAME_EXTERNAL_MENU_BAR (f))
    set_frame_menubar (f, 0, 1);

  menubar = FRAME_X_OUTPUT (f)->menubar_widget;

      /* Activate the first menu.  */
      GList *children = gtk_container_get_children (GTK_CONTAINER (menubar));

      gtk_menu_shell_select_item (GTK_MENU_SHELL (menubar),
                                  GTK_WIDGET (children->data));
      
      popup_activated_flag = 1;
      g_list_free (children);
    }
  UNBLOCK_INPUT;

}

#endif /* not USE_X_TOOLKIT */

#endif /* HAVE_MENUS */

void
syms_of_xmenu ()
{
  staticpro (&menu_items);

  widget_id_tick = (1<<16);
  next_menubar_widget_id = 1;
#endif

  defsubr (&Sx_popup_menu);

#if defined (USE_GTK) || defined (USE_X_TOOLKIT)
  defsubr (&Smenu_bar_open);
  Ffset (intern ("accelerate-menu"), intern (Smenu_bar_open.symbol_name));
#endif

90650:02cf29720f31

If FRAME is nil or not given, use the selected frame.  */)
     (frame)
     Lisp_Object frame;
{
  GtkWidget *menubar;
  FRAME_PTR f;

  /* gcc 2.95 doesn't accept the FRAME_PTR declaration after
     BLOCK_INPUT.  */

  BLOCK_INPUT;
  f = check_x_frame (frame);

  if (FRAME_EXTERNAL_MENU_BAR (f))
    set_frame_menubar (f, 0, 1);

  menubar = FRAME_X_OUTPUT (f)->menubar_widget;

      /* Activate the first menu.  */
      GList *children = gtk_container_get_children (GTK_CONTAINER (menubar));

      gtk_menu_shell_select_item (GTK_MENU_SHELL (menubar),
                                  GTK_WIDGET (children->data));

      popup_activated_flag = 1;
      g_list_free (children);
    }
  UNBLOCK_INPUT;

}

#endif /* not USE_X_TOOLKIT */

#endif /* HAVE_MENUS */


/* The following is used by delayed window autoselection.  */

DEFUN ("menu-or-popup-active-p", Fmenu_or_popup_active_p, Smenu_or_popup_active_p, 0, 0, 0,
       doc: /* Return t if a menu or popup dialog is active.  */)
     ()
{
#ifdef HAVE_MENUS
  return (popup_activated ()) ? Qt : Qnil;
#else
  return Qnil;
#endif /* HAVE_MENUS */
}

void
syms_of_xmenu ()
{
  staticpro (&menu_items);

  widget_id_tick = (1<<16);
  next_menubar_widget_id = 1;
#endif

  defsubr (&Sx_popup_menu);
  defsubr (&Smenu_or_popup_active_p);

#if defined (USE_GTK) || defined (USE_X_TOOLKIT)
  defsubr (&Smenu_bar_open);
  Ffset (intern ("accelerate-menu"), intern (Smenu_bar_open.symbol_name));
#endif