/****************************** Module Header ******************************* * * Module Name: stdmenu.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. * ****************************************************************************/ compile if not defined( SMALL) -- If compiled separately EA_comment 'This defines the menu.' define INCLUDING_FILE = 'STDMENU.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( WANT_NODISMISS_MENUS) WANT_NODISMISS_MENUS = 1 compile endif 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 ; --------------------------------------------------------------------------- /* 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� 쿥hat's it called : loaddefaultmenu � � � 쿥hat does it do : used by init.e to setup default EPM action bar � � (Note: a menu id of 0 halts the interpreter when � � selected.) � � � 쿥ho and When : Jerry C. 2/25/89 � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� */ 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_search_menu(menuname) call add_options_menu(menuname) call add_command_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, 2, FILE_BAR__MSG, FILE_BARP__MSG, 0 , mpfrom2short(HP_FILE, 0) buildmenuitem menuname, 2, 198, NEW_MENU__MSG, 'NEW'NEW_MENUP__MSG, 0, mpfrom2short(HP_FILE_NEW, 0) buildmenuitem menuname, 2, 199, OPEN_NEW_MENU__MSG, "OPEN ''"OPEN_NEW_MENUP__MSG, 0, mpfrom2short(HP_FILE_OPEN_NEW, 0) buildmenuitem menuname, 2, 200, OPEN_MENU__MSG\9 || CTRL_KEY__MSG'+O', 'OPENDLG'OPEN_MENUP__MSG, 0, mpfrom2short(HP_FILE_OPEN, 0) buildmenuitem menuname, 2, 201, GET_MENU__MSG, 'OPENDLG GET'GET_MENUP__MSG, 0, mpfrom2short(HP_FILE_GET , 0) if ring_enabled then buildmenuitem menuname, 2, 202, ADD_MENU__MSG\9'F8', 'OPENDLG EDIT'ADD_MENUP__MSG, 0, mpfrom2short(HP_FILE_EDIT, 0) endif buildmenuitem menuname, 2, 203, \0, '', 4, 0 buildmenuitem menuname, 2, 204, RENAME_MENU__MSG\9'F7', 'rename'RENAME_MENUP__MSG,0, mpfrom2short(HP_FILE_NAME, 0) buildmenuitem menuname, 2, 212, 'Revert', 'revert'\1'Reload file from disk, ask if modified',0, 0 buildmenuitem menuname, 2, 220, 'Open folder', ''\1'Open WPS folder where the current file is located', 17+64, 0 -- How to make the following submenu item the default for the 'Open folder' item (as for the Help -> View ... menu items)? buildmenuitem menuname, 2, 221, 'Default view', 'OpenFolder OPEN=DEFAULT'\1, 0, 0 buildmenuitem menuname, 2, 222, \0, '', 4, 0 -- Note: Don't specify the OpenFolder arg too long. There exists a restriction to the length of that parameter for buildmenuitem! -- ToDo: use XWP's 'Reset to WPS's default view' feature to minimize stored EA's (and use a sub-sub-menu for setting the default view) buildmenuitem menuname, 2, 223, 'Icon view', 'OpenFolder ICONVIEW=NORMAL;OPEN=ICON'\1, 0, 0 buildmenuitem menuname, 2, 224, 'Icon flowed view', 'OpenFolder ICONVIEW=FLOWED,MINI;OPEN=ICON'\1, 0, 0 buildmenuitem menuname, 2, 225, 'Tree view', 'OpenFolder TREEVIEW=MINI;SHOWALLINTREEVIEW=YES;OPEN=TREE'\1, 0, 0 buildmenuitem menuname, 2, 226, 'Details view', 'OpenFolder OPEN=DETAILS'\1, 32768+1, 0 buildmenuitem menuname, 2, 205, \0, '', 4, 0 buildmenuitem menuname, 2, 206, SAVE_MENU__MSG\9'F2', 'SAVE'SAVE_MENUP__MSG, 0, mpfrom2short(HP_FILE_SAVE, 0) buildmenuitem menuname, 2, 208, SAVEAS_MENU__MSG, 'SAVEAS_DLG'SAVEAS_MENUP__MSG, 0, mpfrom2short(HP_FILE_SAVEAS, 0) if ring_enabled then -- Note: 207 used in LaMail; keep ID the same. buildmenuitem menuname, 2, 207, FILE_MENU__MSG\9'F4', 'FILE'FILE_MENUP__MSG, 0, mpfrom2short(HP_FILE_FILE, 0) else buildmenuitem menuname, 2, 207, SAVECLOSE_MENU__MSG\9'F4', 'FILE'FILE_MENUP__MSG, 0, mpfrom2short(HP_FILE_FILE, 0) endif buildmenuitem menuname, 2, 209, QUIT_MENU__MSG\9'F3', 'QUIT'QUIT_MENUP__MSG, 0, mpfrom2short(HP_FILE_QUIT, 0) buildmenuitem menuname, 2, 210, \0, '', 4, 0 buildmenuitem menuname, 2, 211, PRT_FILE_MENU__MSG'...', 'printdlg'ENHPRT_FILE_MENUP__MSG, 0, mpfrom2short(HP_FILE_ENHPRINT, 0) return 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 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 stack_cmds universal CUA_MENU_ACCEL accel_len = (3+length(ALT_KEY__MSG))*(not CUA_MENU_ACCEL) buildsubmenu menuname, 8, EDIT_BAR__MSG, ''EDIT_BARP__MSG, 0 , mpfrom2short(HP_EDIT, 0) buildmenuitem menuname, 8, 816, UNDO_MENU__MSG\9 || ALT_KEY__MSG'+'BACKSPACE_KEY__MSG' | F9', 'UNDO 1'UNDO_MENUP__MSG, 0, mpfrom2short(HP_EDIT_UNDO, 0) buildmenuitem menuname, 8, 818, UNDO_REDO_MENU__MSG\9 || CTRL_KEY__MSG'+U', 'undodlg'UNDO_REDO_MENUP__MSG, 0, mpfrom2short(HP_EDIT_UNDOREDO, 0) buildmenuitem menuname, 8, 817, RECOVER_MARK_MENU__MSG, 'GetDMBuff'RECOVER_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_RECOVER, 0) buildmenuitem menuname, 8, 807, \0, '', 4, 0 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) buildmenuitem menuname, 8, 809, CUT_MENU__MSG\9 || SHIFT_KEY__MSG'+'DELETE_KEY__MSG, 'Cut'CUT_MENUP__MSG, 0, mpfrom2short(HP_EDIT_CUT, 0) buildmenuitem menuname, 8, 810, PASTE_C_MENU__MSG||PASTE_C_KEY, 'Paste C'PASTE_C_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PASTEC, 0) buildmenuitem menuname, 8, 811, PASTE_L_MENU__MSG||PASTE_L_KEY, 'Paste'PASTE_L_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PASTE, 0) buildmenuitem menuname, 8, 812, PASTE_B_MENU__MSG||PASTE_B_KEY, 'Paste B'PASTE_B_MENUP__MSG, 0, mpfrom2short(HP_EDIT_PASTEB, 0) buildmenuitem menuname, 8, 826, \0, '', 4, 0 buildmenuitem menuname, 8, 827, STYLE_MENU__MSG\9 || CTRL_KEY__MSG'+Y', 'fontlist'STYLE_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_STYLE, 0) buildmenuitem menuname, 8, 815, \0, '', 4, 0 buildmenuitem menuname, 8, 800, COPY_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+C', accel_len), 'CopyMark'COPY_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_COPYMARK, 0) buildmenuitem menuname, 8, 801, MOVE_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+M', accel_len), 'MoveMark'MOVE_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_MOVE, 0) buildmenuitem menuname, 8, 802, OVERLAY_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+O', accel_len), 'OverlayMark'OVERLAY_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_OVERLAY, 0) buildmenuitem menuname, 8, 803, ADJUST_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+A', accel_len), 'AdjustMark'ADJUST_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_ADJUST, 0) buildmenuitem menuname, 8, 804, \0, '', 4, 0 ; buildmenuitem menuname, 8, 828, 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, 8, 828, 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, 8, 805, UNMARK_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+U', accel_len), 'UnMark'UNMARK_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_UNMARK, 0) buildmenuitem menuname, 8, 806, DELETE_MARK_MENU__MSG||leftstr(\9 || ALT_KEY__MSG'+D', accel_len), 'DeleteMark'DELETE_MARK_MENUP__MSG, 0, mpfrom2short(HP_EDIT_DELETE, 0) if stack_cmds then buildmenuitem menuname, 8, 819, \0, '', 4, 0 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) 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, MIA_DISABLED) 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, MIA_DISABLED) 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) 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, MIA_DISABLED) buildmenuitem menuname, 8, 825, SWAP_CURSOR_MENU__MSG\9 || CTRL_KEY__MSG'+=', 'SWAPPOS'SWAP_CURSOR_MENUP__MSG, 0, mpfrom2short(HP_EDIT_SWAPPOS, MIA_DISABLED) endif buildmenuitem menuname, 8, 813, \0, '', 4, 0 buildmenuitem menuname, 8, 814, PRT_MARK_MENU__MSG'...', 'PRINTDLG M'ENHPRT_MARK_MENUP__MSG,0, mpfrom2short(HP_EDIT_ENHPRINT, 0) return defproc add_search_menu(menuname) buildsubmenu menuname, 3, SEARCH_BAR__MSG, ''SEARCH_BARP__MSG, 0 , mpfrom2short(HP_SEARCH, 0) buildmenuitem menuname, 3, 300, SEARCH_MENU__MSG\9 || CTRL_KEY__MSG'+S', 'SEARCHDLG'SEARCH_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_SEARCH, 0) buildmenuitem menuname, 3, 301, \0, '', 4, 0 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) 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) buildmenuitem menuname, 3, 350, 'Global find next'\9 || CTRL_KEY__MSG'+V', 'globalfind'\1'Repeat previous Locate command for all files in the ring', 0, 0 buildmenuitem menuname, 3, 351, 'Global change next', 'globalchange'\1'Repeat previous Change command for all files in the ring', 0, 0 buildmenuitem menuname, 3, 352, 'Toggle direction'\9 || CTRL_KEY__MSG'+-', 'ToggleSearchDirection'\1'Toggle back/forward for current locate/change command', 0, 0 buildmenuitem menuname, 3, 304, \0, '', 4, 0 buildmenuitem menuname, 3, 305, BOOKMARKS_MENU__MSG, BOOKMARKS_MENUP__MSG, 17, mpfrom2short(HP_SEARCH_BOOKMARKS, 0) buildmenuitem menuname, 3, 306, SET_MARK_MENU__MSG\9 || CTRL_KEY__MSG'+M', 'setmark'SET_MARK_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_BOOKMARKS, 0) buildmenuitem menuname, 3, 308, LIST_MARK_MENU__MSG\9 || CTRL_KEY__MSG'+B', 'listmark'LIST_MARK_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_BOOKMARKS, 0) buildmenuitem menuname, 3, 310, \0, '', 4, 0 buildmenuitem menuname, 3, 311, NEXT_MARK_MENU__MSG\9 || ALT_KEY__MSG'+/', 'nextbookmark'NEXT_MARK_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_BOOKMARKS, 0) 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) buildmenuitem menuname, 3, 320, \0, '', 4, 0 buildmenuitem menuname, 3, 330, TAGS_MENU__MSG, TAGS_MENUP__MSG, 17, mpfrom2short(HP_SEARCH_TAGS, 0) buildmenuitem menuname, 3, 331, TAGSDLG_MENU__MSG\9, 'poptagsdlg'TAGSDLG_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_TAGS, 0) buildmenuitem menuname, 3, 332, \0, '', 4, 0 buildmenuitem menuname, 3, 333, FIND_TAG_MENU__MSG\9 || SHIFT_KEY__MSG'+F6', 'findtag'FIND_TAG_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_TAGS, 0) buildmenuitem menuname, 3, 334, FIND_TAG2_MENU__MSG\9 || SHIFT_KEY__MSG'+F7', 'findtag *'FIND_TAG2_MENUP__MSG, 0, mpfrom2short(HP_SEARCH_TAGS, 0) buildmenuitem menuname, 3, 339, \0, '', 4, 0 buildmenuitem menuname, 3, 340, SCAN_TAGS_MENU__MSG, 'tagscan'SCAN_TAGS_MENUP__MSG, 32769, mpfrom2short(HP_SEARCH_TAGS, 0) return ; Preferences pull-right can get Set enter, Advanced mark, Stream mode, and ; Ring enabled, in addition to Configure. Here we calculate which menu item ; gets the "end pullright" attribute. define NEED_PREFERENCES = 1 -- Start out assuming this ENTER__ATTRIB = 0 MARK__ATTRIB = 0 STREAM__ATTRIB = 0 RING__ATTRIB = 0 STACK__ATTRIB = 0 ACCEL__ATTRIB = 32769 TOGGLEINFO = 'toggleframe 32' compile if WANT_NODISMISS_MENUS define NODISMISS = 32 compile else define NODISMISS = 0 compile endif -- WANT_NODISMISS_MENUS defproc add_options_menu(menuname) universal ring_enabled universal font buildsubmenu menuname, 4, OPTIONS_BAR__MSG, OPTIONS_BARP__MSG, 0 , mpfrom2short(HP_OPTIONS, 0) if ring_enabled then 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) buildmenuitem menuname, 4, 411, \0, '', 4, 0 endif buildmenuitem menuname, 4, 404, PROOF_MENU__MSG, 'proof'PROOF_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_PROOF, 0) buildmenuitem menuname, 4, 405, PROOF_WORD_MENU__MSG, 'proofword'PROOF_WORD_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_PROOFW, 0) buildmenuitem menuname, 4, 406, SYNONYM_MENU__MSG, 'syn'SYNONYM_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_SYN, 0) buildmenuitem menuname, 4, 450, DYNASPELL_MENU__MSG, 'dynaspell'DYNASPELL_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_DYNASPELL, 0) compile if CORE_STUFF buildmenuitem menuname, 4, 426, DEFINE_WORD_MENU__MSG, 'define'DEFINE_WORD_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_DEFINE, 0) compile endif -- CORE_STUFF buildmenuitem menuname, 4, 407, \0, '', 4, 0 ; If no "Toggle stream mode" or "Toggle advanced marking" or "Enable ring", then ; place "Configure..." on main Options menu. Otherwise, put it on a Preferences ; pull-right with the other stuff. buildmenuitem menuname, 4, 400, PREFERENCES_MENU__MSG, PREFERENCES_MENUP__MSG, 17, mpfrom2short(HP_OPTIONS_PREFERENCES, 0) buildmenuitem menuname, 4, 440, CONFIG_MENU__MSG, 'configdlg'CONFIG_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_CONFIG, 0) buildmenuitem menuname, 4, 441, ADVANCEDMARK_MENU__MSG, 'CUA_MARK_toggle'ADVANCEDMARK_MENUP__MSG, MARK__ATTRIB, mpfrom2short(HP_OPTIONS_CUATOGGLE, NODISMISS) buildmenuitem menuname, 4, 442, STREAMMODE_MENU__MSG, 'stream_toggle'STREAMMODE_MENUP__MSG, STREAM__ATTRIB, mpfrom2short(HP_OPTIONS_STREAM, NODISMISS) buildmenuitem menuname, 4, 443, RINGENABLED_MENU__MSG, 'ring_toggle'RINGENABLED_MENUP__MSG, RING__ATTRIB, mpfrom2short(HP_OPTIONS_RINGENABLE, NODISMISS) buildmenuitem menuname, 4, 445, STACKCMDS_MENU__MSG, 'stack_toggle'STACKCMDS_MENUP__MSG, STACK__ATTRIB, mpfrom2short(HP_OPTIONS_STACKCMDS, NODISMISS) buildmenuitem menuname, 4, 446, CUAACCEL_MENU__MSG, 'accel_toggle'CUAACCEL_MENUP__MSG, ACCEL__ATTRIB, mpfrom2short(HP_OPTIONS_CUAACCEL, NODISMISS) buildmenuitem menuname, 4, 460, \0, '', 4, 0 buildmenuitem menuname, 4, 461, 'Select menu...', 'ChangeMenu'\1'Open a listbox and change or refresh the menu', 1, 0 buildmenuitem menuname, 4, 401, \0, '', 4, 0 buildmenuitem menuname, 4, 402, AUTOSAVE_MENU__MSG, 'autosave ?'AUTOSAVE_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_AUTOSAVE, 0) buildmenuitem menuname, 4, 412, MESSAGES_MENU__MSG, 'messagebox'MESSAGES_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_MESSAGES, 0) buildmenuitem menuname, 4, 409, \0, '', 4, 0 ; Note: 408 is referenced by TOGGLEFONT. If the number changes, update TOGGLEFONT. buildmenuitem menuname, 4, 425, FRAME_CTRLS_MENU__MSG, FRAME_CTRLS_MENUP__MSG, 17, mpfrom2short(HP_OPTIONS_FRAME, 0) buildmenuitem menuname, 4, 413, STATUS_LINE_MENU__MSG, 'toggleframe 1'STATUS_LINE_MENUP__MSG, 0, mpfrom2short(HP_FRAME_STATUS, NODISMISS) buildmenuitem menuname, 4, 414, MSG_LINE_MENU__MSG, 'toggleframe 2'MSG_LINE_MENUP__MSG, 0, mpfrom2short(HP_FRAME_MESSAGE, NODISMISS) buildmenuitem menuname, 4, 415, SCROLL_BARS_MENU__MSG, 'setscrolls'SCROLL_BARS_MENUP__MSG, 0, mpfrom2short(HP_FRAME_SCROLL, NODISMISS) ;; buildmenuitem menuname, 4, 416, 'Partial te~xt', 'togglecontrol 15', 32768+1, 0, 0 buildmenuitem menuname, 4, 417, ROTATEBUTTONS_MENU__MSG,'toggleframe 4'ROTATEBUTTONS_MENUP__MSG, 0, mpfrom2short(HP_FRAME_ROTATE, NODISMISS) buildmenuitem menuname, 4, 430, TOGGLETOOLBAR_MENU__MSG, 'toggle_toolbar'TOGGLETOOLBAR_MENUP__MSG, 1, mpfrom2short(HP_TOOLBAR_TOGGLE, NODISMISS) buildmenuitem menuname, 4, 437, TOGGLEBITMAP_MENU__MSG,'toggle_bitmap'TOGGLEBITMAP_MENUP__MSG, 0, mpfrom2short(HP_FRAME_BITMAP, NODISMISS) buildmenuitem menuname, 4, 439, \0, '', 4, 0 buildmenuitem menuname, 4, 421, INFOATTOP_MENU__MSG, TOGGLEINFO || INFOATTOP_MENUP__MSG, 0, mpfrom2short(HP_FRAME_EXTRAPOS, NODISMISS) buildmenuitem menuname, 4, 422, PROMPTING_MENU__MSG, 'toggleprompt'PROMPTING_MENUP__MSG, 32768+1, mpfrom2short(HP_FRAME_PROMPT, NODISMISS) buildmenuitem menuname, 4, 418, SAVE_OPTS_MENU__MSG, 'saveoptions'SAVE_OPTS_MENUP__MSG, 0, mpfrom2short(HP_OPTIONS_SAVE, 0) return compile if not defined( COMMAND_MENU_ID) -- must be defined first in STDCTRL.E const COMMAND_MENU_ID = 0 compile endif defproc add_command_menu(menuname) -- Changed menu id from 1 to 0 to make processmenuinit work. -- That hopefully doesn't interfere with any extern package. -- In SELECT.E the code for the command menu is removed and -- added in STDCTRL.E, defc menuinit_0 buildsubmenu menuname, COMMAND_MENU_ID, COMMAND_BAR__MSG, COMMAND_BARP__MSG, 0 , mpfrom2short(HP_COMMAND, 0) buildmenuitem menuname, COMMAND_MENU_ID, 100, COMMANDLINE_MENU__MSG\9 || CTRL_KEY__MSG'+I', 'commandline'COMMANDLINE_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_CMD, 0) buildmenuitem menuname, COMMAND_MENU_ID, 65535, HALT_COMMAND_MENU__MSG, '', 0, mpfrom2short(HP_COMMAND_HALT, 0) buildmenuitem menuname, COMMAND_MENU_ID, 101, \0, '', 4, 0 buildmenuitem menuname, COMMAND_MENU_ID, 102, CREATE_SHELL_MENU__MSG, 'shell new'CREATE_SHELL_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_SHELL, 0) buildmenuitem menuname, COMMAND_MENU_ID, 103, WRITE_SHELL_MENU__MSG, 'shell_write'WRITE_SHELL_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_WRITE, MIA_DISABLED) ; buildmenuitem menuname, COMMAND_MENU_ID, 104, KILL_SHELL_MENU__MSG, 'shell_kill'KILL_SHELL_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_KILL, MIA_DISABLED) buildmenuitem menuname, COMMAND_MENU_ID, 104, SHELL_BREAK_MENU__MSG, 'shell_break'SHELL_BREAK_MENUP__MSG, 0, mpfrom2short(HP_COMMAND_BREAK, MIA_DISABLED) buildmenuitem menuname, COMMAND_MENU_ID, 130, \0, '', 4, 0 buildmenuitem menuname, COMMAND_MENU_ID, 131, 'Recompile new...' , 'RecompileNew'\1, 0, 0 return 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 buildmenuitem menuname, HELP_MENU_ID, 609, 'NEPMD runtime information', 'nepmdinfo', 0, 0 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 buildmenuitem menuname, HELP_MENU_ID, 640, 'View NEPMD Users Guide', ''\1, 17+64, 0 -- start is used here to resolve environment var buildmenuitem menuname, HELP_MENU_ID, 641, 'View NEPMD User Guide', 'start view neusr%NEPMD_LANGUAGE% netlabs'\1, 0, 0 buildmenuitem menuname, HELP_MENU_ID, 642, 'Current word', 'viewword neusr%NEPMD_LANGUAGE%'\1, 32768+1, 0 buildmenuitem menuname, HELP_MENU_ID, 650, 'View NEPMD Programming Guide', ''\1, 17+64, 0 -- start is used here to resolve environment var buildmenuitem menuname, HELP_MENU_ID, 651, 'View NEPMD Programming Guide', 'start view neprg%NEPMD_LANGUAGE% netlabs'\1, 0, 0 buildmenuitem menuname, HELP_MENU_ID, 652, 'Current word', 'viewword neprg%NEPMD_LANGUAGE%'\1, 32768+1, 0 ; --------------------------------------------------------------------------- defc add_cascade_menus -- This command is called by defproc showmmenu_activemenu with 'postme'. 'cascade_menu 220 221' -- File -> Open Folder 'cascade_menu 640 641' -- Help -> NEPMD User Guide 'cascade_menu 650 651' -- Help -> NEPMD Programming Guide compile if SUPPORT_USERS_GUIDE 'cascade_menu 620 621' -- Help -> View User's Guide compile endif compile if SUPPORT_TECHREF 'cascade_menu 630 631' -- Help -> View Technical Reference compile endif -- CUSTEPM package compile if defined(CUSTEPM_DEFAULT_SCREEN) 'cascade_menu' 3700 (CUSTEPM_DEFAULT_SCREEN + 3700) compile elseif defined(HAVE_CUSTEPM) 'cascade_menu' 3700 compile endif --------------------------------------------- Menu id 8 -- Edit ------------------------- defc menuinit_8 universal mark_stack, position_stack universal stack_cmds SetMenuAttribute( 816, MIA_DISABLED, isadirtyline()) undoaction 1, PresentState -- Do to fix range, not for value. undoaction 6, StateRange -- query range parse value staterange with oldeststate neweststate . SetMenuAttribute( 818, MIA_DISABLED, oldeststate<>neweststate ) -- Set to 1 if different paste = clipcheck(format) & (format = 1024) & not (browse() | .readonly) SetMenuAttribute( 810, MIA_DISABLED, paste) SetMenuAttribute( 811, MIA_DISABLED, paste) SetMenuAttribute( 812, MIA_DISABLED, paste) 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( 800, MIA_DISABLED, on | buf_flag) -- Can copy if mark or buffer has data SetMenuAttribute( 801, MIA_DISABLED, on) SetMenuAttribute( 802, MIA_DISABLED, on | buf_flag) -- Ditto for Overlay mark SetMenuAttribute( 803, MIA_DISABLED, on) SetMenuAttribute( 805, MIA_DISABLED, on) SetMenuAttribute( 806, MIA_DISABLED, on) SetMenuAttribute( 808, MIA_DISABLED, on) SetMenuAttribute( 809, MIA_DISABLED, on) SetMenuAttribute( 814, MIA_DISABLED, on) if stack_cmds then SetMenuAttribute( 820, MIA_DISABLED, on) SetMenuAttribute( 821, MIA_DISABLED, mark_stack<>'') SetMenuAttribute( 822, MIA_DISABLED, on & mark_stack<>'') SetMenuAttribute( 824, MIA_DISABLED, position_stack<>'') SetMenuAttribute( 825, MIA_DISABLED, position_stack<>'') endif --------------------------------------------- Menu id 4 -- Options --------------------- defc menuinit_4 universal ring_enabled if ring_enabled then SetMenuAttribute( 410, MIA_DISABLED, filesinring()>1) endif SetMenuAttribute( 450, MIA_CHECKED, .keyset <> 'SPELL_KEYS') --------------------------------------------- Menu id 400 -- Options / Preferences ------- defc menuinit_400 universal stack_cmds universal stream_mode universal ring_enabled universal CUA_MENU_ACCEL SetMenuAttribute( 441, MIA_CHECKED, not (QueryMarkingMode() = 'A')) SetMenuAttribute( 442, MIA_CHECKED, not stream_mode) SetMenuAttribute( 443, MIA_CHECKED, not ring_enabled) SetMenuAttribute( 445, MIA_CHECKED, not stack_cmds) SetMenuAttribute( 446, MIA_CHECKED, not CUA_MENU_ACCEL) --------------------------------------------- Menu id 425 -- Options / Frame controls --- defc menuinit_425 universal bitmap_present universal ring_enabled universal menu_prompt SetMenuAttribute( 413, MIA_CHECKED, not queryframecontrol(EFRAMEF_STATUSWND)) -- 1 SetMenuAttribute( 414, MIA_CHECKED, not queryframecontrol(EFRAMEF_MESSAGEWND)) -- 2 SetMenuAttribute( 415, MIA_CHECKED, not queryframecontrol(EFRAMEF_HSCROLLBAR)) -- 16 if ring_enabled then SetMenuAttribute( 417, MIA_CHECKED, not queryframecontrol(EFRAMEF_RINGBUTTONS)) -- 4 else SetMenuAttribute( 417, MIA_DISABLED, 1) -- Grey out Rotate Buttons if ring not enabled endif SetMenuAttribute( 430, MIA_CHECKED, not queryframecontrol(EFRAMEF_TOOLBAR)) -- 2048 SetMenuAttribute( 437, MIA_CHECKED, not bitmap_present) SetMenuAttribute( 421, MIA_CHECKED, not queryframecontrol(EFRAMEF_INFOONTOP)) -- 32 SetMenuAttribute( 422, MIA_CHECKED, not menu_prompt) --------------------------------------------- Menu id 3 -- Search ----------------------- defc menuinit_3 lastchangeargs = GetLastChangeArgs() getsearch strng parse value strng with . c . -- blank, 'c', or 'l' SetMenuAttribute( 302, MIA_DISABLED, c<>'') -- Find next OK if not blank SetMenuAttribute( 303, MIA_DISABLED, lastchangeargs<>'') -- Change next only if 'c' SetMenuAttribute( 350, MIA_DISABLED, c<>'') -- Global find next OK if not blank SetMenuAttribute( 351, MIA_DISABLED, lastchangeargs<>'') -- Global change next only if 'c' SetMenuAttribute( 352, MIA_DISABLED, c<>'') -- Toggle direction OK if not blank --------------------------------------------- Menu id 3 -- Bookmarks -------------------- defc menuinit_305 getfileid bmfid bmcount = GetAVar( 'bmname.'bmfid'.0') SetMenuAttribute( 306, MIA_DISABLED, not (browse() | .readonly)) -- Set SetMenuAttribute( 308, MIA_DISABLED, bmcount>0) -- List SetMenuAttribute( 311, MIA_DISABLED, bmcount>0) -- Next SetMenuAttribute( 312, MIA_DISABLED, bmcount>0) -- Prev ; Also will need to handle 204 (Name) on File menu if 5.60 & LaMail... --------------------------------------------- Menu id 0 -- Command ---------------------- ; This is not called by entering the Command menu if menu id = 1. Changing the menu id ; to e.g. 0 will make it. Apperently 'processmenuinit' is not executed for menu id = 1. ; The id must be changed in: ; - STDMENU.E: defproc add_command_menu ; Since in FEVSHMNU.E the file menu gets the id = 1 and the shell actions are defined ; as submenuitems of File->Command, following is not important: ; - EPMSHELL.E: defc shell if WANT_EPM_SHELL = 'HIDDEN' & not defined(STD_MENU_NAME). ; Unfortunately the command name includes the id. Maybe we'll change this in future. defc menuinit_0 universal shell_index if shell_index then is_shell = IsAShell() SetMenuAttribute( 103, MIA_DISABLED, is_shell) -- 'shell_write' SetMenuAttribute( 104, MIA_DISABLED, is_shell) -- 'shell_break' endif -- shell_index ; The above is all part of ProcessMenuInit cmd on old versions. ----------------- ; --------------------------------------------------------------------------- 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 S O C H') rc = save_rc -- don't change rc of the link statement by definit code define -- Prepare for some conditional tests maybe_ring_accel = "' ' =" -- Will be false 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 false for any letter compile endif defproc update_edit_menu_text = 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' | SEARCH_ACCEL__L = 'C' | OPTIONS_ACCEL__L = 'C' | COMMAND_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 800 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif 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_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 801 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif 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_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 802 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif 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_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 803 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif 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_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 805 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif 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_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 806 + 65536, ltoa(offset(menutext) || selector(menutext), 10) ) compile endif /* 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 � 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 else fon = not querycontrol(controlid) -- Query now, since toggling is asynch. endif call windowmessage(0, getpminfo(EPMINFO_EDITFRAME), 5388, -- EPM_EDIT_CONTROLTOGGLE controlid + forceon, 0) compile if WANT_NODISMISS_MENUS p = wordpos(controlid, ' 7 8 10 20 22 23') if p then --> === === === === === === menuid = word('413 414 415 417 416 421', p) SetMenuAttribute( menuid, MIA_CHECKED, not fon) endif compile endif -- WANT_NODISMISS_MENUS defc toggleframe forceon=0 parse arg controlid fon if fon<>'' then forceon=(fon+1)*65536 else fon = not queryframecontrol(controlid) -- Query now, since toggling is asynch. endif call windowmessage(0, getpminfo(EPMINFO_EDITFRAME), 5907, -- EFRAMEM_TOGGLECONTROL controlid + forceon, 0) compile if WANT_NODISMISS_MENUS p = wordpos(controlid, ' 1 2 4 16 32') if p then --> === === === === === menuid = word('413 414 417 415 421', p) SetMenuAttribute( menuid, MIA_CHECKED, not fon) endif compile endif -- WANT_NODISMISS_MENUS 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 SetMenuAttribute( 422, MIA_CHECKED, 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) compile if WANT_NODISMISS_MENUS SetMenuAttribute( 437, MIA_CHECKED, not bitmap_present) compile endif -- WANT_NODISMISS_MENUS defc CUA_mark_toggle if QueryMarkingMode() = 'A' then 'SwitchMarkingMode C' else 'SwitchMarkingMode A' endif compile if WANT_NODISMISS_MENUS SetMenuAttribute( 441, MIA_CHECKED, not (QueryMarkingMode() = 'A')) compile endif -- WANT_NODISMISS_MENUS call MH_set_mouse() defc stream_toggle universal stream_mode stream_mode = not stream_mode 'RefreshInfoLine STREAMMODE' compile if WANT_NODISMISS_MENUS SetMenuAttribute( 442, MIA_CHECKED, not stream_mode) compile endif -- WANT_NODISMISS_MENUS defc ring_toggle universal ring_enabled universal activemenu, defaultmenu ring_enabled = not ring_enabled 'toggleframe 4' ring_enabled deletemenu defaultmenu, 2, 0, 1 -- Delete the file menu call add_file_menu(defaultmenu) deletemenu defaultmenu, 4, 0, 1 -- Delete the options menu call add_options_menu(defaultmenu, dos_version() >= 1020) call maybe_show_menu() defc stack_toggle universal stack_cmds universal activemenu, defaultmenu stack_cmds = not stack_cmds deletemenu defaultmenu, 8, 0, 1 -- Delete the edit menu call add_edit_menu(defaultmenu) call maybe_show_menu() defc accel_toggle universal CUA_MENU_ACCEL universal activemenu, defaultmenu CUA_MENU_ACCEL = not CUA_MENU_ACCEL 'ReloadKeyset' deletemenu defaultmenu, 8, 0, 1 -- Delete the edit menu call add_edit_menu(defaultmenu) if activemenu = defaultmenu then call update_edit_menu_text() endif compile if WANT_NODISMISS_MENUS SetMenuAttribute( 446, MIA_CHECKED, not CUA_MENU_ACCEL) compile endif -- WANT_NODISMISS_MENUS defc toggle_toolbar universal toolbar_present universal toolbar_loaded if not toolbar_loaded then 'default_toolbar' endif 'toggleframe' EFRAMEF_TOOLBAR on = QueryFrameControl( EFRAMEF_TOOLBAR) toolbar_present = on SetMenuAttribute( 430, MIA_CHECKED, fon) if not toolbar_loaded then 'default_toolbar' endif