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_ */