Mercurial > hg > xemacs-beta

comparison src/menubar.h @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */ 19 Boston, MA 02111-1307, USA. */
20 20
21 /* Synched up with: Not in FSF. */ 21 /* Synched up with: Not in FSF. */
22 22
23 /* #### Not properly abstracted for device-independence. */ 23 /* #### Still needs some device-abstraction work. */
24 24
25 #ifndef INCLUDED_menubar_h_ 25 #ifndef INCLUDED_menubar_h_
26 #define INCLUDED_menubar_h_ 26 #define INCLUDED_menubar_h_
27 27
28 #ifdef HAVE_MENUBARS 28 #ifdef HAVE_MENUBARS
33 Lisp_Object gui_item); 33 Lisp_Object gui_item);
34 Lisp_Object current_frame_menubar (const struct frame* f); 34 Lisp_Object current_frame_menubar (const struct frame* f);
35 35
36 EXFUN (Fmenu_find_real_submenu, 2); 36 EXFUN (Fmenu_find_real_submenu, 2);
37 37
38 extern Lisp_Object Vmenu_accelerator_prefix;
39 extern Lisp_Object Vmenu_accelerator_modifiers;
40 extern Lisp_Object Vmenu_accelerator_enabled;
41 extern Lisp_Object Vmenu_accelerator_map;
42
43 extern Lisp_Object Qmenu_force;
44 extern Lisp_Object Qmenu_fallback;
45
46 extern Lisp_Object Qmenu_quit;
47 extern Lisp_Object Qmenu_up;
48 extern Lisp_Object Qmenu_down;
49 extern Lisp_Object Qmenu_left;
50 extern Lisp_Object Qmenu_right;
51 extern Lisp_Object Qmenu_select;
52 extern Lisp_Object Qmenu_escape;
53
54
55 /* #### kluuuuuuuuuuuuuuuuuuuuuuuuuuuudge!
56 The author of the accelerator code didn't know what the hell he was doing.
57 Someone needs to abstract this properly. */
58 #if defined(HAVE_X_WINDOWS) && defined(LWLIB_MENUBARS_LUCID)
59 extern int x_kludge_lw_menu_active (void);
60 struct command_builder;
61 Lisp_Object command_builder_find_menu_accelerator (struct command_builder
62 *builder);
63 Lisp_Object command_builder_operate_menu_accelerator (struct command_builder
64 *builder);
65
66 extern int in_menu_callback;
67 #endif
68
38 #endif /* HAVE_MENUBARS */ 69 #endif /* HAVE_MENUBARS */
39 70
40 #endif /* INCLUDED_menubar_h_ */ 71 #endif /* INCLUDED_menubar_h_ */