source: trunk/src/netlabs/macros/stdmenu.e@ 408

Last change on this file since 408 was 408, checked in by Andreas Schnellbacher, 23 years ago
  • Removed obsolete compile time conditions to improve readability
  • Corrected indentation to the standard value 3 if nessecary
File size: 44.8 KB
Line 
1/****************************** Module Header *******************************
2*
3* Module Name: stdmenu.e
4*
5* Copyright (c) Netlabs EPM Distribution Project 2002
6*
7* $Id: stdmenu.e,v 1.3 2002-08-19 22:53:50 aschn Exp $
8*
9* ===========================================================================
10*
11* This file is part of the Netlabs EPM Distribution package and is free
12* software. You can redistribute it and/or modify it under the terms of the
13* GNU General Public License as published by the Free Software
14* Foundation, in version 2 as it comes in the "COPYING" file of the
15* Netlabs EPM Distribution. This library is distributed in the hope that it
16* will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
17* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18* General Public License for more details.
19*
20****************************************************************************/
21compile if not defined(CORE_stuff)
22; This determines whether the CORE-specific commands (DEFINE)
23; are included in the menus.
24const CORE_STUFF=0
25compile endif
26
27/*
28ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
29³What's it called : loaddefaultmenu ³
30³ ³
31³What does it do : used by stdcnf.e to setup default EPM action bar ³
32³ (Note: a menu id of 0 halts the interpreter when ³
33³ selected.) ³
34³ ³
35³Who and When : Jerry C. 2/25/89 ³
36ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
37*/
38
39defc loaddefaultmenu
40 universal activemenu,defaultmenu
41
42 parse arg menuname .
43 if menuname = '' then -- Initialization call
44 menuname = 'default'
45 defaultmenu = menuname -- default menu name
46 activemenu = defaultmenu
47 endif
48
49compile if EPATH='LAMPATH' -- LaMail sets up a mail menu first.
50defc loaddefaultmenu2
51 universal activemenu,defaultmenu
52 menuname = defaultmenu
53compile endif
54 call add_file_menu(menuname)
55 call add_edit_menu(menuname)
56 call add_search_menu(menuname)
57 call add_options_menu(menuname)
58compile if MENU_LIMIT
59 call add_ring_menu(menuname)
60compile endif
61 call add_command_menu(menuname)
62compile if EPATH<>'LAMPATH' -- LaMail puts a VM menu here, then adds help.
63 call add_help_menu(menuname)
64compile endif
65
66defproc add_file_menu(menuname)
67compile if RING_OPTIONAL
68 universal ring_enabled
69compile endif
70 buildsubmenu menuname, 2, FILE_BAR__MSG, FILE_BARP__MSG, 0 , mpfrom2short(HP_FILE, 0)
71 buildmenuitem menuname, 2, 198, NEW_MENU__MSG, 'NEW'NEW_MENUP__MSG, 0, mpfrom2short(HP_FILE_NEW, 0)
72 buildmenuitem menuname, 2, 199, OPEN_NEW_MENU__MSG, 'OPEN'OPEN_NEW_MENUP__MSG, 0, mpfrom2short(HP_FILE_OPEN_NEW, 0)
73 buildmenuitem menuname, 2, 200, OPEN_MENU__MSG\9 || CTRL_KEY__MSG'+O', 'OPENDLG'OPEN_MENUP__MSG, 0, mpfrom2short(HP_FILE_OPEN, 0)
74 buildmenuitem menuname, 2, 201, GET_MENU__MSG, 'OPENDLG GET'GET_MENUP__MSG, 0, mpfrom2short(HP_FILE_GET , 0)
75compile if RING_OPTIONAL
76 if ring_enabled then
77compile endif
78 buildmenuitem menuname, 2, 202, ADD_MENU__MSG\9'F8', 'OPENDLG EDIT'ADD_MENUP__MSG, 0, mpfrom2short(HP_FILE_EDIT, 0)
79compile if RING_OPTIONAL
80 endif
81compile endif
82 buildmenuitem menuname, 2, 203, \0, '', 4, 0
83 buildmenuitem menuname, 2, 204, RENAME_MENU__MSG\9'F7', 'rename'RENAME_MENUP__MSG,0, mpfrom2short(HP_FILE_NAME, 0)
84 buildmenuitem menuname, 2, 205, \0, '', 4, 0
85 buildmenuitem menuname, 2, 206, SAVE_MENU__MSG\9'F2', 'SAVE'SAVE_MENUP__MSG, 0, mpfrom2short(HP_FILE_SAVE, 0)
86 buildmenuitem menuname, 2, 208, SAVEAS_MENU__MSG, 'SAVEAS_DLG'SAVEAS_MENUP__MSG, 0, mpfrom2short(HP_FILE_SAVEAS, 0)
87compile if RING_OPTIONAL
88 if ring_enabled then
89compile endif -- Note: 207 used in LaMail; keep ID the same.
90 buildmenuitem menuname, 2, 207, FILE_MENU__MSG\9'F4', 'FILE'FILE_MENUP__MSG, 0, mpfrom2short(HP_FILE_FILE, 0)
91compile if RING_OPTIONAL
92 else
93 buildmenuitem menuname, 2, 207, SAVECLOSE_MENU__MSG\9'F4', 'FILE'FILE_MENUP__MSG, 0, mpfrom2short(HP_FILE_FILE, 0)
94 endif
95compile endif
96 buildmenuitem menuname, 2, 209, QUIT_MENU__MSG\9'F3', 'QUIT'QUIT_MENUP__MSG, 0, mpfrom2short(HP_FILE_QUIT, 0)
97 buildmenuitem menuname, 2, 210, \0, '', 4, 0
98compile if ENHANCED_PRINT_SUPPORT
99 buildmenuitem menuname, 2, 211, PRT_FILE_MENU__MSG'...', 'printdlg'ENHPRT_FILE_MENUP__MSG, 0, mpfrom2short(HP_FILE_ENHPRINT, 0)
100compile else
101 buildmenuitem menuname, 2, 211, PRT_FILE_MENU__MSG, 'xcom save /s /ne' default_printer()PRT_FILE_MENUP__MSG, 0, mpfrom2short(HP_FILE_PRINT, 0)
102compile endif
103 return
104
105define
106compile if not defined(ALTERNATE_PASTE)
107 compile if DEFAULT_PASTE = ''
108 ALTERNATE_PASTE = 'C'
109 compile else
110 ALTERNATE_PASTE = ''
111 compile endif
112compile endif
113 PASTE_C_KEY = ''
114 PASTE_B_KEY = ''
115 PASTE_L_KEY = ''
116compile if ALTERNATE_PASTE = ''
117 PASTE_L_KEY = \9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+'INSERT_KEY__MSG
118compile elseif ALTERNATE_PASTE = 'B'
119 PASTE_B_KEY = \9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+'INSERT_KEY__MSG
120compile elseif ALTERNATE_PASTE = 'C'
121 PASTE_C_KEY = \9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+'INSERT_KEY__MSG
122compile else
123 * Error: ALTERNATE_PASTE must be '', 'B', or 'C'
124compile endif
125compile if DEFAULT_PASTE = ''
126 PASTE_L_KEY = \9 || SHIFT_KEY__MSG'+'INSERT_KEY__MSG
127compile elseif DEFAULT_PASTE = 'B'
128 PASTE_B_KEY = \9 || SHIFT_KEY__MSG'+'INSERT_KEY__MSG
129compile elseif DEFAULT_PASTE = 'C'
130 PASTE_C_KEY = \9 || SHIFT_KEY__MSG'+'INSERT_KEY__MSG
131compile else
132 * Error: DEFAULT_PASTE must be '', 'B', or 'C'
133compile endif
134
135compile if not defined(MAIL_ACCEL__L) -- LaMail not NLS-translated.
136const
137 MAIL_ACCEL__L = 'M'
138 MAIL_ACCEL__A1 = 77
139 MAIL_ACCEL__A2 = 109
140compile endif
141define -- Prepare for some conditional tests
142compile if EPATH = 'LAMPATH' -- If LaMail, "Mail" will be on action bar
143 maybe_mail_accel = 'MAIL_ACCEL__L <>'
144compile else -- otherwise, it won't
145 maybe_mail_accel = "' ' <" -- Will be true for any letter
146compile endif
147compile if MENU_LIMIT
148 maybe_ring_accel = 'RING_ACCEL__L <>'
149compile else
150 maybe_ring_accel = "' ' <" -- Will be true for any letter
151compile endif
152compile if defined(ACTIONS_ACCEL__L) -- For CUSTEPM support
153 maybe_actions_accel = 'ACTIONS_ACCEL__L <>'
154compile else
155 maybe_actions_accel = "' ' <" -- Will be true for any letter
156compile endif
157
158defproc add_edit_menu(menuname)
159compile if WANT_STACK_CMDS = 'SWITCH'
160 universal stack_cmds
161compile endif
162compile if BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
163 universal CUA_MENU_ACCEL
164compile endif
165
166compile if BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
167 accel_len = (3+length(ALT_KEY__MSG))*(not CUA_MENU_ACCEL)
168compile endif
169
170 buildsubmenu menuname, 8, EDIT_BAR__MSG, ''EDIT_BARP__MSG, 0 , mpfrom2short(HP_EDIT, 0)
171 buildmenuitem menuname, 8, 816, UNDO_MENU__MSG\9 || ALT_KEY__MSG'+'BACKSPACE_KEY__MSG, 'UNDO 1'UNDO_MENUP__MSG, 0, mpfrom2short(HP_EDIT_UNDO, 0)
172 buildmenuitem menuname, 8, 818, UNDO_REDO_MENU__MSG\9 || CTRL_KEY__MSG'+U', 'undodlg'UNDO_REDO_MENUP__MSG, 0, mpfrom2short(HP_EDIT_UNDOREDO, 0)
173compile if WANT_DM_BUFFER
174 buildmenuitem menuname, 8, 817, RECOVER_MARK_MENU__MSG, 'GetDMBuff'RECOVER_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_RECOVER, 0)
175compile endif -- WANT_DM_BUFFER
176 buildmenuitem menuname, 8, 807, \0, '', 4, 0
177 buildmenuitem menuname, 8, 808, CLIP_COPY_MENU__MSG\9 || CTRL_KEY__MSG'+'INSERT_KEY__MSG , 'Copy2Clip'CLIP_COPY_MENUP__MSG, 0, mpfrom2short(HP_EDIT_COPY, 0)
178 buildmenuitem menuname, 8, 809, CUT_MENU__MSG\9 || SHIFT_KEY__MSG'+'DELETE_KEY__MSG, 'Cut'CUT_MENUP__MSG, 0, mpfrom2short(HP_EDIT_CUT, 0)
179 buildmenuitem menuname, 8, 810, PASTE_C_MENU__MSG||PASTE_C_KEY, 'Paste C'PASTE_C_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PASTEC, 0)
180 buildmenuitem menuname, 8, 811, PASTE_L_MENU__MSG||PASTE_L_KEY, 'Paste'PASTE_L_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PASTE, 0)
181 buildmenuitem menuname, 8, 812, PASTE_B_MENU__MSG||PASTE_B_KEY, 'Paste B'PASTE_B_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PASTEB, 0)
182 buildmenuitem menuname, 8, 826, \0, '', 4, 0
183 buildmenuitem menuname, 8, 827, STYLE_MENU__MSG\9 || CTRL_KEY__MSG'+Y', 'fontlist'STYLE_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_STYLE, 0)
184 buildmenuitem menuname, 8, 815, \0, '', 4, 0
185
186compile if BLOCK_ACTIONBAR_ACCELERATORS=1 | (FILE_ACCEL__L<>'C' & EDIT_ACCEL__L<>'C' & SEARCH_ACCEL__L<>'C' & OPTIONS_ACCEL__L<>'C' & COMMAND_ACCEL__L<>'C' & HELP_ACCEL__L<>'C' & $maybe_mail_accel 'C' & $maybe_ring_accel 'C' & $maybe_actions_accel 'C')
187 buildmenuitem menuname, 8, 800, COPY_MARK_MENU__MSG\9 || ALT_KEY__MSG'+C', 'DUPMARK C'COPY_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_COPYMARK, 0)
188compile elseif BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
189 buildmenuitem menuname, 8, 800, COPY_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+C', accel_len), 'DUPMARK C'COPY_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_COPYMARK, 0)
190compile else
191 buildmenuitem menuname, 8, 800, COPY_MARK_MENU__MSG, 'DUPMARK C'COPY_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_COPYMARK, 0)
192compile endif
193compile if BLOCK_ACTIONBAR_ACCELERATORS=1 | (FILE_ACCEL__L<>'M' & EDIT_ACCEL__L<>'M' & SEARCH_ACCEL__L<>'M' & OPTIONS_ACCEL__L<>'M' & COMMAND_ACCEL__L<>'M' & HELP_ACCEL__L<>'M' & $maybe_mail_accel 'M' & $maybe_ring_accel 'M' & $maybe_actions_accel 'M')
194 buildmenuitem menuname, 8, 801, MOVE_MARK_MENU__MSG\9 || ALT_KEY__MSG'+M', 'DUPMARK M'MOVE_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_MOVE, 0)
195compile elseif BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
196 buildmenuitem menuname, 8, 801, MOVE_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+M', accel_len), 'DUPMARK M'MOVE_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_MOVE, 0)
197compile else
198 buildmenuitem menuname, 8, 801, MOVE_MARK_MENU__MSG, 'DUPMARK M'MOVE_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_MOVE, 0)
199compile endif
200compile if BLOCK_ACTIONBAR_ACCELERATORS=1 | (FILE_ACCEL__L<>'O' & EDIT_ACCEL__L<>'O' & SEARCH_ACCEL__L<>'O' & OPTIONS_ACCEL__L<>'O' & COMMAND_ACCEL__L<>'O' & HELP_ACCEL__L<>'O' & $maybe_mail_accel 'O' & $maybe_ring_accel 'O' & $maybe_actions_accel 'O')
201 buildmenuitem menuname, 8, 802, OVERLAY_MARK_MENU__MSG\9 || ALT_KEY__MSG'+O', 'DUPMARK O'OVERLAY_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_OVERLAY, 0)
202compile elseif BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
203 buildmenuitem menuname, 8, 802, OVERLAY_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+O', accel_len), 'DUPMARK O'OVERLAY_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_OVERLAY, 0)
204compile else
205 buildmenuitem menuname, 8, 802, OVERLAY_MARK_MENU__MSG, 'DUPMARK O'OVERLAY_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_OVERLAY, 0)
206compile endif
207compile if BLOCK_ACTIONBAR_ACCELERATORS=1 | (FILE_ACCEL__L<>'A' & EDIT_ACCEL__L<>'A' & SEARCH_ACCEL__L<>'A' & OPTIONS_ACCEL__L<>'A' & COMMAND_ACCEL__L<>'A' & HELP_ACCEL__L<>'A' & $maybe_mail_accel 'A' & $maybe_ring_accel 'A' & $maybe_actions_accel 'A')
208 buildmenuitem menuname, 8, 803, ADJUST_MARK_MENU__MSG\9 || ALT_KEY__MSG'+A', 'DUPMARK A'ADJUST_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_ADJUST, 0)
209compile elseif BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
210 buildmenuitem menuname, 8, 803, ADJUST_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+A', accel_len), 'DUPMARK A'ADJUST_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_ADJUST, 0)
211compile else
212 buildmenuitem menuname, 8, 803, ADJUST_MARK_MENU__MSG, 'DUPMARK A'ADJUST_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_ADJUST, 0)
213compile endif
214 buildmenuitem menuname, 8, 804, \0, '', 4, 0
215 buildmenuitem menuname, 8, 828, SELECT_ALL_MENU__MSG\9 || CTRL_KEY__MSG'+/', 'select_all'SELECT_ALL_MENUP__MSG, 0, mpfrom2short(HP_EDIT_SELECTALL, 0)
216compile if BLOCK_ACTIONBAR_ACCELERATORS=1 | (FILE_ACCEL__L<>'U' & EDIT_ACCEL__L<>'U' & SEARCH_ACCEL__L<>'U' & OPTIONS_ACCEL__L<>'U' & COMMAND_ACCEL__L<>'U' & HELP_ACCEL__L<>'U' & $maybe_mail_accel 'U' & $maybe_ring_accel 'U' & $maybe_actions_accel 'U')
217 buildmenuitem menuname, 8, 805, UNMARK_MARK_MENU__MSG\9 || ALT_KEY__MSG'+U', 'DUPMARK U'UNMARK_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_UNMARK, 0)
218compile elseif BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
219 buildmenuitem menuname, 8, 805, UNMARK_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+U', accel_len), 'DUPMARK U'UNMARK_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_UNMARK, 0)
220compile else
221 buildmenuitem menuname, 8, 805, UNMARK_MARK_MENU__MSG, 'DUPMARK U'UNMARK_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_UNMARK, 0)
222compile endif
223compile if BLOCK_ACTIONBAR_ACCELERATORS=1 | (FILE_ACCEL__L<>'D' & EDIT_ACCEL__L<>'D' & SEARCH_ACCEL__L<>'D' & OPTIONS_ACCEL__L<>'D' & COMMAND_ACCEL__L<>'D' & HELP_ACCEL__L<>'D' & $maybe_mail_accel 'D' & $maybe_ring_accel 'D' & $maybe_actions_accel 'D')
224 buildmenuitem menuname, 8, 806, DELETE_MARK_MENU__MSG\9 || ALT_KEY__MSG'+D', 'DUPMARK D'DELETE_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_DELETE, 0)
225compile elseif BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
226 buildmenuitem menuname, 8, 806, DELETE_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+D', accel_len), 'DUPMARK D'DELETE_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_DELETE, 0)
227compile else
228 buildmenuitem menuname, 8, 806, DELETE_MARK_MENU__MSG, 'DUPMARK D'DELETE_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_DELETE, 0)
229compile endif
230
231compile if WANT_STACK_CMDS
232 compile if WANT_STACK_CMDS = 'SWITCH'
233 if stack_cmds then
234 compile endif
235 buildmenuitem menuname, 8, 819, \0, '', 4, 0
236 buildmenuitem menuname, 8, 820, PUSH_MARK_MENU__MSG\9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+'DOWN_KEY__MSG, 'PUSHMARK'PUSH_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PUSHMARK, 0)
237 buildmenuitem menuname, 8, 821, POP_MARK_MENU__MSG\9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+'UP_KEY__MSG, 'POPMARK'POP_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_POPMARK, 16384)
238 buildmenuitem menuname, 8, 822, SWAP_MARK_MENU__MSG\9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+=', 'SWAPMARK'SWAP_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_SWAPMARK, 16384)
239 buildmenuitem menuname, 8, 823, PUSH_CURSOR_MENU__MSG\9 || CTRL_KEY__MSG'+'DOWN_KEY__MSG, 'PUSHPOS'PUSH_CURSOR_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PUSHPOS, 0)
240 buildmenuitem menuname, 8, 824, POP_CURSOR_MENU__MSG\9 || CTRL_KEY__MSG'+'UP_KEY__MSG, 'POPPOS'POP_CURSOR_MENUP__MSG, 0, mpfrom2short(HP_EDIT_POPPOS, 16384)
241 buildmenuitem menuname, 8, 825, SWAP_CURSOR_MENU__MSG\9 || CTRL_KEY__MSG'+=', 'SWAPPOS'SWAP_CURSOR_MENUP__MSG, 0, mpfrom2short(HP_EDIT_SWAPPOS, 16384)
242 compile if WANT_STACK_CMDS = 'SWITCH'
243 endif
244 compile endif
245compile endif -- WANT_STACK_CMDS
246 buildmenuitem menuname, 8, 813, \0, '', 4, 0
247compile if ENHANCED_PRINT_SUPPORT
248 buildmenuitem menuname, 8, 814, PRT_MARK_MENU__MSG'...', 'PRINTDLG M'ENHPRT_MARK_MENUP__MSG,0, mpfrom2short(HP_EDIT_ENHPRINT, 0)
249compile else
250 buildmenuitem menuname, 8, 814, PRT_MARK_MENU__MSG, 'DUPMARK P'PRT_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PRINT, 0)
251compile endif
252 return
253
254defproc add_search_menu(menuname)
255 buildsubmenu menuname, 3, SEARCH_BAR__MSG, ''SEARCH_BARP__MSG, 0 , mpfrom2short(HP_SEARCH, 0)
256 buildmenuitem menuname, 3, 300, SEARCH_MENU__MSG\9 || CTRL_KEY__MSG'+S', 'SEARCHDLG'SEARCH_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_SEARCH, 0)
257 buildmenuitem menuname, 3, 301, \0, '', 4, 0
258 buildmenuitem menuname, 3, 302, FIND_NEXT_MENU__MSG\9 || CTRL_KEY__MSG'+F', 'SEARCHDLG F'FIND_NEXT_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_FIND, 0)
259 buildmenuitem menuname, 3, 303, CHANGE_NEXT_MENU__MSG\9 || CTRL_KEY__MSG'+C', 'SEARCHDLG C'CHANGE_NEXT_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_CHANGE, 0)
260compile if WANT_BOOKMARKS
261 buildmenuitem menuname, 3, 304, \0, '', 4, 0
262 buildmenuitem menuname, 3, 305, BOOKMARKS_MENU__MSG, BOOKMARKS_MENUP__MSG, 17, mpfrom2short(HP_SEARCH_BOOKMARKS, 0)
263 buildmenuitem menuname, 3, 306, SET_MARK_MENU__MSG\9 || CTRL_KEY__MSG'+M', 'setmark'SET_MARK_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_BOOKMARKS, 0)
264 buildmenuitem menuname, 3, 308, LIST_MARK_MENU__MSG\9 || CTRL_KEY__MSG'+B', 'listmark'LIST_MARK_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_BOOKMARKS, 0)
265 buildmenuitem menuname, 3, 310, \0, '', 4, 0
266 buildmenuitem menuname, 3, 311, NEXT_MARK_MENU__MSG\9 || ALT_KEY__MSG'+/', 'nextbookmark'NEXT_MARK_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_BOOKMARKS, 0)
267 buildmenuitem menuname, 3, 312, PREV_MARK_MENU__MSG\9 || ALT_KEY__MSG'+\', 'nextbookmark P'PREV_MARK_MENUP__MSG, 32768+1, mpfrom2short(HP_SEARCH_BOOKMARKS, 0)
268compile endif
269compile if WANT_TAGS
270 buildmenuitem menuname, 3, 320, \0, '', 4, 0
271 buildmenuitem menuname, 3, 330, TAGS_MENU__MSG, TAGS_MENUP__MSG, 17, mpfrom2short(HP_SEARCH_TAGS, 0)
272 buildmenuitem menuname, 3, 331, TAGSDLG_MENU__MSG\9, 'poptagsdlg'TAGSDLG_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_TAGS, 0)
273 buildmenuitem menuname, 3, 332, \0, '', 4, 0
274 buildmenuitem menuname, 3, 333, FIND_TAG_MENU__MSG\9 || SHIFT_KEY__MSG'+F6', 'findtag'FIND_TAG_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_TAGS, 0)
275 buildmenuitem menuname, 3, 334, FIND_TAG2_MENU__MSG\9 || SHIFT_KEY__MSG'+F7', 'findtag *'FIND_TAG2_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_TAGS, 0)
276 buildmenuitem menuname, 3, 339, \0, '', 4, 0
277 buildmenuitem menuname, 3, 340, SCAN_TAGS_MENU__MSG, 'tagscan'SCAN_TAGS_MENUP__MSG, 32769, mpfrom2short(HP_SEARCH_TAGS, 0)
278compile endif
279 return
280
281; Preferences pull-right can get Set enter, Advanced mark, Stream mode, and
282; Ring enabled, in addition to Configure. Here we calculate which menu item
283; gets the "end pullright" attribute.
284define
285 NEED_PREFERENCES = 1 -- Start out assuming this
286compile if BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
287 ENTER__ATTRIB = 0
288 MARK__ATTRIB = 0
289 STREAM__ATTRIB = 0
290 RING__ATTRIB = 0
291 STACK__ATTRIB = 0
292 ACCEL__ATTRIB = 32769
293compile elseif WANT_STACK_CMDS = 'SWITCH'
294 ENTER__ATTRIB = 0
295 MARK__ATTRIB = 0
296 STREAM__ATTRIB = 0
297 RING__ATTRIB = 0
298 STACK__ATTRIB = 32769
299compile elseif RING_OPTIONAL
300 ENTER__ATTRIB = 0
301 MARK__ATTRIB = 0
302 STREAM__ATTRIB = 0
303 RING__ATTRIB = 32769
304compile elseif WANT_STREAM_MODE = 'SWITCH'
305 ENTER__ATTRIB = 0
306 MARK__ATTRIB = 0
307 STREAM__ATTRIB = 32769
308compile elseif WANT_CUA_MARKING = 'SWITCH'
309 ENTER__ATTRIB = 0
310 MARK__ATTRIB = 32769
311compile else
312 NEED_PREFERENCES = 0 -- If none of the above, we don't need this after all
313compile endif
314 TOGGLEINFO = 'toggleframe 32'
315
316compile if WANT_NODISMISS_MENUS
317define
318 NODISMISS = 32
319compile else
320define
321 NODISMISS = 0
322compile endif -- WANT_NODISMISS_MENUS
323
324defproc add_options_menu(menuname)
325compile if RING_OPTIONAL
326 universal ring_enabled
327compile endif
328 universal font
329compile if CHECK_FOR_LEXAM
330 universal LEXAM_is_available
331compile endif
332
333 buildsubmenu menuname, 4, OPTIONS_BAR__MSG, OPTIONS_BARP__MSG, 0 , mpfrom2short(HP_OPTIONS, 0)
334compile if MENU_LIMIT = 0
335 compile if RING_OPTIONAL
336 if ring_enabled then
337 compile endif
338 buildmenuitem menuname, 4, 410, LIST_FILES_MENU__MSG\9 || CTRL_KEY__MSG'+G', 'Ring_More'LIST_FILES_MENUP__MSG, 0 , mpfrom2short(HP_OPTIONS_LIST, 0)
339 buildmenuitem menuname, 4, 411, \0, '', 4, 0
340 compile if RING_OPTIONAL
341 endif
342 compile endif
343compile endif -- MENU_LIMIT = 0
344compile if SPELL_SUPPORT
345 compile if CHECK_FOR_LEXAM
346 if LEXAM_is_available then
347 compile endif
348 buildmenuitem menuname, 4, 404, PROOF_MENU__MSG, 'proof'PROOF_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_PROOF, 0)
349 buildmenuitem menuname, 4, 405, PROOF_WORD_MENU__MSG, 'proofword'PROOF_WORD_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_PROOFW, 0)
350 buildmenuitem menuname, 4, 406, SYNONYM_MENU__MSG, 'syn'SYNONYM_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_SYN, 0)
351 buildmenuitem menuname, 4, 450, DYNASPELL_MENU__MSG, 'dynaspell'DYNASPELL_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_DYNASPELL, 0)
352 compile if CORE_STUFF
353 buildmenuitem menuname, 4, 426, DEFINE_WORD_MENU__MSG, 'define'DEFINE_WORD_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_DEFINE, 0)
354 compile endif -- CORE_STUFF
355 buildmenuitem menuname, 4, 407, \0, '', 4, 0
356 compile if CHECK_FOR_LEXAM
357 endif
358 compile endif
359compile endif -- SPELL_SUPPORT
360; If no "Toggle stream mode" or "Toggle advanced marking" or "Enable ring", then
361; place "Configure..." on main Options menu. Otherwise, put it on a Preferences
362; pull-right with the other stuff.
363compile if NEED_PREFERENCES
364 buildmenuitem menuname, 4, 400, PREFERENCES_MENU__MSG, PREFERENCES_MENUP__MSG, 17, mpfrom2short(HP_OPTIONS_PREFERENCES, 0)
365compile endif
366compile if WANT_APPLICATION_INI_FILE
367 buildmenuitem menuname, 4, 440, CONFIG_MENU__MSG, 'configdlg'CONFIG_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_CONFIG, 0)
368compile endif
369compile if WANT_CUA_MARKING = 'SWITCH'
370 buildmenuitem menuname, 4, 441, ADVANCEDMARK_MENU__MSG, 'CUA_MARK_toggle'ADVANCEDMARK_MENUP__MSG, MARK__ATTRIB, mpfrom2short(HP_OPTIONS_CUATOGGLE, NODISMISS)
371compile endif
372compile if WANT_STREAM_MODE = 'SWITCH'
373 buildmenuitem menuname, 4, 442, STREAMMODE_MENU__MSG, 'stream_toggle'STREAMMODE_MENUP__MSG, STREAM__ATTRIB, mpfrom2short(HP_OPTIONS_STREAM, NODISMISS)
374compile endif
375compile if RING_OPTIONAL
376 buildmenuitem menuname, 4, 443, RINGENABLED_MENU__MSG, 'ring_toggle'RINGENABLED_MENUP__MSG, RING__ATTRIB, mpfrom2short(HP_OPTIONS_RINGENABLE, 0)
377compile endif
378compile if WANT_STACK_CMDS = 'SWITCH'
379 buildmenuitem menuname, 4, 445, STACKCMDS_MENU__MSG, 'stack_toggle'STACKCMDS_MENUP__MSG, STACK__ATTRIB, mpfrom2short(HP_OPTIONS_STACKCMDS, 0)
380compile endif
381compile if BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
382 buildmenuitem menuname, 4, 446, CUAACCEL_MENU__MSG, 'accel_toggle'CUAACCEL_MENUP__MSG, ACCEL__ATTRIB, mpfrom2short(HP_OPTIONS_CUAACCEL, NODISMISS)
383compile endif
384 buildmenuitem menuname, 4, 401, \0, '', 4, 0
385 buildmenuitem menuname, 4, 402, AUTOSAVE_MENU__MSG, 'autosave ?'AUTOSAVE_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_AUTOSAVE, 0)
386 buildmenuitem menuname, 4, 403, \0, '', 4, 0
387 buildmenuitem menuname, 4, 412, MESSAGES_MENU__MSG, 'messagebox'MESSAGES_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_MESSAGES, 0)
388 buildmenuitem menuname, 4, 409, \0, '', 4, 0
389; Note: 408 is referenced by TOGGLEFONT. If the number changes, update TOGGLEFONT.
390
391 buildmenuitem menuname, 4, 425, FRAME_CTRLS_MENU__MSG, FRAME_CTRLS_MENUP__MSG, 17, mpfrom2short(HP_OPTIONS_FRAME, 0)
392 buildmenuitem menuname, 4, 413, STATUS_LINE_MENU__MSG, 'toggleframe 1'STATUS_LINE_MENUP__MSG, 0, mpfrom2short(HP_FRAME_STATUS, NODISMISS)
393 buildmenuitem menuname, 4, 414, MSG_LINE_MENU__MSG, 'toggleframe 2'MSG_LINE_MENUP__MSG, 0, mpfrom2short(HP_FRAME_MESSAGE, NODISMISS)
394 buildmenuitem menuname, 4, 415, SCROLL_BARS_MENU__MSG, 'setscrolls'SCROLL_BARS_MENUP__MSG, 0, mpfrom2short(HP_FRAME_SCROLL, NODISMISS)
395;; buildmenuitem menuname, 4, 416, 'Partial te~xt', 'togglecontrol 15', 32768+1, 0, 0
396 buildmenuitem menuname, 4, 417, ROTATEBUTTONS_MENU__MSG,'toggleframe 4'ROTATEBUTTONS_MENUP__MSG, 0, mpfrom2short(HP_FRAME_ROTATE, NODISMISS)
397compile if WANT_TOOLBAR
398; compile if WANT_NODISMISS_MENUS
399 buildmenuitem menuname, 4, 430, TOGGLETOOLBAR_MENU__MSG, 'toggle_toolbar'TOGGLETOOLBAR_MENUP__MSG, 1, mpfrom2short(HP_TOOLBAR_TOGGLE, NODISMISS)
400; compile else
401; buildmenuitem menuname, 4, 430, TOGGLETOOLBAR_MENU__MSG, 'toggleframe' EFRAMEF_TOOLBAR||TOGGLETOOLBAR_MENUP__MSG, 1, mpfrom2short(HP_TOOLBAR_TOGGLE, NODISMISS)
402; compile endif -- if WANT_NODISMISS_MENUS
403compile endif -- WANT_TOOLBAR
404 buildmenuitem menuname, 4, 437, TOGGLEBITMAP_MENU__MSG,'toggle_bitmap'TOGGLEBITMAP_MENUP__MSG, 0, mpfrom2short(HP_FRAME_BITMAP, NODISMISS)
405 buildmenuitem menuname, 4, 439, \0, '', 4, 0
406compile if WANT_DYNAMIC_PROMPTS
407 buildmenuitem menuname, 4, 421, INFOATTOP_MENU__MSG, TOGGLEINFO || INFOATTOP_MENUP__MSG, 0, mpfrom2short(HP_FRAME_EXTRAPOS, NODISMISS)
408 buildmenuitem menuname, 4, 422, PROMPTING_MENU__MSG, 'toggleprompt'PROMPTING_MENUP__MSG, 32768+1, mpfrom2short(HP_FRAME_PROMPT, NODISMISS)
409compile else
410 buildmenuitem menuname, 4, 421, INFOATTOP_MENU__MSG, TOGGLEINFO || INFOATTOP_MENUP__MSG, 32768+1, mpfrom2short(HP_FRAME_EXTRAPOS, NODISMISS)
411compile endif
412compile if WANT_APPLICATION_INI_FILE
413 buildmenuitem menuname, 4, 418, SAVE_OPTS_MENU__MSG, 'saveoptions'SAVE_OPTS_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_SAVE, 0)
414compile endif
415compile if EPATH = 'LAMPATH'
416 buildmenuitem menuname, 4, 419, \0, '', 4, 0
417 buildmenuitem menuname, 4, 420, TO_DESKTOP_MENU__MSG, 'popbook'TO_DESKTOP_MENUP__MSG, 0, 0
418compile elseif SUPPORT_BOOK_ICON
419 buildmenuitem menuname, 4, 419, \0, '', 4, 0
420 buildmenuitem menuname, 4, 420, TO_BOOK_MENU__MSG, 'popbook'TO_BOOK_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_BOOK, 0)
421compile endif
422 return
423
424compile if MENU_LIMIT
425defproc add_ring_menu(menuname)
426 buildsubmenu menuname, 5, RING_BAR__MSG, LIST_FILES_MENUP__MSG, 0 , 0
427 if .titletext=='' then
428 buildmenuitem menuname, 5, 500, .filename, '',0,0
429 else
430 buildmenuitem menuname, 5, 500, .titletext, '',0,0
431 endif
432 return
433compile endif
434
435defproc add_command_menu(menuname)
436 buildsubmenu menuname, 1, COMMAND_BAR__MSG, COMMAND_BARP__MSG, 0 , mpfrom2short(HP_COMMAND, 0)
437 buildmenuitem menuname, 1, 100, COMMANDLINE_MENU__MSG\9 || CTRL_KEY__MSG'+I', 'commandline'COMMANDLINE_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_CMD, 0)
438 buildmenuitem menuname, 1, 65535, HALT_COMMAND_MENU__MSG, '', 0, mpfrom2short(HP_COMMAND_HALT, 0)
439compile if WANT_EPM_SHELL = 1
440 buildmenuitem menuname, 1, 101, \0, '', 4, 0
441 buildmenuitem menuname, 1, 102, CREATE_SHELL_MENU__MSG, 'shell'CREATE_SHELL_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_SHELL, 0)
442 buildmenuitem menuname, 1, 103, WRITE_SHELL_MENU__MSG, 'shell_write'WRITE_SHELL_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_WRITE, 16384)
443; buildmenuitem menuname, 1, 104, KILL_SHELL_MENU__MSG, 'shell_kill'KILL_SHELL_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_KILL, 16384)
444 buildmenuitem menuname, 1, 104, SHELL_BREAK_MENU__MSG, 'shell_break'SHELL_BREAK_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_BREAK, 16384)
445compile endif
446 return
447
448defproc add_help_menu(menuname)
449 buildsubmenu menuname, HELP_MENU_ID, HELP_BAR__MSG, 'help'HELP_BARP__MSG, /* 512 */ 0, mpfrom2short(HP_HELP, 0)
450 buildmenuitem menuname, HELP_MENU_ID, 600, HELP_INDEX_MENU__MSG, 'helpmenu 10'/*64044*/HELP_INDEX_MENUP__MSG, 0, mpfrom2short(HP_HELP_INDEX, 0)
451 buildmenuitem menuname, HELP_MENU_ID, 601, EXT_HELP_MENU__MSG, 'helpmenu 4000'EXT_HELP_MENUP__MSG, 0, mpfrom2short(HP_HELP_EXTENDED, 0)
452 buildmenuitem menuname, HELP_MENU_ID, 602, HELP_HELP_MENU__MSG, 'helpmenu 64027'HELP_HELP_MENUP__MSG, 0, mpfrom2short(HP_HELP_HELP, 0)
453 buildmenuitem menuname, HELP_MENU_ID, 603, KEYS_HELP_MENU__MSG, 'helpmenu 1000'KEYS_HELP_MENUP__MSG, 0, mpfrom2short(HP_HELP_KEYS, 0)
454 buildmenuitem menuname, HELP_MENU_ID, 604, COMMANDS_HELP_MENU__MSG,'helpmenu 2000'COMMANDS_HELP_MENUP__MSG, 0, mpfrom2short(HP_HELP_COMMANDS, 0)
455 buildmenuitem menuname, HELP_MENU_ID, 605, \0, '', 4, 0
456 buildmenuitem menuname, HELP_MENU_ID, 606, HELP_BROWSER_MENU__MSG, 'help'HELP_BROWSER_MENUP__MSG, 0, mpfrom2short(HP_HELP_BROWSE, 0)
457 buildmenuitem menuname, HELP_MENU_ID, 607, \0, '', 4, 0
458compile if 0
459 buildmenuitem menuname, HELP_MENU_ID, 608, '#211'||(3-(screenxysize('X')>1000)), 'IBMmsg'HELP_PROD_MENUP__MSG, 2, mpfrom2short(HP_HELP_IBM, 0)
460 -- Resource # 2112 or 2113 in ERES.DLL
461compile else
462 buildmenuitem menuname, HELP_MENU_ID, 608, HELP_PROD_MENU__MSG, 'IBMmsg'HELP_PROD_MENUP__MSG, 0, mpfrom2short(HP_HELP_PROD, 0)
463compile endif
464compile if SUPPORT_USERS_GUIDE | SUPPORT_TECHREF
465 buildmenuitem menuname, HELP_MENU_ID, 610, \0, '', 4, 0
466 compile if SUPPORT_USERS_GUIDE
467 buildmenuitem menuname, HELP_MENU_ID, 620, USERS_GUIDE_MENU__MSG, USERS_GUIDE_MENUP__MSG, 17+64, mpfrom2short(HP_HELP_USERS_GUIDE, 0)
468 buildmenuitem menuname, HELP_MENU_ID, 621, VIEW_USERS_MENU__MSG, 'view epmusers'VIEW_USERS_MENUP__MSG, 0, mpfrom2short(HP_HELP_USERS_GUIDE, 0)
469 buildmenuitem menuname, HELP_MENU_ID, 622, VIEW_IN_USERS_MENU__MSG, 'viewword epmusers'VIEW_IN_USERS_MENUP__MSG, 0, mpfrom2short(HP_HELP_USERS_GUIDE, 0)
470 buildmenuitem menuname, HELP_MENU_ID, 623, VIEW_USERS_SUMMARY_MENU__MSG, 'view epmusers Summary'VIEW_USERS_SUMMARY_MENUP__MSG, 32768+1, mpfrom2short(HP_HELP_USERS_GUIDE, 0)
471 compile endif
472 compile if SUPPORT_TECHREF
473 buildmenuitem menuname, HELP_MENU_ID, 630, TECHREF_MENU__MSG, TECHREF_MENUP__MSG, 17+64, mpfrom2short(HP_HELP_TECHREF, 0)
474 buildmenuitem menuname, HELP_MENU_ID, 631, VIEW_TECHREF_MENU__MSG, 'view epmtech'VIEW_TECHREF_MENUP__MSG, 0, mpfrom2short(HP_HELP_TECHREF, 0)
475 buildmenuitem menuname, HELP_MENU_ID, 632, VIEW_IN_TECHREF_MENU__MSG, 'viewword epmtech'VIEW_IN_TECHREF_MENUP__MSG, 32768+1, mpfrom2short(HP_HELP_TECHREF, 0)
476 compile endif
477compile endif
478
479defproc readd_help_menu
480 universal defaultmenu, activemenu
481 call add_help_menu(defaultmenu)
482 call maybe_show_menu()
483
484defproc maybe_show_menu
485 universal defaultmenu, activemenu
486 if activemenu=defaultmenu then
487 call showmenu_activemenu() -- show the updated EPM menu
488 endif
489
490defproc showmenu_activemenu()
491 universal activemenu
492 showmenu activemenu -- show the updated EPM menu
493compile if SUPPORT_USERS_GUIDE
494 'postme cascade_menu 620'
495compile endif
496compile if SUPPORT_TECHREF
497 'postme cascade_menu 630'
498compile endif
499compile if defined(CUSTEPM_DEFAULT_SCREEN)
500 'postme cascade_menu' 3700 (CUSTEPM_DEFAULT_SCREEN + 3700)
501compile elseif defined(HAVE_CUSTEPM)
502 'postme cascade_menu' 3700
503compile endif
504
505defproc build_menu_accelerators(activeaccel)
506compile if BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
507 universal CUA_MENU_ACCEL
508compile endif
509compile if WANT_STACK_CMDS = 'SWITCH'
510 universal stack_cmds
511compile endif
512 -- Build keys on File menu
513 buildacceltable activeaccel, 'dokey F8', AF_VIRTUALKEY, VK_F8, 1101 -- F8
514 buildacceltable activeaccel, 'dokey c+O', AF_CHAR+AF_CONTROL, 79, 1102 -- c+O
515 buildacceltable activeaccel, 'dokey c+O', AF_CHAR+AF_CONTROL, 111, 1103 -- c+o
516 buildacceltable activeaccel, 'dokey F7', AF_VIRTUALKEY, VK_F7, 1104 -- F7
517 buildacceltable activeaccel, 'dokey F2', AF_VIRTUALKEY, VK_F2, 1105 -- F2
518 buildacceltable activeaccel, 'dokey F3', AF_VIRTUALKEY, VK_F3, 1106 -- F3
519 buildacceltable activeaccel, 'dokey F4', AF_VIRTUALKEY, VK_F4, 1107 -- F4
520
521 -- Build keys on Edit menu ('C' & 'O' appear under Action bar keys for English)
522compile if FILE_ACCEL__L <> 'C' & EDIT_ACCEL__L <> 'C' & SEARCH_ACCEL__L <> 'C' & OPTIONS_ACCEL__L <> 'C' & COMMAND_ACCEL__L <> 'C' & HELP_ACCEL__L <> 'C' & $maybe_mail_accel 'C' & $maybe_ring_accel 'C' & $maybe_actions_accel 'C'
523 buildacceltable activeaccel, 'dokey a+C', AF_CHAR+AF_ALT, 67, 1201 -- a+C
524 buildacceltable activeaccel, 'dokey a+C', AF_CHAR+AF_ALT, 99, 1202 -- a+c
525compile endif
526compile if FILE_ACCEL__L <> 'M' & EDIT_ACCEL__L <> 'M' & SEARCH_ACCEL__L <> 'M' & OPTIONS_ACCEL__L <> 'M' & COMMAND_ACCEL__L <> 'M' & HELP_ACCEL__L <> 'M' & $maybe_mail_accel 'M' & $maybe_ring_accel 'M' & $maybe_actions_accel 'M'
527 buildacceltable activeaccel, 'dokey a+M', AF_CHAR+AF_ALT, 77, 1203 -- a+M
528 buildacceltable activeaccel, 'dokey a+M', AF_CHAR+AF_ALT, 109, 1204 -- a+m
529compile endif
530compile if FILE_ACCEL__L <> 'O' & EDIT_ACCEL__L <> 'O' & SEARCH_ACCEL__L <> 'O' & OPTIONS_ACCEL__L <> 'O' & COMMAND_ACCEL__L <> 'O' & HELP_ACCEL__L <> 'O' & $maybe_mail_accel 'O' & $maybe_ring_accel 'O' & $maybe_actions_accel 'O'
531 buildacceltable activeaccel, 'dokey a+O', AF_CHAR+AF_ALT, 79, 1205 -- a+O
532 buildacceltable activeaccel, 'dokey a+O', AF_CHAR+AF_ALT, 111, 1206 -- a+o
533compile endif
534compile if FILE_ACCEL__L <> 'A' & EDIT_ACCEL__L <> 'A' & SEARCH_ACCEL__L <> 'A' & OPTIONS_ACCEL__L <> 'A' & COMMAND_ACCEL__L <> 'A' & HELP_ACCEL__L <> 'A' & $maybe_mail_accel 'A' & $maybe_ring_accel 'A' & $maybe_actions_accel 'A'
535 buildacceltable activeaccel, 'dokey a+A', AF_CHAR+AF_ALT, 65, 1207 -- a+A
536 buildacceltable activeaccel, 'dokey a+A', AF_CHAR+AF_ALT, 97, 1208 -- a+a
537compile endif
538compile if FILE_ACCEL__L <> 'U' & EDIT_ACCEL__L <> 'U' & SEARCH_ACCEL__L <> 'U' & OPTIONS_ACCEL__L <> 'U' & COMMAND_ACCEL__L <> 'U' & HELP_ACCEL__L <> 'U' & $maybe_mail_accel 'U' & $maybe_ring_accel 'U' & $maybe_actions_accel 'U'
539 buildacceltable activeaccel, 'dokey a+U', AF_CHAR+AF_ALT, 85, 1209 -- a+U
540 buildacceltable activeaccel, 'dokey a+U', AF_CHAR+AF_ALT, 117, 1210 -- a+u
541compile endif
542compile if FILE_ACCEL__L <> 'D' & EDIT_ACCEL__L <> 'D' & SEARCH_ACCEL__L <> 'D' & OPTIONS_ACCEL__L <> 'D' & COMMAND_ACCEL__L <> 'D' & HELP_ACCEL__L <> 'D' & $maybe_mail_accel 'D' & $maybe_ring_accel 'D' & $maybe_actions_accel 'D'
543 buildacceltable activeaccel, 'dokey a+D', AF_CHAR+AF_ALT, 68, 1211 -- a+D
544 buildacceltable activeaccel, 'dokey a+D', AF_CHAR+AF_ALT, 100, 1212 -- a+d
545compile endif
546 buildacceltable activeaccel, 'copy2clip', AF_VIRTUALKEY+AF_CONTROL, VK_INSERT, 1213 -- c+Insert
547 buildacceltable activeaccel, 'cut', AF_VIRTUALKEY+AF_SHIFT, VK_DELETE, 1214 -- s+Delete
548 buildacceltable activeaccel, 'paste' DEFAULT_PASTE, AF_VIRTUALKEY+AF_SHIFT, VK_INSERT, 1215 -- s+Insert
549 buildacceltable activeaccel, 'paste' ALTERNATE_PASTE, AF_VIRTUALKEY+AF_SHIFT+AF_CONTROL, VK_INSERT, 1221 -- c+s+Insert
550 buildacceltable activeaccel, 'dokey F9', AF_VIRTUALKEY, VK_F9, 1216 -- F9
551 buildacceltable activeaccel, 'dokey c+Y', AF_CHAR+AF_CONTROL, 89, 1217 -- c+Y
552 buildacceltable activeaccel, 'dokey c+Y', AF_CHAR+AF_CONTROL, 121, 1218 -- c+y
553 buildacceltable activeaccel, 'select_all',AF_CHAR+AF_CONTROL, 47, 1219 -- c+/
554 buildacceltable activeaccel, 'DUPMARK U', AF_CHAR+AF_CONTROL, 92, 1220 -- c+\
555
556compile if WANT_STACK_CMDS
557 compile if WANT_STACK_CMDS = 'SWITCH'
558 if stack_cmds then
559 compile endif
560 buildacceltable activeaccel, 'dokey c+down', AF_VIRTUALKEY+AF_CONTROL, VK_DOWN, 1222 -- c+Down
561 buildacceltable activeaccel, 'dokey c+Up', AF_VIRTUALKEY+AF_CONTROL, VK_UP, 1223 -- c+Up
562 compile if WANT_STACK_CMDS = 'SWITCH'
563 endif
564 compile endif
565 buildacceltable activeaccel, 'swappos', AF_CHAR+AF_CONTROL, 61, 1224 -- c+=
566 buildacceltable activeaccel, 'pushmark', AF_VIRTUALKEY+AF_CONTROL+AF_SHIFT, VK_DOWN, 1225 -- c+s+Down
567 buildacceltable activeaccel, 'popmark', AF_VIRTUALKEY+AF_CONTROL+AF_SHIFT, VK_UP, 1226 -- c+s+Up
568 buildacceltable activeaccel, 'swapmark', AF_CHAR+AF_CONTROL+AF_SHIFT, 61, 1227 -- c+s+=
569 buildacceltable activeaccel, 'swapmark', AF_CHAR+AF_CONTROL+AF_SHIFT, 43, 1228 -- c+s++
570compile endif
571
572 -- Build keys on Search menu
573 buildacceltable activeaccel, 'dokey c+S', AF_CHAR+AF_CONTROL, 83, 1301 -- c+S
574 buildacceltable activeaccel, 'dokey c+S', AF_CHAR+AF_CONTROL, 115, 1302 -- c+s
575 buildacceltable activeaccel, 'dokey c+F', AF_CHAR+AF_CONTROL, 70, 1303 -- c+F
576 buildacceltable activeaccel, 'dokey c+F', AF_CHAR+AF_CONTROL, 102, 1304 -- c+f
577 buildacceltable activeaccel, 'dokey c+C', AF_CHAR+AF_CONTROL, 67, 1305 -- c+C
578 buildacceltable activeaccel, 'dokey c+C', AF_CHAR+AF_CONTROL, 99, 1306 -- c+c
579 -- Build keys on Bookmark submenu
580compile if WANT_BOOKMARKS
581 buildacceltable activeaccel, 'dokey c+B', AF_CHAR+AF_CONTROL, 66, 1331 -- c+B
582 buildacceltable activeaccel, 'dokey c+B', AF_CHAR+AF_CONTROL, 98, 1332 -- c+b
583 buildacceltable activeaccel, 'dokey c+M', AF_CHAR+AF_CONTROL, 77, 1333 -- c+M
584 buildacceltable activeaccel, 'dokey c+M', AF_CHAR+AF_CONTROL, 109, 1334 -- c+m
585 buildacceltable activeaccel, 'nextbookmark', AF_CHAR+AF_ALT, 47, 1335 -- a+/
586 buildacceltable activeaccel, 'nextbookmark P',AF_CHAR+AF_ALT, 92, 1336 -- a+\
587compile endif
588 -- Build keys on Tags submenu
589compile if WANT_TAGS
590 buildacceltable activeaccel, 'dokey s+F6', AF_VIRTUALKEY+AF_SHIFT, VK_F6, 1361 -- s+F6
591 buildacceltable activeaccel, 'dokey s+F7', AF_VIRTUALKEY+AF_SHIFT, VK_F7, 1362 -- s+F7
592 buildacceltable activeaccel, 'dokey s+F8', AF_VIRTUALKEY+AF_SHIFT, VK_F8, 1363 -- s+F8
593 buildacceltable activeaccel, 'dokey s+F9', AF_VIRTUALKEY+AF_SHIFT, VK_F9, 1364 -- s+F9
594compile endif
595
596 -- Build keys on Options menu
597 buildacceltable activeaccel, 'dokey c+G', AF_CHAR+AF_CONTROL, 71, 1401 -- c+G
598 buildacceltable activeaccel, 'dokey c+G', AF_CHAR+AF_CONTROL, 103, 1402 -- c+g
599
600 -- Build keys on Command menu
601 buildacceltable activeaccel, 'dokey c+I', AF_CHAR+AF_CONTROL, 73, 1501 -- c+I
602 buildacceltable activeaccel, 'dokey c+I', AF_CHAR+AF_CONTROL, 105, 1502 -- c+i
603
604 -- Block action bar accelerator keys (English)
605compile if BLOCK_ACTIONBAR_ACCELERATORS
606 compile if BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
607 if not CUA_MENU_ACCEL then
608 compile endif
609 buildacceltable activeaccel, 'dokey a+'FILE_ACCEL__L, AF_CHAR+AF_ALT, FILE_ACCEL__A1 , 1001 -- a+F
610 buildacceltable activeaccel, 'dokey a+'FILE_ACCEL__L, AF_CHAR+AF_ALT, FILE_ACCEL__A2 , 1002 -- a+f
611 buildacceltable activeaccel, 'dokey a+'EDIT_ACCEL__L, AF_CHAR+AF_ALT, EDIT_ACCEL__A1 , 1003 -- a+E
612 buildacceltable activeaccel, 'dokey a+'EDIT_ACCEL__L, AF_CHAR+AF_ALT, EDIT_ACCEL__A2 , 1004 -- a+e
613 buildacceltable activeaccel, 'dokey a+'SEARCH_ACCEL__L, AF_CHAR+AF_ALT, SEARCH_ACCEL__A1 , 1005 -- a+S
614 buildacceltable activeaccel, 'dokey a+'SEARCH_ACCEL__L, AF_CHAR+AF_ALT, SEARCH_ACCEL__A2 , 1006 -- a+s
615 buildacceltable activeaccel, 'dokey a+'OPTIONS_ACCEL__L, AF_CHAR+AF_ALT, OPTIONS_ACCEL__A1, 1007 -- a+O
616 buildacceltable activeaccel, 'dokey a+'OPTIONS_ACCEL__L, AF_CHAR+AF_ALT, OPTIONS_ACCEL__A2, 1008 -- a+o
617 buildacceltable activeaccel, 'dokey a+'COMMAND_ACCEL__L, AF_CHAR+AF_ALT, COMMAND_ACCEL__A1, 1009 -- a+C
618 buildacceltable activeaccel, 'dokey a+'COMMAND_ACCEL__L, AF_CHAR+AF_ALT, COMMAND_ACCEL__A2, 1010 -- a+c
619 buildacceltable activeaccel, 'dokey a+'HELP_ACCEL__L, AF_CHAR+AF_ALT, HELP_ACCEL__A1 , 1011 -- a+H
620 buildacceltable activeaccel, 'dokey a+'HELP_ACCEL__L, AF_CHAR+AF_ALT, HELP_ACCEL__A2 , 1012 -- a+h
621 compile if MENU_LIMIT
622 buildacceltable activeaccel, 'dokey a+'RING_ACCEL__L, AF_CHAR+AF_ALT, RING_ACCEL__A1 , 1013 -- a+R
623 buildacceltable activeaccel, 'dokey a+'RING_ACCEL__L, AF_CHAR+AF_ALT, RING_ACCEL__A2 , 1014 -- a+r
624 compile endif
625 compile if EPATH = 'LAMPATH'
626 buildacceltable activeaccel, 'dokey a+'MAIL_ACCEL__L, AF_CHAR+AF_ALT, MAIL_ACCEL__A1 , 1015 -- a+M
627 buildacceltable activeaccel, 'dokey a+'MAIL_ACCEL__L, AF_CHAR+AF_ALT, MAIL_ACCEL__A2 , 1016 -- a+m
628 compile endif
629 compile if defined(ACTIONS_ACCEL__L) -- For CUSTEPM support
630 buildacceltable activeaccel, 'dokey a+'ACTIONS_ACCEL__L, AF_CHAR+AF_ALT, ACTIONS_ACCEL__A1, 1017 -- a+A
631 buildacceltable activeaccel, 'dokey a+'ACTIONS_ACCEL__L, AF_CHAR+AF_ALT, ACTIONS_ACCEL__A2, 1018 -- a+a
632 compile endif
633 compile if BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
634 endif -- CUA_MENU_ACCEL
635 compile endif
636compile endif -- BLOCK_ACTIONBAR_ACCELERATORS
637
638compile if BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
639define -- Prepare for some conditional tests
640 compile if EPATH = 'LAMPATH' -- If LaMail, "Mail" will be on action bar
641 maybe_mail_accel = 'MAIL_ACCEL__L ='
642 compile else -- otherwise, it won't
643 maybe_mail_accel = "' ' =" -- Will be false for any letter
644 compile endif
645 compile if MENU_LIMIT
646 maybe_ring_accel = 'RING_ACCEL__L ='
647 compile else
648 maybe_ring_accel = "' ' =" -- Will be false for any letter
649 compile endif
650 compile if defined(ACTIONS_ACCEL__L) -- For CUSTEPM support
651 maybe_actions_accel = 'ACTIONS_ACCEL__L ='
652 compile else
653 maybe_actions_accel = "' ' =" -- Will be false for any letter
654 compile endif
655
656defproc update_edit_menu_text =
657 universal CUA_MENU_ACCEL
658 accel_len = (3+length(ALT_KEY__MSG))*(not CUA_MENU_ACCEL)
659
660 compile if FILE_ACCEL__L = 'C' | EDIT_ACCEL__L = 'C' | SEARCH_ACCEL__L = 'C' | OPTIONS_ACCEL__L = 'C' | COMMAND_ACCEL__L = 'C' | HELP_ACCEL__L = 'C' | $maybe_mail_accel 'C' | $maybe_ring_accel 'C' | $maybe_actions_accel 'C'
661 menutext = COPY_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+C', accel_len)\0
662 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND),
663 398, -- x18e, MM_SetItemText
664 800 + 65536,
665 ltoa(offset(menutext) || selector(menutext), 10) )
666 compile endif
667
668 compile if FILE_ACCEL__L = 'M' | EDIT_ACCEL__L = 'M' | SEARCH_ACCEL__L = 'M' | OPTIONS_ACCEL__L = 'M' | COMMAND_ACCEL__L = 'M' | HELP_ACCEL__L = 'M' | $maybe_mail_accel 'M' | $maybe_ring_accel 'M' | $maybe_actions_accel 'M'
669 menutext = MOVE_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+M', accel_len)\0
670 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND),
671 398, -- x18e, MM_SetItemText
672 801 + 65536,
673 ltoa(offset(menutext) || selector(menutext), 10) )
674 compile endif
675
676 compile if FILE_ACCEL__L = 'O' | EDIT_ACCEL__L = 'O' | SEARCH_ACCEL__L = 'O' | OPTIONS_ACCEL__L = 'O' | COMMAND_ACCEL__L = 'O' | HELP_ACCEL__L = 'O' | $maybe_mail_accel 'O' | $maybe_ring_accel 'O' | $maybe_actions_accel 'O'
677 menutext = OVERLAY_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+O', accel_len)\0
678 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND),
679 398, -- x18e, MM_SetItemText
680 802 + 65536,
681 ltoa(offset(menutext) || selector(menutext), 10) )
682 compile endif
683
684 compile if FILE_ACCEL__L = 'A' | EDIT_ACCEL__L = 'A' | SEARCH_ACCEL__L = 'A' | OPTIONS_ACCEL__L = 'A' | COMMAND_ACCEL__L = 'A' | HELP_ACCEL__L = 'A' | $maybe_mail_accel 'A' | $maybe_ring_accel 'A' | $maybe_actions_accel 'A'
685 menutext = ADJUST_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+A', accel_len)\0
686 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND),
687 398, -- x18e, MM_SetItemText
688 803 + 65536,
689 ltoa(offset(menutext) || selector(menutext), 10) )
690 compile endif
691
692 compile if FILE_ACCEL__L = 'U' | EDIT_ACCEL__L = 'U' | SEARCH_ACCEL__L = 'U' | OPTIONS_ACCEL__L = 'U' | COMMAND_ACCEL__L = 'U' | HELP_ACCEL__L = 'U' | $maybe_mail_accel 'U' | $maybe_ring_accel 'U' | $maybe_actions_accel 'U'
693 menutext = UNMARK_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+U', accel_len)\0
694 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND),
695 398, -- x18e, MM_SetItemText
696 805 + 65536,
697 ltoa(offset(menutext) || selector(menutext), 10) )
698 compile endif
699
700 compile if FILE_ACCEL__L = 'D' | EDIT_ACCEL__L = 'D' | SEARCH_ACCEL__L = 'D' | OPTIONS_ACCEL__L = 'D' | COMMAND_ACCEL__L = 'D' | HELP_ACCEL__L = 'D' | $maybe_mail_accel 'D' | $maybe_ring_accel 'D' | $maybe_actions_accel 'D'
701 menutext = DELETE_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+D', accel_len)\0
702 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND),
703 398, -- x18e, MM_SetItemText
704 806 + 65536,
705 ltoa(offset(menutext) || selector(menutext), 10) )
706 compile endif
707
708compile endif -- BLOCK_ACTIONBAR_ACCELERATORS = 'SWITCH'
Note: See TracBrowser for help on using the repository browser.