/****************************** Module Header ******************************* * * Module Name: fevshmnu.e * * Copyright (c) Netlabs EPM Distribution Project 2002 * * $Id$ * * =========================================================================== * * This file is part of the Netlabs EPM Distribution package and is free * software. You can redistribute it and/or modify it under the terms of the * GNU General Public License as published by the Free Software * Foundation, in version 2 as it comes in the "COPYING" file of the * Netlabs EPM Distribution. This library is distributed in the hope that it * will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * General Public License for more details. * ****************************************************************************/ ; This is an example of providing an alternate to STDMENU.E. ; The alternate menu must provide the following commands, which are called ; from the other macro files: ; LoadDefaultMenu - Called to build the default action bar. Must set universals ; Activemenu and Defaultmenu. ; Readd_help_menu - Called to readd the help menu, after someone deleted it to add their own menu(s). ; Maybe_show_menu - Called to reshow the menu iff activemenu = defaultmenu. ; Showmenu_activemenu - Called to reshow the menu. Updates cascaded menus if necessary. ; Build_menu_accelerators - Called from Loadaccel() to build the menu-related accelerators. ; Update_edit_menu_text - Called to update the edit menu text after CUA Accelerators is toggled. ; Menuinit_nnn - Define once for each pulldown or pullright menu ID which ; needs to grey, check, etc. its submenu when its menu is activated. compile if not defined( SMALL) -- If compiled separately EA_comment 'This defines the menu.' define INCLUDING_FILE = 'FEVSHMNU.E' include 'stdconst.e' include 'menuhelp.h' const tryinclude 'mycnf.e' const compile if not defined( NLS_LANGUAGE) NLS_LANGUAGE = 'ENGLISH' compile endif include NLS_LANGUAGE'.e' compile endif ; --------------------------------------------------------------------------- const ; Following consts are copied from INIT.E to make it separately compilable compile if not defined( SUPPORT_USERS_GUIDE) SUPPORT_USERS_GUIDE = 1 compile endif compile if not defined( SUPPORT_TECHREF) SUPPORT_TECHREF = 1 compile endif compile if not defined( HOST_SUPPORT) HOST_SUPPORT = '' compile endif compile if not defined( CORE_stuff) ; This determines whether the CORE-specific commands (DEFINE) ; are included in the menus. CORE_STUFF = 0 compile endif /* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³What's it called : loaddefaultmenu ³ ³ ³ ³What does it do : used by init.e to setup default EPM action bar ³ ³ (Note: a menu id of 0 halts the interpreter when ³ ³ selected.) ³ ³ ³ ³Who and When : Larry M. 1994/07/29 ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ */ defc loaddefaultmenu universal activemenu universal defaultmenu universal menuloaded -- for to check if menu is already built parse arg menuname . if menuname = '' then -- Initialization call menuname = 'default' defaultmenu = menuname -- default menu name activemenu = defaultmenu endif call add_file_menu(menuname) call add_edit_menu(menuname) call add_view_menu(menuname) call add_selected_menu(menuname) -- Process hook: add a user-defined submenu if isadefc('HookExecute') then 'HookExecute addmenu' endif call add_help_menu(menuname) menuloaded = 1 defproc add_file_menu(menuname) universal ring_enabled buildsubmenu menuname, 1, FILE_BAR__MSG, FILE_BARP__MSG, 0 , mpfrom2short(HP_FILE, 0) if ring_enabled then buildmenuitem menuname, 1, 100, OPENNOAS_MENU__MSG, OPENAS_MENUP__MSG, 17+64, mpfrom2short(HP_FILE_OPENAS, 0) buildmenuitem menuname, 1, 101, NEWWIN_MENU__MSG\9 || CTRL_KEY__MSG'+O', 'OPENDLG'OPEN_MENUP__MSG, 0, mpfrom2short(HP_FILE_NEWWIN, 0) buildmenuitem menuname, 1, 102, SAMEWIN_MENU__MSG\9'F8', 'OPENDLG EDIT'ADD_MENUP__MSG, 0, mpfrom2short(HP_FILE_SAMEWIN, 0) buildmenuitem menuname, 1, 103, COMMAND_SHELL_MENU__MSG, 'shell new'CREATE_SHELL_MENUP__MSG, 32769, mpfrom2short(HP_COMMAND_SHELL, 0) else buildmenuitem menuname, 1, 100, NEWWIN_MENU__MSG\9 || CTRL_KEY__MSG'+O', 'OPENDLG'OPEN_MENUP__MSG, 0, mpfrom2short(HP_FILE_NEWWIN, 0) endif buildmenuitem menuname, 1, 105, CONFIG_MENU__MSG, 'configdlg'CONFIG_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_CONFIG, 0) buildmenuitem menuname, 1, 106, 'Select menu...', 'ChangeMenu'\1'Open a listbox and change or refresh the menu', 0, 0 buildmenuitem menuname, 1, 107, \0, '', 4, 0 buildmenuitem menuname, 1, 110, SAVE_MENU__MSG\9'F2', 'SAVE'SAVE_MENUP__MSG, 0, mpfrom2short(HP_FILE_SAVE, 0) buildmenuitem menuname, 1, 120, SAVEAS_MENU__MSG, 'SAVEAS_DLG'SAVEAS_MENUP__MSG, 0, mpfrom2short(HP_FILE_SAVEAS, 0) if ring_enabled then buildmenuitem menuname, 1, 130, FILE_MENU__MSG\9'F4', 'FILE'FILE_MENUP__MSG, 0, mpfrom2short(HP_FILE_FILE, 0) else buildmenuitem menuname, 1, 130, SAVECLOSE_MENU__MSG\9'F4', 'FILE'FILE_MENUP__MSG, 0, mpfrom2short(HP_FILE_FILE, 0) endif buildmenuitem menuname, 1, 135, \0, '', 4, 0 buildmenuitem menuname, 1, 140, COMMAND_BAR__MSG, COMMAND_BARP__MSG, 17+64, mpfrom2short(HP_COMMAND, 0) buildmenuitem menuname, 1, 141, COMMANDLINE_MENU__MSG\9 || CTRL_KEY__MSG'+I', 'commandline'COMMANDLINE_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_CMD, 0) buildmenuitem menuname, 1, 65535, HALT_COMMAND_MENU__MSG, '', 0, mpfrom2short(HP_COMMAND_HALT, 0) buildmenuitem menuname, 1, 142, WRITE_SHELL_MENU__MSG, 'shell_write'WRITE_SHELL_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_WRITE, 16384) buildmenuitem menuname, 1, 143, SHELL_BREAK_MENU__MSG, 'shell_break'SHELL_BREAK_MENUP__MSG, 32769, mpfrom2short(HP_COMMAND_BREAK, 16384) buildmenuitem menuname, 1, 150, GET_MENU__MSG, 'OPENDLG GET'GET_MENUP__MSG, 0, mpfrom2short(HP_FILE_GET , 0) ; buildmenuitem menuname, 1, 155, \0, '', 4, 0 buildmenuitem menuname, 1, 160, PRINT_MENU__MSG'...', 'printdlg'ENHPRT_FILE_MENUP__MSG, 0, mpfrom2short(HP_FILE_ENHPRINT, 0) if ring_enabled then buildmenuitem menuname, 1, 165, \0, '', 4, 0 buildmenuitem menuname, 1, 170, QUIT_MENU__MSG\9'F3', 'QUIT'QUIT_MENUP__MSG, 0, mpfrom2short(HP_FILE_QUIT, 0) endif define compile if not defined( ALTERNATE_PASTE) ALTERNATE_PASTE = '' compile endif PASTE_C_KEY = '' PASTE_B_KEY = '' PASTE_L_KEY = '' compile if ALTERNATE_PASTE = '' PASTE_L_KEY = \9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+'INSERT_KEY__MSG compile elseif ALTERNATE_PASTE = 'B' PASTE_B_KEY = \9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+'INSERT_KEY__MSG compile elseif ALTERNATE_PASTE = 'C' PASTE_C_KEY = \9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+'INSERT_KEY__MSG compile else * Error: ALTERNATE_PASTE must be '', 'B', or 'C' compile endif PASTE_C_KEY = \9 || SHIFT_KEY__MSG'+'INSERT_KEY__MSG define -- Prepare for some conditional tests maybe_ring_accel = "' ' <" -- Will be true for any letter compile if defined( ACTIONS_ACCEL__L) -- For CUSTEPM support maybe_actions_accel = 'ACTIONS_ACCEL__L <>' compile else maybe_actions_accel = "' ' <" -- Will be true for any letter compile endif defproc add_edit_menu( menuname) universal ring_enabled universal CUA_MENU_ACCEL buildsubmenu menuname, 2, EDIT_BAR__MSG, ''EDIT_BARP__MSG, 0 , mpfrom2short(HP_EDIT, 0) buildmenuitem menuname, 2, 200, UNDO__MENU__MSG, UNDO__MENUP__MSG, 17+64, mpfrom2short(HP_EDIT_UNDO2, 0) buildmenuitem menuname, 2, 201, UNDO_MENU__MSG\9 || ALT_KEY__MSG'+'BACKSPACE_KEY__MSG, 'UNDO 1'UNDO_MENUP__MSG, 0, mpfrom2short(HP_EDIT_UNDO, 0) buildmenuitem menuname, 2, 202, UNDO_REDO_MENU__MSG\9 || CTRL_KEY__MSG'+U', 'undodlg'UNDO_REDO_MENUP__MSG, 0, mpfrom2short(HP_EDIT_UNDOREDO, 0) buildmenuitem menuname, 2, 203, RECOVER_MARK_MENU__MSG, 'GetDMBuff'RECOVER_MARK_MENUP__MSG, 32769, mpfrom2short(HP_EDIT_RECOVER, 0) buildmenuitem menuname, 2, 205, \0, '', 4, 0 buildmenuitem menuname, 2, 210, CLIP_COPY_MENU__MSG\9 || CTRL_KEY__MSG'+'INSERT_KEY__MSG , 'Copy2Clip'CLIP_COPY_MENUP__MSG, 0, mpfrom2short(HP_EDIT_COPY, 0) buildmenuitem menuname, 2, 220, CUT_MENU__MSG\9 || SHIFT_KEY__MSG'+'DELETE_KEY__MSG, 'Cut'CUT_MENUP__MSG, 0, mpfrom2short(HP_EDIT_CUT, 0) buildmenuitem menuname, 2, 230, PASTE_C_MENU__MSG, PASTE_C_MENUP__MSG, 17+64, mpfrom2short(HP_EDIT_PASTEMENU, 0) buildmenuitem menuname, 2, 231, PASTE_C_MENU__MSG||PASTE_C_KEY, 'Paste C'PASTE_C_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PASTEC, 0) buildmenuitem menuname, 2, 232, PASTE_L_MENU__MSG||PASTE_L_KEY, 'Paste'PASTE_L_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PASTE, 0) buildmenuitem menuname, 2, 233, PASTE_B_MENU__MSG||PASTE_B_KEY, 'Paste B'PASTE_B_MENUP__MSG, 32769, mpfrom2short(HP_EDIT_PASTEB, 0) accel_len = (3+length(ALT_KEY__MSG))*(not CUA_MENU_ACCEL) buildmenuitem menuname, 2, 240, DELETE_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+D', accel_len), 'DeleteMark'DELETE_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_DELETE, 0) buildmenuitem menuname, 2, 245, \0, '', 4, 0 ; buildmenuitem menuname, 2, 250, SELECT_ALL_MENU__MSG\9 || CTRL_KEY__MSG'+/', 'select_all'SELECT_ALL_MENUP__MSG, 0, mpfrom2short(HP_EDIT_SELECTALL, 0) ; added Ctrl+A buildmenuitem menuname, 2, 250, SELECT_ALL_MENU__MSG\9 || CTRL_KEY__MSG'+/ | 'CTRL_KEY__MSG'+A', 'select_all'SELECT_ALL_MENUP__MSG, 0, mpfrom2short(HP_EDIT_SELECTALL, 0) buildmenuitem menuname, 2, 251, DESELECT_ALL_MENU__MSG\9 || CTRL_KEY__MSG'+\', 'UnMark'UNMARK_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_DESELECTALL, 0) buildmenuitem menuname, 2, 255, \0, '', 4, 0 buildmenuitem menuname, 2, 260, PROOF_MENU__MSG, 'proof'PROOF_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_PROOF, 0) buildmenuitem menuname, 2, 261, PROOF_WORD_MENU__MSG, 'proofword'PROOF_WORD_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_PROOFW, 0) buildmenuitem menuname, 2, 262, SYNONYM_MENU__MSG, 'syn'SYNONYM_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_SYN, 0) buildmenuitem menuname, 2, 263, DYNASPELL_MENU__MSG, 'dynaspell'DYNASPELL_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_DYNASPELL, 0) compile if CORE_STUFF buildmenuitem menuname, 2, 264, DEFINE_WORD_MENU__MSG, 'define'DEFINE_WORD_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_DEFINE, 0) compile endif -- CORE_STUFF defproc add_view_menu(menuname) universal ring_enabled universal stack_cmds buildsubmenu menuname, 3, VIEW_BAR__MSG, VIEW_BARP__MSG, 0 , mpfrom2short(HP_VIEW, 0) buildmenuitem menuname, 3, 300, SEARCH_BAR__MSG, SEARCH_BARP__MSG, 17+64, mpfrom2short(HP_SEARCH, 0) buildmenuitem menuname, 3, 301, SEARCH_MENU__MSG\9 || CTRL_KEY__MSG'+S', 'SEARCHDLG'SEARCH_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_SEARCH, 0) buildmenuitem menuname, 3, 302, \0, '', 4, 0 buildmenuitem menuname, 3, 303, FIND_NEXT_MENU__MSG\9 || CTRL_KEY__MSG'+F', 'SEARCHDLG F'FIND_NEXT_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_FIND, 0) buildmenuitem menuname, 3, 304, CHANGE_NEXT_MENU__MSG\9 || CTRL_KEY__MSG'+C', 'SEARCHDLG C'CHANGE_NEXT_MENUP__MSG, 32769, mpfrom2short(HP_SEARCH_CHANGE, 0) buildmenuitem menuname, 3, 310, BOOKMARKS_MENU__MSG, BOOKMARKS_MENUP__MSG, 17 + 64, mpfrom2short(HP_SEARCH_BOOKMARKS, 0) buildmenuitem menuname, 3, 311, SET_MARK_MENU__MSG\9 || CTRL_KEY__MSG'+M', 'setmark'SET_MARK_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_BOOKMARKS, 0) buildmenuitem menuname, 3, 312, LIST_MARK_MENU__MSG\9 || CTRL_KEY__MSG'+B', 'listmark'LIST_MARK_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_BOOKMARKS, 0) buildmenuitem menuname, 3, 313, \0, '', 4, 0 buildmenuitem menuname, 3, 314, NEXT_MARK_MENU__MSG\9 || ALT_KEY__MSG'+/', 'nextbookmark'NEXT_MARK_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_BOOKMARKS, 0) buildmenuitem menuname, 3, 315, PREV_MARK_MENU__MSG\9 || ALT_KEY__MSG'+\', 'nextbookmark P'PREV_MARK_MENUP__MSG, 32768+1, mpfrom2short(HP_SEARCH_BOOKMARKS, 0) buildmenuitem menuname, 3, 320, TAGS_MENU__MSG, TAGS_MENUP__MSG, 17+64, mpfrom2short(HP_SEARCH_TAGS, 0) buildmenuitem menuname, 3, 321, TAGSDLG_MENU__MSG\9, 'poptagsdlg'TAGSDLG_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_TAGS, 0) buildmenuitem menuname, 3, 322, \0, '', 4, 0 buildmenuitem menuname, 3, 323, FIND_TAG_MENU__MSG\9 || SHIFT_KEY__MSG'+F6', 'findtag'FIND_TAG_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_TAGS, 0) buildmenuitem menuname, 3, 324, FIND_TAG2_MENU__MSG\9 || SHIFT_KEY__MSG'+F7', 'findtag *'FIND_TAG2_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_TAGS, 0) buildmenuitem menuname, 3, 329, \0, '', 4, 0 buildmenuitem menuname, 3, 330, SCAN_TAGS_MENU__MSG, 'tagscan'SCAN_TAGS_MENUP__MSG, 32769, mpfrom2short(HP_SEARCH_TAGS, 0) buildmenuitem menuname, 3, 335, \0, '', 4, 0 if ring_enabled then buildmenuitem menuname, 3, 340, FILE_LIST_MENU__MSG\9 || CTRL_KEY__MSG'+G', 'Ring_More'LIST_FILES_MENUP__MSG, 0 , mpfrom2short(HP_OPTIONS_LIST, 0) endif buildmenuitem menuname, 3, 341, MESSAGES_MENU__MSG, 'messagebox'MESSAGES_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_MESSAGES, 0) if stack_cmds then buildmenuitem menuname, 3, 342, \0, '', 4, 0 buildmenuitem menuname, 3, 343, PUSH_CURSOR_MENU__MSG\9 || CTRL_KEY__MSG'+'DOWN_KEY__MSG, 'PUSHPOS'PUSH_CURSOR_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PUSHPOS, 0) buildmenuitem menuname, 3, 344, POP_CURSOR_MENU__MSG\9 || CTRL_KEY__MSG'+'UP_KEY__MSG, 'POPPOS'POP_CURSOR_MENUP__MSG, 0, mpfrom2short(HP_EDIT_POPPOS, 16384) buildmenuitem menuname, 3, 345, SWAP_CURSOR_MENU__MSG\9 || CTRL_KEY__MSG'+=', 'SWAPPOS'SWAP_CURSOR_MENUP__MSG, 0, mpfrom2short(HP_EDIT_SWAPPOS, 16384) endif defproc add_selected_menu(menuname) universal CUA_MENU_ACCEL universal stack_cmds accel_len = (3+length(ALT_KEY__MSG))*(not CUA_MENU_ACCEL) buildsubmenu menuname, 4, SELECTED_BAR__MSG, SELECTED_BARP__MSG, 0 , mpfrom2short(HP_SELECTED, 0) buildmenuitem menuname, 4, 400, STYLE_MENU__MSG\9 || CTRL_KEY__MSG'+Y', 'fontlist'STYLE_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_STYLE, 0) buildmenuitem menuname, 4, 405, \0, '', 4, 0 buildmenuitem menuname, 4, 410, COPY_MRK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+C', accel_len), 'CopyMark'COPY_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_COPYMARK, 0) buildmenuitem menuname, 4, 415, MOVE_MRK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+M', accel_len), 'MoveMark'MOVE_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_MOVE, 0) buildmenuitem menuname, 4, 420, OVERLAY_MRK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+O', accel_len), 'OverlayMark'OVERLAY_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_OVERLAY, 0) buildmenuitem menuname, 4, 425, ADJUST_MRK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+A', accel_len), 'AdjustMark'ADJUST_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_ADJUST, 0) if stack_cmds then buildmenuitem menuname, 4, 430, \0, '', 4, 0 buildmenuitem menuname, 4, 431, PUSH_MRK_MENU__MSG\9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+'DOWN_KEY__MSG, 'PUSHMARK'PUSH_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PUSHMARK, 0) buildmenuitem menuname, 4, 432, POP_MRK_MENU__MSG\9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+'UP_KEY__MSG, 'POPMARK'POP_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_POPMARK, 16384) buildmenuitem menuname, 4, 433, SWAP_MRK_MENU__MSG\9 || CTRL_KEY__MSG'+'SHIFT_KEY__MSG'+=', 'SWAPMARK'SWAP_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_SWAPMARK, 16384) endif buildmenuitem menuname, 4, 440, \0, '', 4, 0 buildmenuitem menuname, 4, 450, PRINT_MENU__MSG'...', 'PRINTDLG M'ENHPRT_MARK_MENUP__MSG,0, mpfrom2short(HP_EDIT_ENHPRINT, 0) defproc add_help_menu(menuname) buildsubmenu menuname, HELP_MENU_ID, HELP_BAR__MSG, 'help'HELP_BARP__MSG, /* 512 */ 0, mpfrom2short(HP_HELP, 0) buildmenuitem menuname, HELP_MENU_ID, 600, HELP_INDEX_MENU__MSG, 'helpmenu 10'/*64044*/HELP_INDEX_MENUP__MSG, 0, mpfrom2short(HP_HELP_INDEX, 0) buildmenuitem menuname, HELP_MENU_ID, 601, EXT_HELP_MENU__MSG, 'helpmenu 4000'EXT_HELP_MENUP__MSG, 0, mpfrom2short(HP_HELP_EXTENDED, 0) buildmenuitem menuname, HELP_MENU_ID, 602, HELP_HELP_MENU__MSG, 'helpmenu 64027'HELP_HELP_MENUP__MSG, 0, mpfrom2short(HP_HELP_HELP, 0) buildmenuitem menuname, HELP_MENU_ID, 603, KEYS_HELP_MENU__MSG, 'helpmenu 1000'KEYS_HELP_MENUP__MSG, 0, mpfrom2short(HP_HELP_KEYS, 0) buildmenuitem menuname, HELP_MENU_ID, 604, COMMANDS_HELP_MENU__MSG,'helpmenu 2000'COMMANDS_HELP_MENUP__MSG, 0, mpfrom2short(HP_HELP_COMMANDS, 0) buildmenuitem menuname, HELP_MENU_ID, 605, \0, '', 4, 0 buildmenuitem menuname, HELP_MENU_ID, 606, HELP_BROWSER_MENU__MSG, 'help'HELP_BROWSER_MENUP__MSG, 0, mpfrom2short(HP_HELP_BROWSE, 0) buildmenuitem menuname, HELP_MENU_ID, 607, \0, '', 4, 0 compile if 0 buildmenuitem menuname, HELP_MENU_ID, 608, '#211'||(3-(screenxysize('X')>1000)), 'IBMmsg'HELP_PROD_MENUP__MSG, 2, mpfrom2short(HP_HELP_IBM, 0) -- Resource # 2112 or 2113 in ERES.DLL compile else buildmenuitem menuname, HELP_MENU_ID, 608, HELP_PROD_MENU__MSG, 'IBMmsg'HELP_PROD_MENUP__MSG, 0, mpfrom2short(HP_HELP_PROD, 0) compile endif compile if SUPPORT_USERS_GUIDE | SUPPORT_TECHREF buildmenuitem menuname, HELP_MENU_ID, 610, \0, '', 4, 0 compile if SUPPORT_USERS_GUIDE buildmenuitem menuname, HELP_MENU_ID, 620, USERS_GUIDE_MENU__MSG, USERS_GUIDE_MENUP__MSG, 17+64, mpfrom2short(HP_HELP_USERS_GUIDE, 0) buildmenuitem menuname, HELP_MENU_ID, 621, VIEW_USERS_MENU__MSG, 'view epmusers'VIEW_USERS_MENUP__MSG, 0, mpfrom2short(HP_HELP_USERS_GUIDE, 0) 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) 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) compile endif compile if SUPPORT_TECHREF buildmenuitem menuname, HELP_MENU_ID, 630, TECHREF_MENU__MSG, TECHREF_MENUP__MSG, 17+64, mpfrom2short(HP_HELP_TECHREF, 0) buildmenuitem menuname, HELP_MENU_ID, 631, VIEW_TECHREF_MENU__MSG, 'view epmtech'VIEW_TECHREF_MENUP__MSG, 0, mpfrom2short(HP_HELP_TECHREF, 0) 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) compile endif compile endif ; Moved readd_help_menu, maybe_show_menu and showmenu_activemenu to MENU.E. ; --------------------------------------------------------------------------- defc add_cascade_menus -- This command is called by defproc showmmenu_activemenu with 'postme'. universal ring_enabled if ring_enabled then 'cascade_menu 100 102' -- If ring is enabled, the default is Open as Same Window else 'cascade_menu 100 101' -- If ring is not enabled, the default is Open as New Window endif 'cascade_menu 140 141' -- Command cascade; default is Command Dialog 'cascade_menu 200 202' -- Undo cascade; default is Undo Dialog 'cascade_menu 230 231' -- Paste cascade; default is Paste (character mark) 'cascade_menu 300 301' -- Search cascade; default is Search Dialog 'cascade_menu 310 314' -- Bookmarks cascade; default is Next Bookmark 'cascade_menu 320 321' -- Tags cascade; default is Tags Dialog compile if SUPPORT_USERS_GUIDE 'cascade_menu 620' compile endif compile if SUPPORT_TECHREF 'cascade_menu 630' compile endif compile if defined(CUSTEPM_DEFAULT_SCREEN) 'cascade_menu' 3700 (CUSTEPM_DEFAULT_SCREEN + 3700) compile elseif defined(HAVE_CUSTEPM) 'cascade_menu' 3700 compile endif ; --------------------------------------------------------------------------- definit -- Sometimes the rc for a module's definit overrides the link rc. -- Therefore a linkable module with code in definit, that changes rc, -- should save it at the begin of definit and restore it at the end. save_rc = rc -- Define a list of used menu accelerators, that can't be used as standard -- accelerator keys combined with Alt anymore, when 'Menu accelerators' is -- activated. -- Maybe someone has already defined something here at definit, -- so better add it to the array var if not already. call AddMenuAVar( 'usedmenuaccelerators', 'F E V S H') rc = save_rc -- don't change rc of the link statement by definit code define -- Prepare for some conditional tests maybe_ring_accel = 'RING_ACCEL__L =' compile if defined(ACTIONS_ACCEL__L) -- For CUSTEPM support maybe_actions_accel = 'ACTIONS_ACCEL__L =' compile else maybe_actions_accel = "' ' =" -- Will be false for any letter compile endif defproc update_edit_menu_text = -- Actually, Selected menu, but we'll keep the name... universal CUA_MENU_ACCEL accel_len = (3+length(ALT_KEY__MSG))*(not CUA_MENU_ACCEL) compile if FILE_ACCEL__L = 'C' | EDIT_ACCEL__L = 'C' | VIEW_ACCEL__L = 'C' | SELECTED_ACCEL__L = 'C' | HELP_ACCEL__L = 'C' | $maybe_ring_accel 'C' | $maybe_actions_accel 'C' menutext = COPY_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+C', accel_len)\0 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND), 398, -- x18e, MM_SetItemText 350 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif compile if FILE_ACCEL__L = 'M' | EDIT_ACCEL__L = 'M' | VIEW_ACCEL__L = 'M' | SELECTED_ACCEL__L = 'M' | HELP_ACCEL__L = 'M' | $maybe_ring_accel 'M' | $maybe_actions_accel 'M' menutext = MOVE_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+M', accel_len)\0 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND), 398, -- x18e, MM_SetItemText 360 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif compile if FILE_ACCEL__L = 'O' | EDIT_ACCEL__L = 'O' | VIEW_ACCEL__L = 'O' | SELECTED_ACCEL__L = 'O' | HELP_ACCEL__L = 'O' | $maybe_ring_accel 'O' | $maybe_actions_accel 'O' menutext = OVERLAY_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+O', accel_len)\0 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND), 398, -- x18e, MM_SetItemText 370 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif compile if FILE_ACCEL__L = 'A' | EDIT_ACCEL__L = 'A' | VIEW_ACCEL__L = 'A' | SELECTED_ACCEL__L = 'A' | HELP_ACCEL__L = 'A' | $maybe_ring_accel 'A' | $maybe_actions_accel 'A' menutext = ADJUST_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+A', accel_len)\0 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND), 398, -- x18e, MM_SetItemText 380 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif compile if FILE_ACCEL__L = 'U' | EDIT_ACCEL__L = 'U' | VIEW_ACCEL__L = 'U' | SELECTED_ACCEL__L = 'U' | HELP_ACCEL__L = 'U' | $maybe_ring_accel 'U' | $maybe_actions_accel 'U' menutext = UNMARK_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+U', accel_len)\0 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND), 398, -- x18e, MM_SetItemText 334 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif compile if FILE_ACCEL__L = 'D' | EDIT_ACCEL__L = 'D' | VIEW_ACCEL__L = 'D' | SELECTED_ACCEL__L = 'D' | HELP_ACCEL__L = 'D' | $maybe_ring_accel 'D' | $maybe_actions_accel 'D' menutext = DELETE_MARK_MENU__MSG || leftstr(\9 || ALT_KEY__MSG'+D', accel_len)\0 call windowmessage(1, getpminfo(EPMINFO_EDITMENUHWND), 398, -- x18e, MM_SetItemText 340 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif defc menuinit_2 ------------- Menu id 2 -- Edit ------------------------- undoaction 1, PresentState -- Do to fix range, not for value. undoaction 6, StateRange -- query range parse value staterange with oldeststate neweststate . SetMenuAttribute( 200, 16384, oldeststate<>neweststate) -- Set to 1 if different on = marktype() <> '' buf_flag = 0 if not on then -- Only check buffer if no mark bufhndl = buffer( OPENBUF, EPMSHAREDBUFFER) if bufhndl then -- If the buffer exists, check the buf_flag = itoa( peek( bufhndl, 2, 2), 10) -- amount of used space in buffer call buffer( FREEBUF, bufhndl) -- then free it. endif endif SetMenuAttribute( 210, 16384, on) -- Copy to clipboard SetMenuAttribute( 220, 16384, on) -- Cut paste = clipcheck(format) & (format=1024) & not (browse() | .readonly) SetMenuAttribute( 230, 16384, paste) SetMenuAttribute( 240, 16384, on) -- Delete mark SetMenuAttribute( 251, 16384, on) -- Unmark (Deselect all) SetMenuAttribute( 263, 8192, .keyset <> 'SPELL_KEYS') defc menuinit_200 ------------- Menu id 200 -- Undo --------------------- SetMenuAttribute( 201, 16384, isadirtyline()) undoaction 1, PresentState -- Do to fix range, not for value. undoaction 6, StateRange -- query range parse value staterange with oldeststate neweststate . SetMenuAttribute( 202, 16384, oldeststate<>neweststate ) -- Set to 1 if different defc menuinit_230 ------------- Menu id 230 -- Paste --------------------- paste = clipcheck( format) & (format=1024) & not (browse() | .readonly) SetMenuAttribute( 231, 16384, paste) SetMenuAttribute( 232, 16384, paste) SetMenuAttribute( 233, 16384, paste) defc menuinit_3 ------------- Menu id 3 -- View ------------------------- universal position_stack universal stack_cmds universal ring_enabled if ring_enabled then SetMenuAttribute( 340, 16384, filesinring()>1) -- List ring endif if stack_cmds then SetMenuAttribute( 344, 16384, position_stack <> '') -- Pop cursor SetMenuAttribute( 345, 16384, position_stack <> '') -- Swap cursor endif defc menuinit_300 ------------- Menu id 300 -- Search ----------------------- getsearch strng parse value strng with . c . -- blank, 'c', or 'l' SetMenuAttribute( 303, 16384, c <> '') -- Find Next OK if not blank SetMenuAttribute( 304, 16384, GetLastChangeArgs()<>'') -- Change Next only if 'c' defc menuinit_310 ------------- Menu id 310 -- Bookmarks -------------------- getfileid bmfid bmcount = GetAVar( 'bmname.'bmfid'.0') SetMenuAttribute( 311, 16384, not (browse() | .readonly)) -- Set SetMenuAttribute( 312, 16384, bmcount>0) -- List SetMenuAttribute( 314, 16384, bmcount>0) -- Next SetMenuAttribute( 315, 16384, bmcount>0) -- Prev defc menuinit_4 ------------- Menu id 4 -- Selected --------------------- universal mark_stack universal stack_cmds SetMenuAttribute( 400, 16384, on) -- Style dialog on = marktype()<>'' buf_flag = 0 if not on then -- Only check buffer if no mark bufhndl = buffer(OPENBUF, EPMSHAREDBUFFER) if bufhndl then -- If the buffer exists, check the buf_flag=itoa(peek(bufhndl,2,2),10) -- amount of used space in buffer call buffer(FREEBUF, bufhndl) -- then free it. endif endif SetMenuAttribute( 410, 16384, on | buf_flag) -- Can Copy if mark or buffer has data SetMenuAttribute( 415, 16384, on) -- Move mark SetMenuAttribute( 420, 16384, on | buf_flag) -- Ditto for Overlay mark SetMenuAttribute( 425, 16384, on) -- Adjust mark if stack_cmds then SetMenuAttribute( 431, 16384, on) -- Push mark SetMenuAttribute( 432, 16384, mark_stack <> '') -- Pop mark SetMenuAttribute( 433, 16384, on & mark_stack <> '') -- Swap mark endif SetMenuAttribute( 450, 16384, on) -- Print marked text /* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ what's it called: togglecontrol ³ ³ ³ ³ what does it do : The command either toggles a EPM control window on or off³ ³ or forces a EPM control window on or off. ³ ³ arg1 = EPM control window handle ID. Control window ³ ³ ids given above. The following windows handles ³ ³ are currently supported. ³ ³ EDITSTATUS, EDITVSCROLL, EDITHSCROLL, and ³ ³ EDITMSGLINE. ³ ³ arg2 [optional] = force option. ³ ³ a value of 0, forces control window off ³ ³ a value of 1, forces control window on ³ ³ IF this argument is not specified the window ³ ³ in question is toggled. ³ ³ ³ ³ This command is possible because of the EPM_EDIT_CONTROL ³ ³ EPM_EDIT_CONTROLSTATUS message. ³ ³ (All EPM_EDIT_xxx messages are defined in the ETOOLKT ³ ³ PACKAGE available on PCTOOLS.) ³ ³ ³ ³ who and when : Jerry C. 2/27/89 ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ */ defc togglecontrol forceon=0 parse arg controlid fon if fon<>'' then forceon=(fon+1)*65536 endif call windowmessage(0, getpminfo(EPMINFO_EDITFRAME), 5388, -- EPM_EDIT_CONTROLTOGGLE controlid + forceon, 0) defc toggleframe forceon=0 parse arg controlid fon if fon<>'' then forceon=(fon+1)*65536 endif call windowmessage(0, getpminfo(EPMINFO_EDITFRAME), 5907, -- EFRAMEM_TOGGLECONTROL controlid + forceon, 0) defproc queryframecontrol(controlid) return windowmessage(1, getpminfo(EPMINFO_EDITFRAME), -- Send message to edit client 5907, -- EFRAMEM_TOGGLECONTROL controlid, 1) defc toggleprompt universal menu_prompt menu_prompt = not menu_prompt defc setscrolls 'toggleframe 8' 'toggleframe 16' defc toggle_bitmap universal bitmap_present, bm_filename bitmap_present = not bitmap_present ;; bm_filename = '' call windowmessage(0, getpminfo(EPMINFO_EDITCLIENT), 5498 - (44*bitmap_present), 0, 0) defc CUA_mark_toggle if QueryMarkingMode() = 'A' then 'SwitchMarkingMode C' else 'SwitchMarkingMode A' endif call MH_set_mouse() defc stream_toggle universal stream_mode stream_mode = not stream_mode 'RefreshInfoLine STREAMMODE' defc ring_toggle universal ring_enabled universal activemenu, defaultmenu ring_enabled = not ring_enabled 'toggleframe 4' ring_enabled defc stack_toggle universal stack_cmds universal activemenu, defaultmenu stack_cmds = not stack_cmds defc accel_toggle universal CUA_MENU_ACCEL universal activemenu, defaultmenu CUA_MENU_ACCEL = not CUA_MENU_ACCEL 'ReloadKeyset'