comparison src/xmenu.c @ 73697:54a6e7ed953c

(Fmenu_or_popup_active_p): New function. (syms_of_xmenu): Defsubr it.

73696:b55c133a59f9

int
popup_activated ()
{
  return popup_activated_flag;
}

/* This callback is invoked when the user selects a menubar cascade
   pushbutton, but before the pulldown menu is posted.  */

  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

73697:54a6e7ed953c

int
popup_activated ()
{
  return popup_activated_flag;
}

/* 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.  */)
     ()
{
  return (popup_activated ()) ? Qt : Qnil;
}

/* This callback is invoked when the user selects a menubar cascade
   pushbutton, but before the pulldown menu is posted.  */

  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