annotate src/menu.c @ 95657:c4f5f8f64d1f

* menu.c [HAVE_X_WINDOWS]: Include "xterm.h". * Makefile.in (menu.o): Update dependencies.
author Andreas Schwab <schwab@suse.de>
date Sun, 08 Jun 2008 09:26:02 +0000
parents 816ec0114c3c
children 4ab45b5c92cd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
95646
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1 /* Platform-independent code for terminal communications.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2 Copyright (C) 1986, 1988, 1993, 1994, 1996, 1999, 2000, 2001, 2002, 2003,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
3 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
4
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
5 This file is part of GNU Emacs.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
6
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
10 (at your option) any later version.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
11
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
15 GNU General Public License for more details.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
16
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
19
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
20 #include <config.h>
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
21 #include <stdio.h>
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
22
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
23 #include "lisp.h"
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
24 #include "keyboard.h"
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
25 #include "keymap.h"
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
26 #include "frame.h"
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
27 #include "termhooks.h"
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
28 #include "blockinput.h"
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
29 #include "dispextern.h"
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
30
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
31 #ifdef USE_X_TOOLKIT
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
32 #include "../lwlib/lwlib.h"
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
33 #endif
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
34
95657
c4f5f8f64d1f * menu.c [HAVE_X_WINDOWS]: Include "xterm.h".
Andreas Schwab <schwab@suse.de>
parents: 95646
diff changeset
35 #ifdef HAVE_X_WINDOWS
c4f5f8f64d1f * menu.c [HAVE_X_WINDOWS]: Include "xterm.h".
Andreas Schwab <schwab@suse.de>
parents: 95646
diff changeset
36 #include "xterm.h"
c4f5f8f64d1f * menu.c [HAVE_X_WINDOWS]: Include "xterm.h".
Andreas Schwab <schwab@suse.de>
parents: 95646
diff changeset
37 #endif
c4f5f8f64d1f * menu.c [HAVE_X_WINDOWS]: Include "xterm.h".
Andreas Schwab <schwab@suse.de>
parents: 95646
diff changeset
38
95646
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
39 #ifdef USE_GTK
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
40 #include "gtkutil.h"
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
41 #endif
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
42
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
43 #ifdef HAVE_NTGUI
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
44 /* Definitions copied from lwlib.h */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
45 typedef void * XtPointer;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
46 typedef char Boolean;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
47 enum button_type
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
48 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
49 BUTTON_TYPE_NONE,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
50 BUTTON_TYPE_TOGGLE,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
51 BUTTON_TYPE_RADIO
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
52 };
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
53
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
54 /* This structure is based on the one in ../lwlib/lwlib.h */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
55 typedef struct _widget_value
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
56 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
57 Lisp_Object lname;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
58 char* name;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
59 char* value;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
60 Lisp_Object lkey;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
61 char* key;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
62 Lisp_Object help;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
63 Boolean enabled;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
64 Boolean selected;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
65 enum button_type button_type;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
66 Boolean title;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
67 struct _widget_value* contents;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
68 XtPointer call_data;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
69 struct _widget_value* next;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
70 } widget_value;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
71
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
72 /* Local memory management */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
73 #define local_heap (GetProcessHeap ())
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
74 #define local_alloc(n) (HeapAlloc (local_heap, HEAP_ZERO_MEMORY, (n)))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
75 #define local_free(p) (HeapFree (local_heap, 0, ((LPVOID) (p))))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
76
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
77 #define malloc_widget_value() ((widget_value *) local_alloc (sizeof (widget_value)))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
78 #define free_widget_value(wv) (local_free ((wv)))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
79
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
80 extern AppendMenuW_Proc unicode_append_menu;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
81
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
82 #endif /* HAVE_NTGUI */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
83
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
84
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
85 /* Define HAVE_BOXES if menus can handle radio and toggle buttons. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
86 #if defined (USE_X_TOOLKIT) || defined (USE_GTK) || defined (HAVE_NTGUI)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
87 #define HAVE_BOXES 1
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
88 #endif
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
89
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
90 extern Lisp_Object QCtoggle, QCradio;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
91
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
92 Lisp_Object menu_items;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
93
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
94 /* If non-nil, means that the global vars defined here are already in use.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
95 Used to detect cases where we try to re-enter this non-reentrant code. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
96 Lisp_Object menu_items_inuse;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
97
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
98 /* Number of slots currently allocated in menu_items. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
99 int menu_items_allocated;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
100
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
101 /* This is the index in menu_items of the first empty slot. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
102 int menu_items_used;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
103
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
104 /* The number of panes currently recorded in menu_items,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
105 excluding those within submenus. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
106 int menu_items_n_panes;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
107
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
108 /* Current depth within submenus. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
109 static int menu_items_submenu_depth;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
110
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
111 void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
112 init_menu_items ()
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
113 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
114 if (!NILP (menu_items_inuse))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
115 error ("Trying to use a menu from within a menu-entry");
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
116
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
117 if (NILP (menu_items))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
118 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
119 menu_items_allocated = 60;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
120 menu_items = Fmake_vector (make_number (menu_items_allocated), Qnil);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
121 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
122
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
123 menu_items_inuse = Qt;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
124 menu_items_used = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
125 menu_items_n_panes = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
126 menu_items_submenu_depth = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
127 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
128
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
129 /* Call at the end of generating the data in menu_items. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
130
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
131 void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
132 finish_menu_items ()
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
133 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
134 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
135
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
136 Lisp_Object
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
137 unuse_menu_items (dummy)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
138 Lisp_Object dummy;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
139 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
140 return menu_items_inuse = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
141 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
142
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
143 /* Call when finished using the data for the current menu
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
144 in menu_items. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
145
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
146 void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
147 discard_menu_items ()
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
148 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
149 /* Free the structure if it is especially large.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
150 Otherwise, hold on to it, to save time. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
151 if (menu_items_allocated > 200)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
152 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
153 menu_items = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
154 menu_items_allocated = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
155 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
156 xassert (NILP (menu_items_inuse));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
157 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
158
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
159 /* This undoes save_menu_items, and it is called by the specpdl unwind
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
160 mechanism. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
161
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
162 static Lisp_Object
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
163 restore_menu_items (saved)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
164 Lisp_Object saved;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
165 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
166 menu_items = XCAR (saved);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
167 menu_items_inuse = (! NILP (menu_items) ? Qt : Qnil);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
168 menu_items_allocated = (VECTORP (menu_items) ? ASIZE (menu_items) : 0);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
169 saved = XCDR (saved);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
170 menu_items_used = XINT (XCAR (saved));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
171 saved = XCDR (saved);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
172 menu_items_n_panes = XINT (XCAR (saved));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
173 saved = XCDR (saved);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
174 menu_items_submenu_depth = XINT (XCAR (saved));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
175 return Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
176 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
177
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
178 /* Push the whole state of menu_items processing onto the specpdl.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
179 It will be restored when the specpdl is unwound. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
180
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
181 void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
182 save_menu_items ()
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
183 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
184 Lisp_Object saved = list4 (!NILP (menu_items_inuse) ? menu_items : Qnil,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
185 make_number (menu_items_used),
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
186 make_number (menu_items_n_panes),
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
187 make_number (menu_items_submenu_depth));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
188 record_unwind_protect (restore_menu_items, saved);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
189 menu_items_inuse = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
190 menu_items = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
191 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
192
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
193
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
194 /* Make the menu_items vector twice as large. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
195
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
196 static void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
197 grow_menu_items ()
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
198 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
199 menu_items_allocated *= 2;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
200 menu_items = larger_vector (menu_items, menu_items_allocated, Qnil);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
201 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
202
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
203 /* Begin a submenu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
204
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
205 static void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
206 push_submenu_start ()
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
207 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
208 if (menu_items_used + 1 > menu_items_allocated)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
209 grow_menu_items ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
210
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
211 XVECTOR (menu_items)->contents[menu_items_used++] = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
212 menu_items_submenu_depth++;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
213 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
214
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
215 /* End a submenu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
216
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
217 static void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
218 push_submenu_end ()
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
219 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
220 if (menu_items_used + 1 > menu_items_allocated)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
221 grow_menu_items ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
222
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
223 XVECTOR (menu_items)->contents[menu_items_used++] = Qlambda;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
224 menu_items_submenu_depth--;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
225 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
226
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
227 /* Indicate boundary between left and right. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
228
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
229 static void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
230 push_left_right_boundary ()
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
231 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
232 if (menu_items_used + 1 > menu_items_allocated)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
233 grow_menu_items ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
234
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
235 XVECTOR (menu_items)->contents[menu_items_used++] = Qquote;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
236 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
237
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
238 /* Start a new menu pane in menu_items.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
239 NAME is the pane name. PREFIX_VEC is a prefix key for this pane. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
240
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
241 static void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
242 push_menu_pane (name, prefix_vec)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
243 Lisp_Object name, prefix_vec;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
244 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
245 if (menu_items_used + MENU_ITEMS_PANE_LENGTH > menu_items_allocated)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
246 grow_menu_items ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
247
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
248 if (menu_items_submenu_depth == 0)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
249 menu_items_n_panes++;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
250 XVECTOR (menu_items)->contents[menu_items_used++] = Qt;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
251 XVECTOR (menu_items)->contents[menu_items_used++] = name;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
252 XVECTOR (menu_items)->contents[menu_items_used++] = prefix_vec;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
253 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
254
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
255 /* Push one menu item into the current pane. NAME is the string to
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
256 display. ENABLE if non-nil means this item can be selected. KEY
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
257 is the key generated by choosing this item, or nil if this item
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
258 doesn't really have a definition. DEF is the definition of this
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
259 item. EQUIV is the textual description of the keyboard equivalent
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
260 for this item (or nil if none). TYPE is the type of this menu
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
261 item, one of nil, `toggle' or `radio'. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
262
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
263 static void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
264 push_menu_item (name, enable, key, def, equiv, type, selected, help)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
265 Lisp_Object name, enable, key, def, equiv, type, selected, help;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
266 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
267 if (menu_items_used + MENU_ITEMS_ITEM_LENGTH > menu_items_allocated)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
268 grow_menu_items ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
269
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
270 XVECTOR (menu_items)->contents[menu_items_used++] = name;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
271 XVECTOR (menu_items)->contents[menu_items_used++] = enable;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
272 XVECTOR (menu_items)->contents[menu_items_used++] = key;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
273 XVECTOR (menu_items)->contents[menu_items_used++] = equiv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
274 XVECTOR (menu_items)->contents[menu_items_used++] = def;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
275 XVECTOR (menu_items)->contents[menu_items_used++] = type;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
276 XVECTOR (menu_items)->contents[menu_items_used++] = selected;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
277 XVECTOR (menu_items)->contents[menu_items_used++] = help;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
278 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
279
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
280 /* Args passed between single_keymap_panes and single_menu_item. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
281 struct skp
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
282 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
283 Lisp_Object pending_maps;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
284 int maxdepth, notreal;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
285 int notbuttons;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
286 };
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
287
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
288 static void single_menu_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
289 void *));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
290
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
291 /* This is a recursive subroutine of keymap_panes.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
292 It handles one keymap, KEYMAP.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
293 The other arguments are passed along
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
294 or point to local variables of the previous function.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
295 If NOTREAL is nonzero, only check for equivalent key bindings, don't
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
296 evaluate expressions in menu items and don't make any menu.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
297
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
298 If we encounter submenus deeper than MAXDEPTH levels, ignore them. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
299
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
300 static void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
301 single_keymap_panes (keymap, pane_name, prefix, notreal, maxdepth)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
302 Lisp_Object keymap;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
303 Lisp_Object pane_name;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
304 Lisp_Object prefix;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
305 int notreal;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
306 int maxdepth;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
307 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
308 struct skp skp;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
309 struct gcpro gcpro1;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
310
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
311 skp.pending_maps = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
312 skp.maxdepth = maxdepth;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
313 skp.notreal = notreal;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
314 skp.notbuttons = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
315
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
316 if (maxdepth <= 0)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
317 return;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
318
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
319 push_menu_pane (pane_name, prefix);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
320
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
321 #ifndef HAVE_BOXES
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
322 /* Remember index for first item in this pane so we can go back and
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
323 add a prefix when (if) we see the first button. After that, notbuttons
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
324 is set to 0, to mark that we have seen a button and all non button
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
325 items need a prefix. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
326 skp.notbuttons = menu_items_used;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
327 #endif
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
328
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
329 GCPRO1 (skp.pending_maps);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
330 map_keymap_canonical (keymap, single_menu_item, Qnil, &skp);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
331 UNGCPRO;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
332
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
333 /* Process now any submenus which want to be panes at this level. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
334 while (CONSP (skp.pending_maps))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
335 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
336 Lisp_Object elt, eltcdr, string;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
337 elt = XCAR (skp.pending_maps);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
338 eltcdr = XCDR (elt);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
339 string = XCAR (eltcdr);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
340 /* We no longer discard the @ from the beginning of the string here.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
341 Instead, we do this in *menu_show. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
342 single_keymap_panes (Fcar (elt), string,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
343 XCDR (eltcdr), notreal, maxdepth - 1);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
344 skp.pending_maps = XCDR (skp.pending_maps);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
345 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
346 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
347
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
348 /* This is a subroutine of single_keymap_panes that handles one
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
349 keymap entry.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
350 KEY is a key in a keymap and ITEM is its binding.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
351 SKP->PENDING_MAPS_PTR is a list of keymaps waiting to be made into
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
352 separate panes.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
353 If SKP->NOTREAL is nonzero, only check for equivalent key bindings, don't
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
354 evaluate expressions in menu items and don't make any menu.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
355 If we encounter submenus deeper than SKP->MAXDEPTH levels, ignore them. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
356
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
357 static void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
358 single_menu_item (key, item, dummy, skp_v)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
359 Lisp_Object key, item, dummy;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
360 void *skp_v;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
361 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
362 Lisp_Object map, item_string, enabled;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
363 struct gcpro gcpro1, gcpro2;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
364 int res;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
365 struct skp *skp = skp_v;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
366
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
367 /* Parse the menu item and leave the result in item_properties. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
368 GCPRO2 (key, item);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
369 res = parse_menu_item (item, skp->notreal, 0);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
370 UNGCPRO;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
371 if (!res)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
372 return; /* Not a menu item. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
373
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
374 map = XVECTOR (item_properties)->contents[ITEM_PROPERTY_MAP];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
375
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
376 if (skp->notreal)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
377 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
378 /* We don't want to make a menu, just traverse the keymaps to
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
379 precompute equivalent key bindings. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
380 if (!NILP (map))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
381 single_keymap_panes (map, Qnil, key, 1, skp->maxdepth - 1);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
382 return;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
383 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
384
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
385 enabled = XVECTOR (item_properties)->contents[ITEM_PROPERTY_ENABLE];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
386 item_string = XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
387
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
388 if (!NILP (map) && SREF (item_string, 0) == '@')
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
389 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
390 if (!NILP (enabled))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
391 /* An enabled separate pane. Remember this to handle it later. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
392 skp->pending_maps = Fcons (Fcons (map, Fcons (item_string, key)),
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
393 skp->pending_maps);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
394 return;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
395 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
396
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
397 #ifdef HAVE_X_WINDOWS
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
398 #ifndef HAVE_BOXES
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
399 /* Simulate radio buttons and toggle boxes by putting a prefix in
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
400 front of them. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
401 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
402 Lisp_Object prefix = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
403 Lisp_Object type = XVECTOR (item_properties)->contents[ITEM_PROPERTY_TYPE];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
404 if (!NILP (type))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
405 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
406 Lisp_Object selected
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
407 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_SELECTED];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
408
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
409 if (skp->notbuttons)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
410 /* The first button. Line up previous items in this menu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
411 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
412 int index = skp->notbuttons; /* Index for first item this menu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
413 int submenu = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
414 Lisp_Object tem;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
415 while (index < menu_items_used)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
416 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
417 tem
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
418 = XVECTOR (menu_items)->contents[index + MENU_ITEMS_ITEM_NAME];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
419 if (NILP (tem))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
420 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
421 index++;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
422 submenu++; /* Skip sub menu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
423 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
424 else if (EQ (tem, Qlambda))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
425 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
426 index++;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
427 submenu--; /* End sub menu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
428 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
429 else if (EQ (tem, Qt))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
430 index += 3; /* Skip new pane marker. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
431 else if (EQ (tem, Qquote))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
432 index++; /* Skip a left, right divider. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
433 else
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
434 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
435 if (!submenu && SREF (tem, 0) != '\0'
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
436 && SREF (tem, 0) != '-')
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
437 XVECTOR (menu_items)->contents[index + MENU_ITEMS_ITEM_NAME]
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
438 = concat2 (build_string (" "), tem);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
439 index += MENU_ITEMS_ITEM_LENGTH;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
440 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
441 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
442 skp->notbuttons = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
443 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
444
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
445 /* Calculate prefix, if any, for this item. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
446 if (EQ (type, QCtoggle))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
447 prefix = build_string (NILP (selected) ? "[ ] " : "[X] ");
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
448 else if (EQ (type, QCradio))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
449 prefix = build_string (NILP (selected) ? "( ) " : "(*) ");
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
450 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
451 /* Not a button. If we have earlier buttons, then we need a prefix. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
452 else if (!skp->notbuttons && SREF (item_string, 0) != '\0'
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
453 && SREF (item_string, 0) != '-')
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
454 prefix = build_string (" ");
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
455
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
456 if (!NILP (prefix))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
457 item_string = concat2 (prefix, item_string);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
458 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
459 #endif /* not HAVE_BOXES */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
460
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
461 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
462 if (!NILP (map))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
463 /* Indicate visually that this is a submenu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
464 item_string = concat2 (item_string, build_string (" >"));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
465 #endif
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
466
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
467 #endif /* HAVE_X_WINDOWS */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
468
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
469 push_menu_item (item_string, enabled, key,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
470 XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF],
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
471 XVECTOR (item_properties)->contents[ITEM_PROPERTY_KEYEQ],
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
472 XVECTOR (item_properties)->contents[ITEM_PROPERTY_TYPE],
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
473 XVECTOR (item_properties)->contents[ITEM_PROPERTY_SELECTED],
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
474 XVECTOR (item_properties)->contents[ITEM_PROPERTY_HELP]);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
475
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
476 #if defined (USE_X_TOOLKIT) || defined (USE_GTK) || defined (HAVE_NTGUI)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
477 /* Display a submenu using the toolkit. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
478 if (! (NILP (map) || NILP (enabled)))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
479 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
480 push_submenu_start ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
481 single_keymap_panes (map, Qnil, key, 0, skp->maxdepth - 1);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
482 push_submenu_end ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
483 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
484 #endif
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
485 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
486
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
487 /* Look through KEYMAPS, a vector of keymaps that is NMAPS long,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
488 and generate menu panes for them in menu_items.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
489 If NOTREAL is nonzero,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
490 don't bother really computing whether an item is enabled. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
491
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
492 void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
493 keymap_panes (keymaps, nmaps, notreal)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
494 Lisp_Object *keymaps;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
495 int nmaps;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
496 int notreal;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
497 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
498 int mapno;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
499
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
500 init_menu_items ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
501
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
502 /* Loop over the given keymaps, making a pane for each map.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
503 But don't make a pane that is empty--ignore that map instead.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
504 P is the number of panes we have made so far. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
505 for (mapno = 0; mapno < nmaps; mapno++)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
506 single_keymap_panes (keymaps[mapno],
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
507 Fkeymap_prompt (keymaps[mapno]), Qnil, notreal, 10);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
508
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
509 finish_menu_items ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
510 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
511
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
512
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
513 /* Push the items in a single pane defined by the alist PANE. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
514 static void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
515 list_of_items (pane)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
516 Lisp_Object pane;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
517 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
518 Lisp_Object tail, item, item1;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
519
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
520 for (tail = pane; CONSP (tail); tail = XCDR (tail))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
521 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
522 item = XCAR (tail);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
523 if (STRINGP (item))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
524 push_menu_item (ENCODE_MENU_STRING (item), Qnil, Qnil, Qt,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
525 Qnil, Qnil, Qnil, Qnil);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
526 else if (CONSP (item))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
527 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
528 item1 = XCAR (item);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
529 CHECK_STRING (item1);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
530 push_menu_item (ENCODE_MENU_STRING (item1), Qt, XCDR (item),
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
531 Qt, Qnil, Qnil, Qnil, Qnil);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
532 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
533 else
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
534 push_left_right_boundary ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
535
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
536 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
537 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
538
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
539 /* Push all the panes and items of a menu described by the
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
540 alist-of-alists MENU.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
541 This handles old-fashioned calls to x-popup-menu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
542 void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
543 list_of_panes (menu)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
544 Lisp_Object menu;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
545 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
546 Lisp_Object tail;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
547
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
548 init_menu_items ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
549
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
550 for (tail = menu; CONSP (tail); tail = XCDR (tail))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
551 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
552 Lisp_Object elt, pane_name, pane_data;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
553 elt = XCAR (tail);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
554 pane_name = Fcar (elt);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
555 CHECK_STRING (pane_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
556 push_menu_pane (ENCODE_MENU_STRING (pane_name), Qnil);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
557 pane_data = Fcdr (elt);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
558 CHECK_CONS (pane_data);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
559 list_of_items (pane_data);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
560 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
561
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
562 finish_menu_items ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
563 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
564
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
565 /* Set up data in menu_items for a menu bar item
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
566 whose event type is ITEM_KEY (with string ITEM_NAME)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
567 and whose contents come from the list of keymaps MAPS. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
568 int
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
569 parse_single_submenu (item_key, item_name, maps)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
570 Lisp_Object item_key, item_name, maps;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
571 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
572 Lisp_Object length;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
573 int len;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
574 Lisp_Object *mapvec;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
575 int i;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
576 int top_level_items = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
577
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
578 length = Flength (maps);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
579 len = XINT (length);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
580
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
581 /* Convert the list MAPS into a vector MAPVEC. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
582 mapvec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
583 for (i = 0; i < len; i++)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
584 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
585 mapvec[i] = Fcar (maps);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
586 maps = Fcdr (maps);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
587 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
588
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
589 /* Loop over the given keymaps, making a pane for each map.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
590 But don't make a pane that is empty--ignore that map instead. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
591 for (i = 0; i < len; i++)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
592 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
593 if (!KEYMAPP (mapvec[i]))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
594 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
595 /* Here we have a command at top level in the menu bar
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
596 as opposed to a submenu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
597 top_level_items = 1;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
598 push_menu_pane (Qnil, Qnil);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
599 push_menu_item (item_name, Qt, item_key, mapvec[i],
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
600 Qnil, Qnil, Qnil, Qnil);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
601 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
602 else
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
603 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
604 Lisp_Object prompt;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
605 prompt = Fkeymap_prompt (mapvec[i]);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
606 single_keymap_panes (mapvec[i],
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
607 !NILP (prompt) ? prompt : item_name,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
608 item_key, 0, 10);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
609 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
610 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
611
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
612 return top_level_items;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
613 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
614
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
615
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
616 #if defined (USE_X_TOOLKIT) || defined (USE_GTK) || defined (HAVE_NTGUI)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
617
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
618 /* Allocate a widget_value, blocking input. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
619
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
620 widget_value *
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
621 xmalloc_widget_value ()
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
622 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
623 widget_value *value;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
624
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
625 BLOCK_INPUT;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
626 value = malloc_widget_value ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
627 UNBLOCK_INPUT;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
628
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
629 return value;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
630 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
631
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
632 /* This recursively calls free_widget_value on the tree of widgets.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
633 It must free all data that was malloc'ed for these widget_values.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
634 In Emacs, many slots are pointers into the data of Lisp_Strings, and
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
635 must be left alone. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
636
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
637 void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
638 free_menubar_widget_value_tree (wv)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
639 widget_value *wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
640 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
641 if (! wv) return;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
642
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
643 wv->name = wv->value = wv->key = (char *) 0xDEADBEEF;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
644
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
645 if (wv->contents && (wv->contents != (widget_value*)1))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
646 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
647 free_menubar_widget_value_tree (wv->contents);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
648 wv->contents = (widget_value *) 0xDEADBEEF;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
649 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
650 if (wv->next)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
651 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
652 free_menubar_widget_value_tree (wv->next);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
653 wv->next = (widget_value *) 0xDEADBEEF;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
654 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
655 BLOCK_INPUT;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
656 free_widget_value (wv);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
657 UNBLOCK_INPUT;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
658 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
659
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
660 /* Create a tree of widget_value objects
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
661 representing the panes and items
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
662 in menu_items starting at index START, up to index END. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
663
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
664 widget_value *
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
665 digest_single_submenu (start, end, top_level_items)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
666 int start, end, top_level_items;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
667 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
668 widget_value *wv, *prev_wv, *save_wv, *first_wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
669 int i;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
670 int submenu_depth = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
671 widget_value **submenu_stack;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
672 int panes_seen = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
673
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
674 submenu_stack
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
675 = (widget_value **) alloca (menu_items_used * sizeof (widget_value *));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
676 wv = xmalloc_widget_value ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
677 wv->name = "menu";
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
678 wv->value = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
679 wv->enabled = 1;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
680 wv->button_type = BUTTON_TYPE_NONE;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
681 wv->help = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
682 first_wv = wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
683 save_wv = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
684 prev_wv = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
685
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
686 /* Loop over all panes and items made by the preceding call
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
687 to parse_single_submenu and construct a tree of widget_value objects.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
688 Ignore the panes and items used by previous calls to
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
689 digest_single_submenu, even though those are also in menu_items. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
690 i = start;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
691 while (i < end)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
692 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
693 if (EQ (XVECTOR (menu_items)->contents[i], Qnil))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
694 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
695 submenu_stack[submenu_depth++] = save_wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
696 save_wv = prev_wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
697 prev_wv = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
698 i++;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
699 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
700 else if (EQ (XVECTOR (menu_items)->contents[i], Qlambda))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
701 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
702 prev_wv = save_wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
703 save_wv = submenu_stack[--submenu_depth];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
704 i++;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
705 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
706 else if (EQ (XVECTOR (menu_items)->contents[i], Qt)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
707 && submenu_depth != 0)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
708 i += MENU_ITEMS_PANE_LENGTH;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
709 /* Ignore a nil in the item list.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
710 It's meaningful only for dialog boxes. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
711 else if (EQ (XVECTOR (menu_items)->contents[i], Qquote))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
712 i += 1;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
713 else if (EQ (XVECTOR (menu_items)->contents[i], Qt))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
714 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
715 /* Create a new pane. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
716 Lisp_Object pane_name, prefix;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
717 char *pane_string;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
718
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
719 panes_seen++;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
720
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
721 pane_name = XVECTOR (menu_items)->contents[i + MENU_ITEMS_PANE_NAME];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
722 prefix = XVECTOR (menu_items)->contents[i + MENU_ITEMS_PANE_PREFIX];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
723
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
724 #ifdef HAVE_NTGUI
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
725 if (STRINGP (pane_name))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
726 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
727 if (unicode_append_menu)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
728 /* Encode as UTF-8 for now. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
729 pane_name = ENCODE_UTF_8 (pane_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
730 else if (STRING_MULTIBYTE (pane_name))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
731 pane_name = ENCODE_SYSTEM (pane_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
732
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
733 ASET (menu_items, i + MENU_ITEMS_PANE_NAME, pane_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
734 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
735 #elif !defined (HAVE_MULTILINGUAL_MENU)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
736 if (STRINGP (pane_name) && STRING_MULTIBYTE (pane_name))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
737 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
738 pane_name = ENCODE_MENU_STRING (pane_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
739 ASET (menu_items, i + MENU_ITEMS_PANE_NAME, pane_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
740 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
741 #endif
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
742
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
743 pane_string = (NILP (pane_name)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
744 ? "" : (char *) SDATA (pane_name));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
745 /* If there is just one top-level pane, put all its items directly
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
746 under the top-level menu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
747 if (menu_items_n_panes == 1)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
748 pane_string = "";
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
749
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
750 /* If the pane has a meaningful name,
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
751 make the pane a top-level menu item
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
752 with its items as a submenu beneath it. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
753 if (strcmp (pane_string, ""))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
754 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
755 wv = xmalloc_widget_value ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
756 if (save_wv)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
757 save_wv->next = wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
758 else
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
759 first_wv->contents = wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
760 wv->lname = pane_name;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
761 /* Set value to 1 so update_submenu_strings can handle '@' */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
762 wv->value = (char *)1;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
763 wv->enabled = 1;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
764 wv->button_type = BUTTON_TYPE_NONE;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
765 wv->help = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
766 save_wv = wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
767 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
768 else
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
769 save_wv = first_wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
770
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
771 prev_wv = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
772 i += MENU_ITEMS_PANE_LENGTH;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
773 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
774 else
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
775 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
776 /* Create a new item within current pane. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
777 Lisp_Object item_name, enable, descrip, def, type, selected;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
778 Lisp_Object help;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
779
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
780 /* All items should be contained in panes. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
781 if (panes_seen == 0)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
782 abort ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
783
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
784 item_name = AREF (menu_items, i + MENU_ITEMS_ITEM_NAME);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
785 enable = AREF (menu_items, i + MENU_ITEMS_ITEM_ENABLE);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
786 descrip = AREF (menu_items, i + MENU_ITEMS_ITEM_EQUIV_KEY);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
787 def = AREF (menu_items, i + MENU_ITEMS_ITEM_DEFINITION);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
788 type = AREF (menu_items, i + MENU_ITEMS_ITEM_TYPE);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
789 selected = AREF (menu_items, i + MENU_ITEMS_ITEM_SELECTED);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
790 help = AREF (menu_items, i + MENU_ITEMS_ITEM_HELP);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
791
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
792 #ifdef HAVE_NTGUI
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
793 if (STRINGP (item_name))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
794 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
795 if (unicode_append_menu)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
796 item_name = ENCODE_UTF_8 (item_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
797 else if (STRING_MULTIBYTE (item_name))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
798 item_name = ENCODE_SYSTEM (item_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
799
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
800 ASET (menu_items, i + MENU_ITEMS_ITEM_NAME, item_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
801 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
802
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
803 if (STRINGP (descrip) && STRING_MULTIBYTE (descrip))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
804 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
805 descrip = ENCODE_SYSTEM (descrip);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
806 ASET (menu_items, i + MENU_ITEMS_ITEM_EQUIV_KEY, descrip);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
807 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
808 #elif !defined (HAVE_MULTILINGUAL_MENU)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
809 if (STRING_MULTIBYTE (item_name))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
810 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
811 item_name = ENCODE_MENU_STRING (item_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
812 ASET (menu_items, i + MENU_ITEMS_ITEM_NAME, item_name);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
813 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
814
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
815 if (STRINGP (descrip) && STRING_MULTIBYTE (descrip))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
816 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
817 descrip = ENCODE_MENU_STRING (descrip);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
818 ASET (menu_items, i + MENU_ITEMS_ITEM_EQUIV_KEY, descrip);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
819 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
820 #endif
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
821
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
822 wv = xmalloc_widget_value ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
823 if (prev_wv)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
824 prev_wv->next = wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
825 else
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
826 save_wv->contents = wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
827
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
828 wv->lname = item_name;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
829 if (!NILP (descrip))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
830 wv->lkey = descrip;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
831 wv->value = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
832 /* The EMACS_INT cast avoids a warning. There's no problem
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
833 as long as pointers have enough bits to hold small integers. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
834 wv->call_data = (!NILP (def) ? (void *) (EMACS_INT) i : 0);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
835 wv->enabled = !NILP (enable);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
836
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
837 if (NILP (type))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
838 wv->button_type = BUTTON_TYPE_NONE;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
839 else if (EQ (type, QCradio))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
840 wv->button_type = BUTTON_TYPE_RADIO;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
841 else if (EQ (type, QCtoggle))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
842 wv->button_type = BUTTON_TYPE_TOGGLE;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
843 else
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
844 abort ();
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
845
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
846 wv->selected = !NILP (selected);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
847 if (! STRINGP (help))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
848 help = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
849
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
850 wv->help = help;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
851
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
852 prev_wv = wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
853
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
854 i += MENU_ITEMS_ITEM_LENGTH;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
855 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
856 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
857
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
858 /* If we have just one "menu item"
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
859 that was originally a button, return it by itself. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
860 if (top_level_items && first_wv->contents && first_wv->contents->next == 0)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
861 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
862 wv = first_wv->contents;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
863 free_widget_value (first_wv);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
864 return wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
865 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
866
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
867 return first_wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
868 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
869
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
870 /* Walk through the widget_value tree starting at FIRST_WV and update
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
871 the char * pointers from the corresponding lisp values.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
872 We do this after building the whole tree, since GC may happen while the
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
873 tree is constructed, and small strings are relocated. So we must wait
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
874 until no GC can happen before storing pointers into lisp values. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
875 void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
876 update_submenu_strings (first_wv)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
877 widget_value *first_wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
878 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
879 widget_value *wv;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
880
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
881 for (wv = first_wv; wv; wv = wv->next)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
882 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
883 if (STRINGP (wv->lname))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
884 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
885 wv->name = (char *) SDATA (wv->lname);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
886
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
887 /* Ignore the @ that means "separate pane".
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
888 This is a kludge, but this isn't worth more time. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
889 if (wv->value == (char *)1)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
890 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
891 if (wv->name[0] == '@')
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
892 wv->name++;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
893 wv->value = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
894 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
895 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
896
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
897 if (STRINGP (wv->lkey))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
898 wv->key = (char *) SDATA (wv->lkey);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
899
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
900 if (wv->contents)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
901 update_submenu_strings (wv->contents);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
902 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
903 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
904
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
905 /* Find the menu selection and store it in the keyboard buffer.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
906 F is the frame the menu is on.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
907 MENU_BAR_ITEMS_USED is the length of VECTOR.
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
908 VECTOR is an array of menu events for the whole menu. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
909
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
910 void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
911 find_and_call_menu_selection (f, menu_bar_items_used, vector, client_data)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
912 FRAME_PTR f;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
913 EMACS_INT menu_bar_items_used;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
914 Lisp_Object vector;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
915 void *client_data;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
916 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
917 Lisp_Object prefix, entry;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
918 Lisp_Object *subprefix_stack;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
919 int submenu_depth = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
920 int i;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
921
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
922 entry = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
923 subprefix_stack = (Lisp_Object *) alloca (menu_bar_items_used * sizeof (Lisp_Object));
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
924 prefix = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
925 i = 0;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
926
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
927 while (i < menu_bar_items_used)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
928 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
929 if (EQ (XVECTOR (vector)->contents[i], Qnil))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
930 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
931 subprefix_stack[submenu_depth++] = prefix;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
932 prefix = entry;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
933 i++;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
934 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
935 else if (EQ (XVECTOR (vector)->contents[i], Qlambda))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
936 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
937 prefix = subprefix_stack[--submenu_depth];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
938 i++;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
939 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
940 else if (EQ (XVECTOR (vector)->contents[i], Qt))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
941 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
942 prefix = XVECTOR (vector)->contents[i + MENU_ITEMS_PANE_PREFIX];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
943 i += MENU_ITEMS_PANE_LENGTH;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
944 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
945 else
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
946 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
947 entry = XVECTOR (vector)->contents[i + MENU_ITEMS_ITEM_VALUE];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
948 /* The EMACS_INT cast avoids a warning. There's no problem
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
949 as long as pointers have enough bits to hold small integers. */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
950 if ((int) (EMACS_INT) client_data == i)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
951 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
952 int j;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
953 struct input_event buf;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
954 Lisp_Object frame;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
955 EVENT_INIT (buf);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
956
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
957 XSETFRAME (frame, f);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
958 buf.kind = MENU_BAR_EVENT;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
959 buf.frame_or_window = frame;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
960 buf.arg = frame;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
961 kbd_buffer_store_event (&buf);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
962
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
963 for (j = 0; j < submenu_depth; j++)
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
964 if (!NILP (subprefix_stack[j]))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
965 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
966 buf.kind = MENU_BAR_EVENT;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
967 buf.frame_or_window = frame;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
968 buf.arg = subprefix_stack[j];
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
969 kbd_buffer_store_event (&buf);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
970 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
971
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
972 if (!NILP (prefix))
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
973 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
974 buf.kind = MENU_BAR_EVENT;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
975 buf.frame_or_window = frame;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
976 buf.arg = prefix;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
977 kbd_buffer_store_event (&buf);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
978 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
979
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
980 buf.kind = MENU_BAR_EVENT;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
981 buf.frame_or_window = frame;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
982 buf.arg = entry;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
983 kbd_buffer_store_event (&buf);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
984
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
985 return;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
986 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
987 i += MENU_ITEMS_ITEM_LENGTH;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
988 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
989 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
990 }
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
991
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
992 #endif /* USE_X_TOOLKIT || USE_GTK || HAVE_NTGUI */
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
993
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
994 void
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
995 syms_of_menu ()
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
996 {
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
997 staticpro (&menu_items);
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
998 menu_items = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
999 menu_items_inuse = Qnil;
816ec0114c3c * menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1000 }