Mercurial > hg > xemacs-beta
diff src/menubar.h @ 404:2f8bb876ab1d r21-2-32
Import from CVS: tag r21-2-32
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:16:07 +0200 |
parents | 74fd4e045ea6 |
children | 697ef44129c6 |
line wrap: on
line diff
--- a/src/menubar.h Mon Aug 13 11:15:00 2007 +0200 +++ b/src/menubar.h Mon Aug 13 11:16:07 2007 +0200 @@ -20,7 +20,7 @@ /* Synched up with: Not in FSF. */ -/* #### Not properly abstracted for device-independence. */ +/* #### Still needs some device-abstraction work. */ #ifndef INCLUDED_menubar_h_ #define INCLUDED_menubar_h_ @@ -35,6 +35,37 @@ EXFUN (Fmenu_find_real_submenu, 2); +extern Lisp_Object Vmenu_accelerator_prefix; +extern Lisp_Object Vmenu_accelerator_modifiers; +extern Lisp_Object Vmenu_accelerator_enabled; +extern Lisp_Object Vmenu_accelerator_map; + +extern Lisp_Object Qmenu_force; +extern Lisp_Object Qmenu_fallback; + +extern Lisp_Object Qmenu_quit; +extern Lisp_Object Qmenu_up; +extern Lisp_Object Qmenu_down; +extern Lisp_Object Qmenu_left; +extern Lisp_Object Qmenu_right; +extern Lisp_Object Qmenu_select; +extern Lisp_Object Qmenu_escape; + + +/* #### kluuuuuuuuuuuuuuuuuuuuuuuuuuuudge! + The author of the accelerator code didn't know what the hell he was doing. + Someone needs to abstract this properly. */ +#if defined(HAVE_X_WINDOWS) && defined(LWLIB_MENUBARS_LUCID) +extern int x_kludge_lw_menu_active (void); +struct command_builder; +Lisp_Object command_builder_find_menu_accelerator (struct command_builder + *builder); +Lisp_Object command_builder_operate_menu_accelerator (struct command_builder + *builder); + +extern int in_menu_callback; +#endif + #endif /* HAVE_MENUBARS */ #endif /* INCLUDED_menubar_h_ */