Mercurial > emacs
annotate src/menu.c @ 99492:ee792794d888
(isearch-search-fun): Compare the length of the
current search string with the length of the string from the
previous search state to detect the situation when the user
adds or removes characters in the search string.
Use word-search-forward-lax and word-search-backward-lax in this
case, and otherwise word-search-forward and word-search-backward.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Tue, 11 Nov 2008 19:43:09 +0000 |
parents | 95d08e34e42a |
children | e038c1a8307c |
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 |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
39 #ifdef HAVE_NS |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
40 #include "nsterm.h" |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
41 #endif |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
42 |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
43 #ifdef USE_GTK |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
44 #include "gtkutil.h" |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
45 #endif |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
46 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
47 #ifdef HAVE_NTGUI |
95711
1c2b64c79c32
Include w32term.h, move widget related
Jason Rumney <jasonr@gnu.org>
parents:
95684
diff
changeset
|
48 #include "w32term.h" |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
49 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 extern AppendMenuW_Proc unicode_append_menu; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
52 #endif /* HAVE_NTGUI */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
53 |
96608 | 54 #include "menu.h" |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
55 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
56 /* 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
|
57 #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
|
58 #define HAVE_BOXES 1 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
59 #endif |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
60 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
61 extern Lisp_Object QCtoggle, QCradio; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
63 Lisp_Object menu_items; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
64 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 /* 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
|
66 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
|
67 Lisp_Object menu_items_inuse; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
68 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
69 /* 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
|
70 int menu_items_allocated; |
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 /* 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
|
73 int menu_items_used; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
74 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
75 /* 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
|
76 excluding those within submenus. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 int menu_items_n_panes; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
78 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
79 /* Current depth within submenus. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 static int menu_items_submenu_depth; |
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 void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
83 init_menu_items () |
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 if (!NILP (menu_items_inuse)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
86 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
|
87 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 if (NILP (menu_items)) |
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 menu_items_allocated = 60; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 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
|
92 } |
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 menu_items_inuse = Qt; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
95 menu_items_used = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
96 menu_items_n_panes = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
97 menu_items_submenu_depth = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
98 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
99 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
100 /* 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
|
101 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
102 void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
103 finish_menu_items () |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
104 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
105 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
106 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
107 Lisp_Object |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
108 unuse_menu_items (dummy) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
109 Lisp_Object dummy; |
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 return menu_items_inuse = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
112 } |
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 /* 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
|
115 in menu_items. */ |
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 void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
118 discard_menu_items () |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
119 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
120 /* 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
|
121 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
|
122 if (menu_items_allocated > 200) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
123 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
124 menu_items = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
125 menu_items_allocated = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
126 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
127 xassert (NILP (menu_items_inuse)); |
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 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
130 /* 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
|
131 mechanism. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
132 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
133 static Lisp_Object |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
134 restore_menu_items (saved) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
135 Lisp_Object saved; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
136 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
137 menu_items = XCAR (saved); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
138 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
|
139 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
|
140 saved = XCDR (saved); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
141 menu_items_used = XINT (XCAR (saved)); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
142 saved = XCDR (saved); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
143 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
|
144 saved = XCDR (saved); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
145 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
|
146 return Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
147 } |
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 /* 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
|
150 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
|
151 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
152 void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
153 save_menu_items () |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
154 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
155 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
|
156 make_number (menu_items_used), |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 make_number (menu_items_n_panes), |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
158 make_number (menu_items_submenu_depth)); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 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
|
160 menu_items_inuse = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
161 menu_items = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
162 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
163 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
164 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
165 /* 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
|
166 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
167 static void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
168 grow_menu_items () |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
169 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
170 menu_items_allocated *= 2; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
171 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
|
172 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
173 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
174 /* Begin a submenu. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
175 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
176 static void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
177 push_submenu_start () |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
178 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
179 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
|
180 grow_menu_items (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
181 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
182 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
|
183 menu_items_submenu_depth++; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
184 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
185 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
186 /* End a submenu. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
187 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
188 static void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
189 push_submenu_end () |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
190 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
191 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
|
192 grow_menu_items (); |
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 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
|
195 menu_items_submenu_depth--; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
196 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
197 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
198 /* Indicate boundary between left and right. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
199 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
200 static void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
201 push_left_right_boundary () |
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 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
|
204 grow_menu_items (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
205 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
206 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
|
207 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
208 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
209 /* 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
|
210 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
|
211 |
95726
ce4bece7ab52
(single_keymap_panes, push_menu_pane, push_menu_item): Make static again.
Jason Rumney <jasonr@gnu.org>
parents:
95714
diff
changeset
|
212 static void |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
213 push_menu_pane (name, prefix_vec) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
214 Lisp_Object name, prefix_vec; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
215 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
216 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
|
217 grow_menu_items (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
218 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
219 if (menu_items_submenu_depth == 0) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
220 menu_items_n_panes++; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
221 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
|
222 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
|
223 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
|
224 } |
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 /* 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
|
227 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
|
228 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
|
229 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
|
230 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
|
231 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
|
232 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
|
233 |
95726
ce4bece7ab52
(single_keymap_panes, push_menu_pane, push_menu_item): Make static again.
Jason Rumney <jasonr@gnu.org>
parents:
95714
diff
changeset
|
234 static void |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
235 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
|
236 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
|
237 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
238 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
|
239 grow_menu_items (); |
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 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
|
242 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
|
243 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
|
244 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
|
245 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
|
246 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
|
247 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
|
248 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
|
249 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
250 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
251 /* 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
|
252 struct skp |
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 Lisp_Object pending_maps; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
255 int maxdepth, notreal; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
256 int notbuttons; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
257 }; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
258 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
259 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
|
260 void *)); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
261 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
262 /* 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
|
263 It handles one keymap, KEYMAP. |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
264 The other arguments are passed along |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
265 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
|
266 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
|
267 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
|
268 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
269 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
|
270 |
95726
ce4bece7ab52
(single_keymap_panes, push_menu_pane, push_menu_item): Make static again.
Jason Rumney <jasonr@gnu.org>
parents:
95714
diff
changeset
|
271 static void |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
272 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
|
273 Lisp_Object keymap; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
274 Lisp_Object pane_name; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
275 Lisp_Object prefix; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
276 int notreal; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
277 int maxdepth; |
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 struct skp skp; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
280 struct gcpro gcpro1; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
281 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
282 skp.pending_maps = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
283 skp.maxdepth = maxdepth; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
284 skp.notreal = notreal; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
285 skp.notbuttons = 0; |
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 if (maxdepth <= 0) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
288 return; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
289 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
290 push_menu_pane (pane_name, prefix); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
291 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
292 #ifndef HAVE_BOXES |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
293 /* 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
|
294 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
|
295 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
|
296 items need a prefix. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
297 skp.notbuttons = menu_items_used; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
298 #endif |
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 GCPRO1 (skp.pending_maps); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
301 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
|
302 UNGCPRO; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
303 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
304 /* 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
|
305 while (CONSP (skp.pending_maps)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
306 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
307 Lisp_Object elt, eltcdr, string; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
308 elt = XCAR (skp.pending_maps); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
309 eltcdr = XCDR (elt); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
310 string = XCAR (eltcdr); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
311 /* 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
|
312 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
|
313 single_keymap_panes (Fcar (elt), string, |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
314 XCDR (eltcdr), notreal, maxdepth - 1); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
315 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
|
316 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
317 } |
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 /* 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
|
320 keymap entry. |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
321 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
|
322 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
|
323 separate panes. |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
324 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
|
325 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
|
326 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
|
327 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
328 static void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
329 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
|
330 Lisp_Object key, item, dummy; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
331 void *skp_v; |
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 Lisp_Object map, item_string, enabled; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
334 struct gcpro gcpro1, gcpro2; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
335 int res; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
336 struct skp *skp = skp_v; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
337 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
338 /* 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
|
339 GCPRO2 (key, item); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
340 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
|
341 UNGCPRO; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
342 if (!res) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
343 return; /* Not a menu item. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
344 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
345 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
|
346 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
347 if (skp->notreal) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
348 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
349 /* 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
|
350 precompute equivalent key bindings. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
351 if (!NILP (map)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
352 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
|
353 return; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
354 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
355 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
356 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
|
357 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
|
358 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
359 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
|
360 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
361 if (!NILP (enabled)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
362 /* 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
|
363 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
|
364 skp->pending_maps); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
365 return; |
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 |
97997
c1f5ac949139
(single_menu_item) [!HAVE_BOXES]: Enable emulation of toggle boxes and
Eli Zaretskii <eliz@gnu.org>
parents:
97267
diff
changeset
|
368 #if defined(HAVE_X_WINDOWS) || defined(MSDOS) |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
369 #ifndef HAVE_BOXES |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
370 /* 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
|
371 front of them. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
372 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
373 Lisp_Object prefix = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
374 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
|
375 if (!NILP (type)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
376 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
377 Lisp_Object selected |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
378 = 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
|
379 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
380 if (skp->notbuttons) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
381 /* 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
|
382 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
383 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
|
384 int submenu = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
385 Lisp_Object tem; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
386 while (index < menu_items_used) |
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 tem |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
389 = 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
|
390 if (NILP (tem)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
391 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
392 index++; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
393 submenu++; /* Skip sub menu. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
394 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
395 else if (EQ (tem, Qlambda)) |
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 index++; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
398 submenu--; /* End sub menu. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
399 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
400 else if (EQ (tem, Qt)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
401 index += 3; /* Skip new pane marker. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
402 else if (EQ (tem, Qquote)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
403 index++; /* Skip a left, right divider. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
404 else |
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 if (!submenu && SREF (tem, 0) != '\0' |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
407 && SREF (tem, 0) != '-') |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
408 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
|
409 = concat2 (build_string (" "), tem); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
410 index += MENU_ITEMS_ITEM_LENGTH; |
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 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
413 skp->notbuttons = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
414 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
415 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
416 /* 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
|
417 if (EQ (type, QCtoggle)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
418 prefix = build_string (NILP (selected) ? "[ ] " : "[X] "); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
419 else if (EQ (type, QCradio)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
420 prefix = build_string (NILP (selected) ? "( ) " : "(*) "); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
421 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
422 /* 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
|
423 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
|
424 && SREF (item_string, 0) != '-') |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
425 prefix = build_string (" "); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
426 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
427 if (!NILP (prefix)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
428 item_string = concat2 (prefix, item_string); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
429 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
430 #endif /* not HAVE_BOXES */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
431 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
432 #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
|
433 if (!NILP (map)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
434 /* 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
|
435 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
|
436 #endif |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
437 |
97997
c1f5ac949139
(single_menu_item) [!HAVE_BOXES]: Enable emulation of toggle boxes and
Eli Zaretskii <eliz@gnu.org>
parents:
97267
diff
changeset
|
438 #endif /* HAVE_X_WINDOWS || MSDOS */ |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
439 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
440 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
|
441 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
|
442 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
|
443 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
|
444 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
|
445 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
|
446 |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
447 #if defined (USE_X_TOOLKIT) || defined (USE_GTK) || defined (HAVE_NS) || defined (HAVE_NTGUI) |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
448 /* Display a submenu using the toolkit. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
449 if (! (NILP (map) || NILP (enabled))) |
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 push_submenu_start (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
452 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
|
453 push_submenu_end (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
454 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
455 #endif |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
456 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
457 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
458 /* 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
|
459 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
|
460 If NOTREAL is nonzero, |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
461 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
|
462 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
463 void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
464 keymap_panes (keymaps, nmaps, notreal) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
465 Lisp_Object *keymaps; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
466 int nmaps; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
467 int notreal; |
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 int mapno; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
470 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
471 init_menu_items (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
472 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
473 /* 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
|
474 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
|
475 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
|
476 for (mapno = 0; mapno < nmaps; mapno++) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
477 single_keymap_panes (keymaps[mapno], |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
478 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
|
479 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
480 finish_menu_items (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
481 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
482 |
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 /* 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
|
485 static void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
486 list_of_items (pane) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
487 Lisp_Object pane; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
488 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
489 Lisp_Object tail, item, item1; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
490 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
491 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
|
492 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
493 item = XCAR (tail); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
494 if (STRINGP (item)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
495 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
|
496 Qnil, Qnil, Qnil, Qnil); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
497 else if (CONSP (item)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
498 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
499 item1 = XCAR (item); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
500 CHECK_STRING (item1); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
501 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
|
502 Qt, Qnil, Qnil, Qnil, Qnil); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
503 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
504 else |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
505 push_left_right_boundary (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
506 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
507 } |
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 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
510 /* 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
|
511 alist-of-alists MENU. |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
512 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
|
513 void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
514 list_of_panes (menu) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
515 Lisp_Object menu; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
516 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
517 Lisp_Object tail; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
518 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
519 init_menu_items (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
520 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
521 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
|
522 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
523 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
|
524 elt = XCAR (tail); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
525 pane_name = Fcar (elt); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
526 CHECK_STRING (pane_name); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
527 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
|
528 pane_data = Fcdr (elt); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
529 CHECK_CONS (pane_data); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
530 list_of_items (pane_data); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
531 } |
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 finish_menu_items (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
534 } |
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 /* 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
|
537 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
|
538 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
|
539 int |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
540 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
|
541 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
|
542 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
543 Lisp_Object length; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
544 int len; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
545 Lisp_Object *mapvec; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
546 int i; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
547 int top_level_items = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
548 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
549 length = Flength (maps); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
550 len = XINT (length); |
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 /* 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
|
553 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
|
554 for (i = 0; i < len; i++) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
555 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
556 mapvec[i] = Fcar (maps); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
557 maps = Fcdr (maps); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
558 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
559 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
560 /* 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
|
561 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
|
562 for (i = 0; i < len; i++) |
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 if (!KEYMAPP (mapvec[i])) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
565 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
566 /* 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
|
567 as opposed to a submenu. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
568 top_level_items = 1; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
569 push_menu_pane (Qnil, Qnil); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
570 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
|
571 Qnil, Qnil, Qnil, Qnil); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
572 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
573 else |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
574 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
575 Lisp_Object prompt; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
576 prompt = Fkeymap_prompt (mapvec[i]); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
577 single_keymap_panes (mapvec[i], |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
578 !NILP (prompt) ? prompt : item_name, |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
579 item_key, 0, 10); |
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 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
582 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
583 return top_level_items; |
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 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
586 |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
587 #if defined (USE_X_TOOLKIT) || defined (USE_GTK) || defined (HAVE_NS) || defined (HAVE_NTGUI) |
95646
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 /* Allocate a widget_value, blocking input. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
590 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
591 widget_value * |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
592 xmalloc_widget_value () |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
593 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
594 widget_value *value; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
595 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
596 BLOCK_INPUT; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
597 value = malloc_widget_value (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
598 UNBLOCK_INPUT; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
599 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
600 return value; |
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 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
603 /* 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
|
604 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
|
605 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
|
606 must be left alone. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
607 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
608 void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
609 free_menubar_widget_value_tree (wv) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
610 widget_value *wv; |
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 if (! wv) return; |
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 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
|
615 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
616 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
|
617 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
618 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
|
619 wv->contents = (widget_value *) 0xDEADBEEF; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
620 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
621 if (wv->next) |
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 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
|
624 wv->next = (widget_value *) 0xDEADBEEF; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
625 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
626 BLOCK_INPUT; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
627 free_widget_value (wv); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
628 UNBLOCK_INPUT; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
629 } |
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 /* 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
|
632 representing the panes and items |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
633 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
|
634 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
635 widget_value * |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
636 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
|
637 int start, end, top_level_items; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
638 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
639 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
|
640 int i; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
641 int submenu_depth = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
642 widget_value **submenu_stack; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
643 int panes_seen = 0; |
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 submenu_stack |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
646 = (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
|
647 wv = xmalloc_widget_value (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
648 wv->name = "menu"; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
649 wv->value = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
650 wv->enabled = 1; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
651 wv->button_type = BUTTON_TYPE_NONE; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
652 wv->help = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
653 first_wv = wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
654 save_wv = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
655 prev_wv = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
656 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
657 /* 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
|
658 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
|
659 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
|
660 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
|
661 i = start; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
662 while (i < 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 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
|
665 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
666 submenu_stack[submenu_depth++] = save_wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
667 save_wv = prev_wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
668 prev_wv = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
669 i++; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
670 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
671 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
|
672 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
673 prev_wv = save_wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
674 save_wv = submenu_stack[--submenu_depth]; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
675 i++; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
676 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
677 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
|
678 && submenu_depth != 0) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
679 i += MENU_ITEMS_PANE_LENGTH; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
680 /* 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
|
681 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
|
682 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
|
683 i += 1; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
684 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
|
685 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
686 /* Create a new pane. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
687 Lisp_Object pane_name, prefix; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
688 char *pane_string; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
689 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
690 panes_seen++; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
691 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
692 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
|
693 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
|
694 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
695 #ifdef HAVE_NTGUI |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
696 if (STRINGP (pane_name)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
697 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
698 if (unicode_append_menu) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
699 /* Encode as UTF-8 for now. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
700 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
|
701 else if (STRING_MULTIBYTE (pane_name)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
702 pane_name = ENCODE_SYSTEM (pane_name); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
703 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
704 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
|
705 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
706 #elif !defined (HAVE_MULTILINGUAL_MENU) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
707 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
|
708 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
709 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
|
710 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
|
711 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
712 #endif |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
713 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
714 pane_string = (NILP (pane_name) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
715 ? "" : (char *) SDATA (pane_name)); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
716 /* 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
|
717 under the top-level menu. */ |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
718 if (menu_items_n_panes == 1) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
719 pane_string = ""; |
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 /* 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
|
722 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
|
723 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
|
724 if (strcmp (pane_string, "")) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
725 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
726 wv = xmalloc_widget_value (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
727 if (save_wv) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
728 save_wv->next = wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
729 else |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
730 first_wv->contents = wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
731 wv->lname = pane_name; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
732 /* 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
|
733 wv->value = (char *)1; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
734 wv->enabled = 1; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
735 wv->button_type = BUTTON_TYPE_NONE; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
736 wv->help = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
737 save_wv = wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
738 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
739 else |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
740 save_wv = first_wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
741 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
742 prev_wv = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
743 i += MENU_ITEMS_PANE_LENGTH; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
744 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
745 else |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
746 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
747 /* 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
|
748 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
|
749 Lisp_Object help; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
750 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
751 /* 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
|
752 if (panes_seen == 0) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
753 abort (); |
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 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
|
756 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
|
757 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
|
758 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
|
759 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
|
760 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
|
761 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
|
762 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
763 #ifdef HAVE_NTGUI |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
764 if (STRINGP (item_name)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
765 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
766 if (unicode_append_menu) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
767 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
|
768 else if (STRING_MULTIBYTE (item_name)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
769 item_name = ENCODE_SYSTEM (item_name); |
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 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
|
772 } |
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 if (STRINGP (descrip) && STRING_MULTIBYTE (descrip)) |
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 descrip = ENCODE_SYSTEM (descrip); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
777 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
|
778 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
779 #elif !defined (HAVE_MULTILINGUAL_MENU) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
780 if (STRING_MULTIBYTE (item_name)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
781 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
782 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
|
783 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
|
784 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
785 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
786 if (STRINGP (descrip) && STRING_MULTIBYTE (descrip)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
787 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
788 descrip = ENCODE_MENU_STRING (descrip); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
789 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
|
790 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
791 #endif |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
792 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
793 wv = xmalloc_widget_value (); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
794 if (prev_wv) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
795 prev_wv->next = wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
796 else |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
797 save_wv->contents = wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
798 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
799 wv->lname = item_name; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
800 if (!NILP (descrip)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
801 wv->lkey = descrip; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
802 wv->value = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
803 /* 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
|
804 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
|
805 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
|
806 wv->enabled = !NILP (enable); |
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 if (NILP (type)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
809 wv->button_type = BUTTON_TYPE_NONE; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
810 else if (EQ (type, QCradio)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
811 wv->button_type = BUTTON_TYPE_RADIO; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
812 else if (EQ (type, QCtoggle)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
813 wv->button_type = BUTTON_TYPE_TOGGLE; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
814 else |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
815 abort (); |
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 wv->selected = !NILP (selected); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
818 if (! STRINGP (help)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
819 help = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
820 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
821 wv->help = help; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
822 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
823 prev_wv = wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
824 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
825 i += MENU_ITEMS_ITEM_LENGTH; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
826 } |
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 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
829 /* 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
|
830 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
|
831 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
|
832 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
833 wv = first_wv->contents; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
834 free_widget_value (first_wv); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
835 return wv; |
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 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
838 return first_wv; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
839 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
840 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
841 /* 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
|
842 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
|
843 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
|
844 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
|
845 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
|
846 void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
847 update_submenu_strings (first_wv) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
848 widget_value *first_wv; |
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 widget_value *wv; |
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 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
|
853 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
854 if (STRINGP (wv->lname)) |
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 wv->name = (char *) SDATA (wv->lname); |
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 /* Ignore the @ that means "separate pane". |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
859 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
|
860 if (wv->value == (char *)1) |
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 if (wv->name[0] == '@') |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
863 wv->name++; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
864 wv->value = 0; |
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 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
868 if (STRINGP (wv->lkey)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
869 wv->key = (char *) SDATA (wv->lkey); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
870 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
871 if (wv->contents) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
872 update_submenu_strings (wv->contents); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
873 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
874 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
875 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
876 /* 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
|
877 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
|
878 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
|
879 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
|
880 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
881 void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
882 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
|
883 FRAME_PTR f; |
96759
1e2f7aab70ba
* Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
96675
diff
changeset
|
884 int menu_bar_items_used; |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
885 Lisp_Object vector; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
886 void *client_data; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
887 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
888 Lisp_Object prefix, entry; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
889 Lisp_Object *subprefix_stack; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
890 int submenu_depth = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
891 int i; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
892 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
893 entry = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
894 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
|
895 prefix = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
896 i = 0; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
897 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
898 while (i < menu_bar_items_used) |
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 (EQ (XVECTOR (vector)->contents[i], Qnil)) |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
901 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
902 subprefix_stack[submenu_depth++] = prefix; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
903 prefix = entry; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
904 i++; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
905 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
906 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
|
907 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
908 prefix = subprefix_stack[--submenu_depth]; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
909 i++; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
910 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
911 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
|
912 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
913 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
|
914 i += MENU_ITEMS_PANE_LENGTH; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
915 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
916 else |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
917 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
918 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
|
919 /* 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
|
920 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
|
921 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
|
922 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
923 int j; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
924 struct input_event buf; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
925 Lisp_Object frame; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
926 EVENT_INIT (buf); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
927 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
928 XSETFRAME (frame, f); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
929 buf.kind = MENU_BAR_EVENT; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
930 buf.frame_or_window = frame; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
931 buf.arg = frame; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
932 kbd_buffer_store_event (&buf); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
933 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
934 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
|
935 if (!NILP (subprefix_stack[j])) |
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 buf.kind = MENU_BAR_EVENT; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
938 buf.frame_or_window = frame; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
939 buf.arg = subprefix_stack[j]; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
940 kbd_buffer_store_event (&buf); |
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 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
943 if (!NILP (prefix)) |
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 buf.kind = MENU_BAR_EVENT; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
946 buf.frame_or_window = frame; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
947 buf.arg = prefix; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
948 kbd_buffer_store_event (&buf); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
949 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
950 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
951 buf.kind = MENU_BAR_EVENT; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
952 buf.frame_or_window = frame; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
953 buf.arg = entry; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
954 kbd_buffer_store_event (&buf); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
955 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
956 return; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
957 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
958 i += MENU_ITEMS_ITEM_LENGTH; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
959 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
960 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
961 } |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
962 |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
963 #endif /* USE_X_TOOLKIT || USE_GTK || HAVE_NS || HAVE_NTGUI */ |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
964 |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
965 #ifdef HAVE_NS |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
966 /* As above, but return the menu selection instead of storing in kb buffer. |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
967 If keymaps==1, return full prefixes to selection. */ |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
968 Lisp_Object |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
969 find_and_return_menu_selection (FRAME_PTR f, int keymaps, void *client_data) |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
970 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
971 Lisp_Object prefix, entry; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
972 int i; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
973 Lisp_Object *subprefix_stack; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
974 int submenu_depth = 0; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
975 |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
976 prefix = entry = Qnil; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
977 i = 0; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
978 subprefix_stack = |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
979 (Lisp_Object *)alloca(menu_items_used * sizeof (Lisp_Object)); |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
980 |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
981 while (i < menu_items_used) |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
982 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
983 if (EQ (XVECTOR (menu_items)->contents[i], Qnil)) |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
984 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
985 subprefix_stack[submenu_depth++] = prefix; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
986 prefix = entry; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
987 i++; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
988 } |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
989 else if (EQ (XVECTOR (menu_items)->contents[i], Qlambda)) |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
990 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
991 prefix = subprefix_stack[--submenu_depth]; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
992 i++; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
993 } |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
994 else if (EQ (XVECTOR (menu_items)->contents[i], Qt)) |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
995 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
996 prefix |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
997 = XVECTOR (menu_items)->contents[i + MENU_ITEMS_PANE_PREFIX]; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
998 i += MENU_ITEMS_PANE_LENGTH; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
999 } |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1000 /* Ignore a nil in the item list. |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1001 It's meaningful only for dialog boxes. */ |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1002 else if (EQ (XVECTOR (menu_items)->contents[i], Qquote)) |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1003 i += 1; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1004 else |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1005 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1006 entry |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1007 = XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_VALUE]; |
98494
95d08e34e42a
* menu.c (find_and_return_menu_selection) Add cast.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
97997
diff
changeset
|
1008 if ((int) (EMACS_INT)client_data == (int)(&XVECTOR (menu_items)->contents[i])) |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1009 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1010 if (keymaps != 0) |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1011 { |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1012 int j; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1013 |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1014 entry = Fcons (entry, Qnil); |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1015 if (!NILP (prefix)) |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1016 entry = Fcons (prefix, entry); |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1017 for (j = submenu_depth - 1; j >= 0; j--) |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1018 if (!NILP (subprefix_stack[j])) |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1019 entry = Fcons (subprefix_stack[j], entry); |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1020 } |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1021 return entry; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1022 } |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1023 i += MENU_ITEMS_ITEM_LENGTH; |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1024 } |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1025 } |
96759
1e2f7aab70ba
* Makefile.in: Undef LIB_STANDARD before defining it to silence warning
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
96675
diff
changeset
|
1026 return Qnil; |
96675
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1027 } |
d45acf0c8d23
merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents:
96608
diff
changeset
|
1028 #endif |
95646
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1029 |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1030 void |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1031 syms_of_menu () |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1032 { |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1033 staticpro (&menu_items); |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1034 menu_items = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1035 menu_items_inuse = Qnil; |
816ec0114c3c
* menu.c: New file. Relocate platform-independent menu definitions
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1036 } |
95684 | 1037 |
1038 /* arch-tag: 78bbc7cf-8025-4156-aa8a-6c7fd99bf51d | |
1039 (do not change this comment) */ |