Changeset 3779
- Timestamp:
- Dec 30, 2019, 11:34:21 PM (5 years ago)
- File:
-
- 1 edited
-
trunk/src/netlabs/macros/newmenu.e (modified) (230 diffs)
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified trunk/src/netlabs/macros/newmenu.e ¶
r3763 r3779 187 187 ; processed delayed, after definit is completed. 188 188 defc InitMenuSettings 189 universal NoDismiss189 universal nodismiss 190 190 191 191 KeyPath = '\NEPMD\User\Menu\NoDismiss' 192 192 on = (QueryConfigKey( KeyPath) = 1) 193 193 --if on then 194 -- NoDismiss = 'NODISMISS'194 -- nodismiss = 'NODISMISS' 195 195 --else 196 196 -- NoDisMiss = '' 197 197 --endif 198 NoDismiss = 32 * on198 nodismiss = 32 * on 199 199 200 200 ; --------------------------------------------------------------------------- … … 247 247 ; -------------------------------------------------------------------------------------- File ------------------------- 248 248 defproc add_file_menu() 249 universal NoDismiss249 universal nodismiss 250 250 universal WpsStarted 251 251 … … 397 397 '', 398 398 'Properties for this buffer/file only') 399 -- Added NoDismiss to submenu items only. This is required for the submenu item 'Close menu' to work.399 -- Added nodismiss to submenu items only. This is required for the submenu item 'Close menu' to work. 400 400 DefMenuItem( 'mode', -- Mode... 401 401 '~Mode []...', … … 403 403 'Select or show mode for the current file', 404 404 '', 405 NoDismiss)405 nodismiss) 406 406 DefMenuItem( '', -- Show file and mode settings 407 407 'Show ~file and mode settings', … … 417 417 'Select or show tabs for the current file', 418 418 '', 419 NoDismiss)419 nodismiss) 420 420 DefMenuItem( 'margins', -- Margins... 421 421 'Mar~gins []...', … … 423 423 'Select or show margins for the current file', 424 424 '', 425 NoDismiss)425 nodismiss) 426 426 DefMenuItem( 'autospellcheck', -- Auto-spellcheck 427 427 DYNASPELL_MENU__MSG, … … 429 429 DYNASPELL_MENUP__MSG, 430 430 HP_OPTIONS_DYNASPELL) 431 -- NoDismiss doesn't work here because of RefreshMenu, called by SetKeyset2431 -- nodismiss doesn't work here because of RefreshMenu, called by SetKeyset2 432 432 DefMenuSep() -------------------- 433 433 … … 437 437 'Set or reset read-only file attribute', 438 438 '', 439 NoDismiss)439 nodismiss) 440 440 DefMenuItem( 'readonly', -- Read-only mode 441 441 '~Read-only mode', … … 443 443 'Enable or disable read-only mode', 444 444 '', 445 NoDismiss)445 nodismiss) 446 446 if nodismiss = 0 & not WpsStarted then 447 447 DefNextItemEndsSubMenu() … … 452 452 'Enable or disable write access for other apps', 453 453 '', 454 NoDismiss)454 nodismiss) 455 455 if WpsStarted then 456 456 if nodismiss = 0 then … … 535 535 ; -------------------------------------------------------------------------------------- Edit ------------------------- 536 536 defproc add_edit_menu() 537 universal NoDismiss537 universal nodismiss 538 538 539 539 DefSubMenu( 'edit', -- Edit ------------ … … 595 595 'Insert empty line after current', 596 596 '', 597 NoDismiss)597 nodismiss) 598 598 DefMenuItem( '', -- New line before 599 599 'New ~line before', … … 601 601 'Insert empty line before current', 602 602 '', 603 NoDismiss)603 nodismiss) 604 604 DefMenuSep() -------------------- 605 605 … … 609 609 'Copy char above to cursor position', 610 610 '', 611 NoDismiss)611 nodismiss) 612 612 DefMenuItem( '', -- Char from below 613 613 'Char from ~below', … … 615 615 'Copy char below to cursor position', 616 616 '', 617 NoDismiss)617 nodismiss) 618 618 DefMenuSep() -------------------- 619 619 … … 642 642 'Move current text', 643 643 '', 644 NoDismiss)644 nodismiss) 645 645 DefMenuItem( '', -- Line up 646 646 'Line ~up', … … 907 907 ; -------------------------------------------------------------------------------------- Format ----------------------- 908 908 defproc add_format_menu() 909 universal NoDismiss909 universal nodismiss 910 910 universal reflowmargins 911 911 compile if CHECK_FOR_LEXAM … … 1038 1038 'Sort in reverse order', 1039 1039 '', 1040 NoDismiss)1040 nodismiss) 1041 1041 DefMenuItem( 'sortignorecase', -- Ignore case 1042 1042 '~Ignore case', … … 1044 1044 'Sort ignoring case', 1045 1045 '', 1046 NoDismiss)1046 nodismiss) 1047 1047 DefNextItemEndsSubMenu() 1048 1048 DefMenuItem( 'sortcollatingorder', -- Collating order … … 1051 1051 'Sort according to country and codepage settings', 1052 1052 '', 1053 NoDismiss)1053 nodismiss) 1054 1054 DefNextItemStartsSubMenu() 1055 1055 DefMenuItem( 'comment', -- Comment > … … 1094 1094 'When active, tab compression processes the line indents only', 1095 1095 '', 1096 NoDismiss)1096 nodismiss) 1097 1097 1098 1098 DefNextItemEndsSubMenu() … … 1207 1207 'Encode current file to the system codepage with the selected tool', 1208 1208 '', 1209 NoDismiss)1209 nodismiss) 1210 1210 DefMenuItem( 'encodeto', -- From SystemEncoding to [] 1211 1211 'From #syscodepage# ~to []', … … 1213 1213 'Encode current file from the system codepage with the selected tool', 1214 1214 '', 1215 NoDismiss)1215 nodismiss) 1216 1216 DefMenuSep() -------------------- 1217 1217 … … 1221 1221 'Uconv.exe modifies dates and times, but knows more encodings', 1222 1222 '', 1223 NoDismiss)1223 nodismiss) 1224 1224 DefMenuItem( 'userecode', -- Use recode.exe 1225 1225 'Use ~recode.exe', … … 1227 1227 'Recode.exe keeps dates and times, but doesn''t support Unicode', 1228 1228 '', 1229 NoDismiss)1229 nodismiss) 1230 1230 DefMenuItem( 'switchencoding', -- Select other encoding: [] 1231 1231 'Select other ~encoding: []', … … 1233 1233 'Switch to next defined encoding', 1234 1234 '', 1235 NoDismiss)1235 nodismiss) 1236 1236 DefMenuItem( 'switchstandardencoding', -- Select standard encoding: [] 1237 1237 'Select ~standard encoding: []', … … 1239 1239 'Switch to next defined encoding plus system encoding', 1240 1240 '', 1241 NoDismiss)1241 nodismiss) 1242 1242 DefMenuItem( 'configencoding', -- Configure encoding list... 1243 1243 '~Configure encoding list...', … … 1251 1251 'Open in entry box to edit', 1252 1252 '', 1253 NoDismiss)1253 nodismiss) 1254 1254 1255 1255 compile if CHECK_FOR_LEXAM … … 1284 1284 'Switch to next defined dictionary language', 1285 1285 '', 1286 NoDismiss)1286 nodismiss) 1287 1287 DefNextItemEndsSubMenu() 1288 1288 DefMenuItem( '', -- Configure dictionaries... … … 1392 1392 'Put 2 spaces after periods etc.', 1393 1393 '', 1394 NoDismiss)1394 nodismiss) 1395 1395 DefNextItemEndsSubMenu() 1396 1396 DefMenuItem( 'reflownext', -- Reflow next … … 1399 1399 'Move cursor to next par after reflow', 1400 1400 '', 1401 NoDismiss)1401 nodismiss) 1402 1402 DefNextItemStartsSubMenu() 1403 1403 DefMenuItem( 'reflowcode', -- Reflow code [...] > … … 1424 1424 'Include indented lines', 1425 1425 '', 1426 NoDismiss)1426 nodismiss) 1427 1427 DefNextItemEndsSubMenu() 1428 1428 DefMenuItem( 'mailindentlists', -- Mail: indent list items … … 1431 1431 'Indent lines of list items', 1432 1432 '', 1433 NoDismiss)1433 nodismiss) 1434 1434 DefNextItemStartsSubMenu() 1435 1435 DefMenuItem( 'reflowmargins', -- Reflow margins > … … 1443 1443 'Select specified value(s) as reflow margins', 1444 1444 '', 1445 NoDismiss)1445 nodismiss) 1446 1446 DefMenuItem( 'reflowmargins2', -- 2: [] 1447 1447 '~2: []', … … 1449 1449 'Select specified value(s) as reflow margins', 1450 1450 '', 1451 NoDismiss)1451 nodismiss) 1452 1452 DefMenuItem( 'reflowmargins3', -- 3: [] (margins) 1453 1453 '~3: [] (margins)', … … 1455 1455 'Select file''s margins as reflow margins', 1456 1456 '', 1457 NoDismiss)1457 nodismiss) 1458 1458 DefMenuSep() -------------------- 1459 1459 … … 1532 1532 ; -------------------------------------------------------------------------------------- Search ----------------------- 1533 1533 defproc add_search_menu() 1534 universal NoDismiss1534 universal nodismiss 1535 1535 1536 1536 fGrepFound = (GetAVar( 'tool.grep') <> '') … … 1605 1605 'Toggle back/forward for next locate/change commands', 1606 1606 '', 1607 NoDismiss)1607 nodismiss) 1608 1608 DefMenuSep() -------------------- 1609 1609 … … 1913 1913 ; -------------------------------------------------------------------------------------- View ------------------------- 1914 1914 defproc add_view_menu() 1915 universal NoDismiss1915 universal nodismiss 1916 1916 1917 1917 DefSubMenu( 'view', -- View ------------ … … 2011 2011 ; in order to not overwrite other mids. 2012 2012 defproc add_run_menu() 2013 universal NoDismiss2013 universal nodismiss 2014 2014 2015 2015 DefSubMenu( 'run', -- Run ------------- … … 2084 2084 'Use Tab and Sh+Tab to insert matching filenames', 2085 2085 '', 2086 NoDismiss)2086 nodismiss) 2087 2087 DefMenuItem( 'alias', -- Activate aliases 2088 2088 'Activate ~aliases', … … 2090 2090 'Put an asterisk before a command to temp. disable it', 2091 2091 '', 2092 NoDismiss)2092 nodismiss) 2093 2093 DefNextItemEndsSubMenu() 2094 2094 DefMenuItem( 'editalias', -- Edit ALIAS.CFG … … 2208 2208 /* 2209 2209 defproc add_options_macros 2210 universal NoDismiss2210 universal nodismiss 2211 2211 */ 2212 2212 UserDir = Get_Env( 'NEPMD_USERDIR') … … 2259 2259 'Activate REXX configuration file', 2260 2260 '', 2261 NoDismiss)2261 nodismiss) 2262 2262 DefMenuItem( 'editmystuff', -- Edit MYSTUFF.E 2263 2263 'Edit MY~STUFF.E', … … 2290 2290 ; -------------------------------------------------------------------------------------- Help ------------------------- 2291 2291 defproc add_help_menu() 2292 universal NoDismiss2292 universal nodismiss 2293 2293 2294 2294 DefSubMenu( 'help', -- Help ------------ … … 2442 2442 'NiewView.exe is searched in PATH and used if found', 2443 2443 '', 2444 NoDismiss)2444 nodismiss) 2445 2445 DefNextItemEndsSubMenu() 2446 2446 DefMenuItem( 'usenewviewxsearch', -- Use NewView's extended search … … 2449 2449 'Search in text instead of just a topic search', 2450 2450 '', 2451 NoDismiss)2451 nodismiss) 2452 2452 DefMenuSep() -------------------- 2453 2453 … … 2470 2470 defc PrefsPopupMenu 2471 2471 universal activemenu 2472 universal NoDismiss -- 0 | 322472 universal nodismiss -- 0 | 32 2473 2473 2474 2474 menuname = 'prefspopup' -- 'preferences' is already used by the edit menu item … … 2485 2485 '', 2486 2486 '', 2487 NoDismiss)2487 nodismiss) 2488 2488 DefMenuItem( '', -- Presets 2489 2489 'Presets', … … 2497 2497 'Reset to standard user settings with CUA keyset', 2498 2498 '', 2499 NoDismiss)2499 nodismiss) 2500 2500 DefMenuItem( '', -- Programmer, CUA (default) 2501 2501 '~Programmer, CUA (default)', … … 2503 2503 'Reset to programmer settings with CUA keyset', 2504 2504 '', 2505 NoDismiss)2505 nodismiss) 2506 2506 DefMenuItem( '', -- Programmer, standard EPM 2507 2507 'Programmer, standard ~EPM', … … 2509 2509 'Reset to standard EPM settings with line mode', 2510 2510 '', 2511 NoDismiss)2511 nodismiss) 2512 2512 DefMenuSep() -------------------- 2513 2513 … … 2523 2523 ADVANCEDMARK_MENUP__MSG, 2524 2524 HP_OPTIONS_CUATOGGLE, 2525 NoDismiss)2525 nodismiss) 2526 2526 DefMenuItem( 'cuakeyset', -- CUA keyset 2527 2527 '~CUA keyset', … … 2529 2529 'Toggle between CUA keys and standard EPM keys', 2530 2530 '', 2531 NoDismiss)2531 nodismiss) 2532 2532 DefMenuItem( 'defaultstreammode2', -- Stream mode 2533 2533 '~Stream mode', … … 2535 2535 'Toggle between stream and line editing mode', 2536 2536 HP_OPTIONS_STREAM, 2537 NoDismiss)2537 nodismiss) 2538 2538 DefMenuItem( 'cursoreverywhere2', -- Allow cursor everywhere 2539 2539 'Allow cu~rsor everywhere', … … 2541 2541 'Cursor can be positioned after line end', 2542 2542 '', 2543 NoDismiss)2543 nodismiss) 2544 2544 DefMenuItem( 'homeendtoggle', -- Home and End keys toggle 2545 2545 '~Home and End keys toggle', … … 2547 2547 'Toggle between text and line boundaries', 2548 2548 '', 2549 NoDismiss)2549 nodismiss) 2550 2550 DefMenuItem( 'blockaltletterkeys2', -- Block Alt+letter keys from jumping to menu bar 2551 2551 '~Block Alt+letter keys from jumping to menu bar', … … 2553 2553 'Enable for advanced mark operations (Ctrl+Alt+Shift+letter works for menu)', 2554 2554 HP_OPTIONS_CUAACCEL, 2555 NoDismiss)2555 nodismiss) 2556 2556 DefMenuItem( 'defaultsyntaxexpansion2', -- Syntax expansion 2557 2557 '~Syntax expansion', … … 2559 2559 'Let '' and '' do syntax expansion', -- Hint is updated on menu init 2560 2560 '', 2561 NoDismiss)2561 nodismiss) 2562 2562 DefNextItemEndsSubMenu() 2563 2563 DefMenuItem( 'matchbrackets', -- Match brackets … … 2566 2566 'Highlight brackets and insert bracket pairs on typing', 2567 2567 '', 2568 NoDismiss)2568 nodismiss) 2569 2569 DefMenuSep() -------------------- 2570 2570 … … 2581 2581 'Export user settings to a text file for later import', 2582 2582 '', 2583 NoDismiss)2583 nodismiss) 2584 2584 DefMenuItem( '', -- Import user settings... 2585 2585 'Import ~user settings...', … … 2587 2587 'Select a text file with user settings to import', 2588 2588 '', 2589 NoDismiss)2590 2591 if NoDismiss <> 0 then2589 nodismiss) 2590 2591 if nodismiss <> 0 then 2592 2592 DefMenuSep() -------------------- 2593 2593 … … 2608 2608 ; --------------------------------------------------------------------------- 2609 2609 defproc add_prefs_loadfiles 2610 universal NoDismiss2610 universal nodismiss 2611 2611 universal WpsStarted 2612 2612 … … 2623 2623 'View/change default edit options', 2624 2624 '', 2625 NoDismiss)2625 nodismiss) 2626 2626 DefMenuItem( 'editoptions_b', -- 2627 2627 '/~b'\9'search both: ring and disk*', … … 2629 2629 '', 2630 2630 '', 2631 NoDismiss)2631 nodismiss) 2632 2632 DefMenuItem( 'editoptions_c', -- 2633 2633 '/~c'\9'create a new file', … … 2635 2635 '', 2636 2636 '', 2637 NoDismiss)2637 nodismiss) 2638 2638 DefMenuItem( 'editoptions_d', -- 2639 2639 '/~d'\9'create new if on disk', … … 2641 2641 '', 2642 2642 '', 2643 NoDismiss)2643 nodismiss) 2644 2644 DefMenuSep() -------------------- 2645 2645 … … 2649 2649 '', 2650 2650 '', 2651 NoDismiss)2651 nodismiss) 2652 2652 DefMenuItem( 'editoptions_t', -- 2653 2653 '/~t'\9'don''t expand tabs*', … … 2655 2655 '', 2656 2656 '', 2657 NoDismiss)2657 nodismiss) 2658 2658 ; In EPM 6 there's no difference between /u and /l anymore. 2659 2659 ; EPM breaks lines at CRCRLF, CRLF, CR and LF, not dependent on /u or /l. … … 2683 2683 '', 2684 2684 '', 2685 NoDismiss)2685 nodismiss) 2686 2686 DefNextItemEndsSubMenu() 2687 2687 DefMenuItem( '', -- … … 2698 2698 '', 2699 2699 '', 2700 NoDismiss)2700 nodismiss) 2701 2701 DefMenuItem( 'prgnewwindow', -- Open in same window 2702 2702 'Open in ~same window (/r)', … … 2704 2704 'Open file objects in topmost EPM window', 2705 2705 '', 2706 NoDismiss)2706 nodismiss) 2707 2707 DefMenuItem( 'prgomitopenbox', -- File open selection: ~Omit open box (/o) 2708 2708 'File open selection: ~Omit open box (/o)', … … 2710 2710 'Show file dialog directly instead of history list first', 2711 2711 '', 2712 NoDismiss)2712 nodismiss) 2713 2713 DefMenuItem( '', -- Set startup dir... 2714 2714 'Set startup ~dir...', … … 2716 2716 'Select startup dir for several EPM objects', 2717 2717 '', 2718 NoDismiss)2718 nodismiss) 2719 2719 DefNextItemEndsSubMenu() 2720 2720 DefMenuItem( '', -- Set associations... … … 2723 2723 'Configure WPS associations for EPM objects', 2724 2724 '', 2725 NoDismiss)2725 nodismiss) 2726 2726 endif -- WpsStarted 2727 2727 DefNextItemStartsSubMenu() … … 2738 2738 '', 2739 2739 '', 2740 NoDismiss)2740 nodismiss) 2741 2741 DefMenuItem( 'workdirprogram', -- By program object 2742 2742 '~By program object', … … 2744 2744 'This is EPM''s default', 2745 2745 '', 2746 NoDismiss)2746 nodismiss) 2747 2747 DefMenuItem( 'workdirprev', -- Use previous work dir 2748 2748 '~Use previous work dir', … … 2750 2750 'Keep work dir across EPM sessions', 2751 2751 '', 2752 NoDismiss)2752 nodismiss) 2753 2753 DefMenuItem( 'workdirfile', -- To dir of selected file 2754 2754 'To dir of ~selected file', … … 2756 2756 'Change to dir of current file', 2757 2757 '', 2758 NoDismiss)2758 nodismiss) 2759 2759 DefMenuSep() -------------------- 2760 2760 … … 2765 2765 'Show/change current work dir now', 2766 2766 '', 2767 NoDismiss)2767 nodismiss) 2768 2768 DefNextItemStartsSubMenu() 2769 2769 DefMenuItem( 'opendlgdir', -- Start Edit/Add file dialog at > … … 2772 2772 '', 2773 2773 '', 2774 NoDismiss)2774 nodismiss) 2775 2775 DefMenuItem( 'opendlgdirprev', -- Previous dir 2776 2776 '~Previous dir', … … 2778 2778 'Start at dir from last Open dialog', 2779 2779 '', 2780 NoDismiss)2780 nodismiss) 2781 2781 DefMenuItem( 'opendlgdirwork', -- Work dir 2782 2782 '~Work dir', … … 2784 2784 'Start at work dir', 2785 2785 '', 2786 NoDismiss)2786 nodismiss) 2787 2787 DefNextItemEndsSubMenu() 2788 2788 DefMenuItem( 'opendlgdirfile', -- Dir of current file … … 2791 2791 'Start at dir of current file', 2792 2792 '', 2793 NoDismiss)2793 nodismiss) 2794 2794 DefNextItemStartsSubMenu() 2795 2795 DefMenuItem( 'saveasdlgdir', -- Start Save as dialog for .Untitled at > … … 2798 2798 '', 2799 2799 '', 2800 NoDismiss)2800 nodismiss) 2801 2801 DefMenuItem( 'saveasdlgdirprev', -- Previous dir 2802 2802 '~Previous dir', … … 2804 2804 'Start at dir from last saved file', 2805 2805 '', 2806 NoDismiss)2806 nodismiss) 2807 2807 DefNextItemEndsSubMenu() 2808 2808 DefMenuItem( 'saveasdlgdirwork', -- Work dir … … 2811 2811 'Start at work dir', 2812 2812 '', 2813 NoDismiss)2813 nodismiss) 2814 2814 DefMenuSep() -------------------- 2815 2815 … … 2825 2825 ; --------------------------------------------------------------------------- 2826 2826 defproc add_prefs_editfiles 2827 universal NoDismiss2827 universal nodismiss 2828 2828 universal WpsStarted 2829 2829 … … 2840 2840 '', 2841 2841 '', 2842 NoDismiss)2842 nodismiss) 2843 2843 DefMenuItem( 'advancedmarking', -- Advanced marking 2844 2844 '~Advanced marking', … … 2846 2846 ADVANCEDMARK_MENUP__MSG, 2847 2847 HP_OPTIONS_CUATOGGLE, 2848 NoDismiss)2848 nodismiss) 2849 2849 DefMenuItem( 'defaultpaste', -- Default paste: [char] 2850 2850 'Default ~paste: []', … … 2852 2852 'Style for Sh+Ins/Alt+MB1, add Ctrl/Sh for alt. paste', 2853 2853 '', 2854 NoDismiss)2854 nodismiss) 2855 2855 DefMenuItem( 'shiftmarkextends', -- Sh-mark always extends mark 2856 2856 '~Sh-mark always extends mark', … … 2858 2858 'Extend mark always or just at boundaries', 2859 2859 '', 2860 NoDismiss)2860 nodismiss) 2861 2861 DefMenuItem( 'lineinsert', -- Insert marked lines: [below] 2862 2862 'Insert marked ~lines: []', … … 2864 2864 'Line mark: insert below (standard EPM) or above current line', 2865 2865 '', 2866 NoDismiss)2866 nodismiss) 2867 2867 DefMenuItem( 'defaultmousemark', -- Default mouse mark: [char] 2868 2868 'Default ~mouse mark: []', … … 2870 2870 'Mark definition for MB1, use Ctrl+MB1 or MB3 for alt. mark', 2871 2871 '', 2872 NoDismiss)2872 nodismiss) 2873 2873 DefMenuItem( 'dragalwaysmarks', -- Drag always marks 2874 2874 '~Drag always marks', … … 2876 2876 'Every drag starts a new mark instead of a msg.', 2877 2877 '', 2878 NoDismiss)2878 nodismiss) 2879 2879 DefNextItemEndsSubMenu() 2880 2880 DefMenuItem( 'unmarkaftermove', -- Unmark after move … … 2883 2883 'Unmark after doing a move mark', 2884 2884 '', 2885 NoDismiss)2885 nodismiss) 2886 2886 2887 2887 DefNextItemStartsSubMenu() … … 2912 2912 'Switch stream/line mode and define newline and enter', 2913 2913 '', 2914 NoDismiss)2914 nodismiss) 2915 2915 DefMenuItem( 'defaultstreammode', -- Stream mode 2916 2916 '~Stream mode', … … 2918 2918 'Toggle between stream and line editing mode', 2919 2919 HP_OPTIONS_STREAM, 2920 NoDismiss)2920 nodismiss) 2921 2921 DefMenuItem( 'newlineenter', -- Configure [] keys: 2922 2922 'Configure [] keys:', … … 2924 2924 '', 2925 2925 '', 2926 NoDismiss)2926 nodismiss) 2927 2927 DefMenuSep() -------------------- 2928 2928 … … 2938 2938 'Hold 'CTRL_KEY__MSG' to configure cmd', 2939 2939 '', 2940 NoDismiss)2940 nodismiss) 2941 2941 DefMenuItem( 'newlinecol', -- Cursor column: [] 2942 2942 'Cursor column: []', … … 2944 2944 '', 2945 2945 '', 2946 NoDismiss)2946 nodismiss) 2947 2947 DefMenuSep() -------------------- 2948 2948 … … 2958 2958 'Hold 'CTRL_KEY__MSG' to configure cmd', 2959 2959 '', 2960 NoDismiss)2960 nodismiss) 2961 2961 DefMenuItem( 's_newlinecol', -- Cursor column: [] 2962 2962 'Cursor column: []', … … 2964 2964 '', 2965 2965 '', 2966 NoDismiss)2966 nodismiss) 2967 2967 DefMenuSep() -------------------- 2968 2968 … … 2978 2978 'Hold 'CTRL_KEY__MSG' to configure cmd', 2979 2979 '', 2980 NoDismiss)2980 nodismiss) 2981 2981 DefMenuItem( 'a_newlinecol', -- Cursor column: [] 2982 2982 'Cursor column: []', … … 2984 2984 '', 2985 2985 '', 2986 NoDismiss)2986 nodismiss) 2987 2987 DefMenuSep() -------------------- 2988 2988 … … 2998 2998 'Hold 'CTRL_KEY__MSG' to configure cmd', 2999 2999 '', 3000 NoDismiss)3000 nodismiss) 3001 3001 DefMenuItem( 'c_newlinecol', -- Cursor column: [] 3002 3002 'Cursor column: []', … … 3004 3004 '', 3005 3005 '', 3006 NoDismiss)3006 nodismiss) 3007 3007 DefMenuSep() -------------------- 3008 3008 … … 3013 3013 '', 3014 3014 '', 3015 NoDismiss)3015 nodismiss) 3016 3016 3017 3017 DefNextItemStartsSubMenu() … … 3021 3021 'Define behavior of special keys', 3022 3022 '', 3023 NoDismiss)3023 nodismiss) 3024 3024 DefMenuItem( '', -- Tab and Backtab 3025 3025 'Tab and Backtab', … … 3033 3033 'Change behavior of Tab', 3034 3034 '', 3035 NoDismiss)3035 nodismiss) 3036 3036 DefMenuItem( 'c_tab', -- Ctrl+Tab [] 3037 3037 CTRL_KEY__MSG'+Tab []', … … 3039 3039 'Change behavior of 'CTRL_KEY__MSG'+Tab', 3040 3040 '', 3041 NoDismiss)3041 nodismiss) 3042 3042 DefMenuItem( 'c_a_tab', -- Ctrl+Alt+Tab [] 3043 3043 CTRL_KEY__MSG'+'ALT_KEY__MSG'+Tab []', … … 3045 3045 'Change behavior of 'CTRL_KEY__MSG'+'ALT_KEY__MSG'+Tab', 3046 3046 '', 3047 NoDismiss)3047 nodismiss) 3048 3048 DefMenuItem( 's_backtab', -- Backtab [] 3049 3049 'Backtab []', … … 3051 3051 'Change behavior of Backtab', 3052 3052 '', 3053 NoDismiss)3053 nodismiss) 3054 3054 DefMenuItem( 'c_s_backtab', -- Ctrl+Backtab [] 3055 3055 CTRL_KEY__MSG'+Backtab []', … … 3057 3057 'Change behavior of 'CTRL_KEY__MSG'+Backtab', 3058 3058 '', 3059 NoDismiss)3059 nodismiss) 3060 3060 DefMenuItem( 'defaultmatchtab', -- Matchtab: tab stops at word boundaries of lines above 3061 3061 '~Matchtab: tab stops at word boundaries of lines above', … … 3063 3063 'Tab and Backtab use word boundaries of prev. lines', 3064 3064 '', 3065 NoDismiss)3065 nodismiss) 3066 3066 DefMenuItem( 'showtabs', -- Show tab chars 3067 3067 'Sho~w tab chars', … … 3069 3069 'Show a circle for every tab char', 3070 3070 '', 3071 NoDismiss)3071 nodismiss) 3072 3072 DefMenuItem( 'defaulttabs', -- Default tabs... 3073 3073 'Default ~tabs []...', … … 3075 3075 'Change default tabs (see also MODECFG.E)', 3076 3076 '', 3077 NoDismiss)3077 nodismiss) 3078 3078 DefMenuSep() -------------------- 3079 3079 … … 3089 3089 'Cursor can be positioned after line end', 3090 3090 '', 3091 NoDismiss)3091 nodismiss) 3092 3092 DefMenuItem( 'keepcursoronscreen', -- Keep cursor on screen 3093 3093 '~Keep cursor on screen', … … 3095 3095 'Keep cursor visible on scroll bar scrolling', 3096 3096 '', 3097 NoDismiss)3097 nodismiss) 3098 3098 DefMenuItem( 'scrollafterlocate', -- Scroll after locate []... 3099 3099 'S~croll after locate []...', … … 3101 3101 'View found string at a special v-position', 3102 3102 '', 3103 NoDismiss)3103 nodismiss) 3104 3104 DefMenuItem( 'highlightcursor', -- Highlight cursor 3105 3105 'H~ighlight cursor', … … 3107 3107 'Highlight cursor after several commands to make it better visible', 3108 3108 '', 3109 NoDismiss)3109 nodismiss) 3110 3110 DefMenuItem( 'defaultmargins', -- Default margins... 3111 3111 'Default ~margins []...', … … 3113 3113 'Change default margins (see also MODECFG.E)', 3114 3114 '', 3115 NoDismiss)3115 nodismiss) 3116 3116 DefMenuItem( 'joinafterwrap', -- Join after wrap on typing 3117 3117 '~Join after wrap on typing', … … 3119 3119 'Join next line with wrapped part', 3120 3120 '', 3121 NoDismiss)3121 nodismiss) 3122 3122 DefMenuSep() -------------------- 3123 3123 … … 3133 3133 '', 3134 3134 '', 3135 NoDismiss)3135 nodismiss) 3136 3136 DefMenuItem( 'endtoggles', -- End key toggles end text and column after text 3137 3137 '~End key toggles end text and column after text', … … 3139 3139 '', 3140 3140 '', 3141 NoDismiss)3141 nodismiss) 3142 3142 DefMenuSep() -------------------- 3143 3143 … … 3153 3153 'Select e.g. "space newline" or "c_space c_newline"', 3154 3154 '', 3155 NoDismiss)3155 nodismiss) 3156 3156 DefMenuSep() -------------------- 3157 3157 … … 3167 3167 'Enable for advanced mark operations (Ctrl+Alt+Shift+letter works for menu)', 3168 3168 HP_OPTIONS_CUAACCEL, 3169 NoDismiss)3169 nodismiss) 3170 3170 DefMenuItem( 'blockleftaltkey', -- Block left Alt key from jumping to menu bar 3171 3171 'Block ~left Alt key from jumping to menu bar', … … 3173 3173 'When enabled, use F10', 3174 3174 '', 3175 NoDismiss)3175 nodismiss) 3176 3176 DefNextItemEndsSubMenu() 3177 3177 DefMenuItem( 'blockrightaltkey', -- Block right Alt key from jumping to menu bar … … 3180 3180 'When enabled, use F10', 3181 3181 '', 3182 NoDismiss)3182 nodismiss) 3183 3183 3184 3184 DefNextItemStartsSubMenu() … … 3194 3194 'Switch keyword highlighting on (Ctrl to reload keyword file)', 3195 3195 '', 3196 NoDismiss)3196 nodismiss) 3197 3197 DefMenuSep() -------------------- 3198 3198 … … 3202 3202 'Let '' and '' do syntax expansion', -- Hint is updated on menu init 3203 3203 '', 3204 NoDismiss)3204 nodismiss) 3205 3205 DefMenuSep() -------------------- 3206 3206 … … 3210 3210 'Highlight brackets on any typing', 3211 3211 '', 3212 NoDismiss)3212 nodismiss) 3213 3213 DefMenuItem( 'matchfindopening', -- MatchFindOpening: match-find opening bracket on typing closing one 3214 3214 'MatchFind~Opening: match-find opening bracket on typing closing one', … … 3216 3216 'Highlight opening bracket on typing the closing one', 3217 3217 '', 3218 NoDismiss)3218 nodismiss) 3219 3219 DefMenuItem( 'matchinsertpair', -- MatchInsertPair: insert bracket pair on typing opening one 3220 3220 'MatchInsert~Pair: insert bracket pair on typing opening one', … … 3222 3222 'Add closing bracket when typing opening one', 3223 3223 '', 3224 NoDismiss)3224 nodismiss) 3225 3225 DefMenuSep() -------------------- 3226 3226 … … 3251 3251 '', 3252 3252 '', 3253 NoDismiss)3253 nodismiss) 3254 3254 DefMenuItem( 'autorefreshmodefiles', -- Auto-check mode files 3255 3255 '~Auto-check mode files', … … 3257 3257 'Check for altered .hil/.ini files on file loading', 3258 3258 '', 3259 NoDismiss)3259 nodismiss) 3260 3260 DefMenuItem( 'checkmodefilesnow', -- Check mode files now for mode CURMODE 3261 3261 'Check mode files ~now for mode #CURMODE#', … … 3263 3263 'Check for altered .hil/.ini files for current mode now', 3264 3264 '', 3265 NoDismiss)3265 nodismiss) 3266 3266 DefMenuSep() -------------------- 3267 3267 … … 3271 3271 'Open dir(s) with .hil/.ini files', 3272 3272 '', 3273 NoDismiss)3273 nodismiss) 3274 3274 DefMenuSep() -------------------- 3275 3275 … … 3280 3280 '', 3281 3281 '', 3282 NoDismiss)3282 nodismiss) 3283 3283 3284 3284 DefNextItemStartsSubMenu() … … 3288 3288 'View/change default search options', 3289 3289 '', 3290 NoDismiss)3290 nodismiss) 3291 3291 DefMenuItem( 'searchoptions_+', -- 3292 3292 '~+'\9'down: top to bottom*', … … 3294 3294 '', 3295 3295 '', 3296 NoDismiss)3296 nodismiss) 3297 3297 DefMenuItem( 'searchoptions_-', -- 3298 3298 '~-'\9'up: bottom to top', … … 3300 3300 '', 3301 3301 '', 3302 NoDismiss)3302 nodismiss) 3303 3303 DefMenuSep() -------------------- 3304 3304 … … 3308 3308 '', 3309 3309 '', 3310 NoDismiss)3310 nodismiss) 3311 3311 DefMenuItem( 'searchoptions_r', -- 3312 3312 '~r'\9'reverse: right to left', … … 3314 3314 '', 3315 3315 '', 3316 NoDismiss)3316 nodismiss) 3317 3317 DefMenuSep() -------------------- 3318 3318 … … 3322 3322 '', 3323 3323 '', 3324 NoDismiss)3324 nodismiss) 3325 3325 DefMenuItem( 'searchoptions_t', -- 3326 3326 '~t'\9'start at top of file', … … 3328 3328 '', 3329 3329 '', 3330 NoDismiss)3330 nodismiss) 3331 3331 DefMenuItem( 'searchoptions_b', -- 3332 3332 '~b'\9'start at bottom of file', … … 3334 3334 '', 3335 3335 '', 3336 NoDismiss)3336 nodismiss) 3337 3337 DefMenuSep() -------------------- 3338 3338 … … 3342 3342 '', 3343 3343 '', 3344 NoDismiss)3344 nodismiss) 3345 3345 DefMenuItem( 'searchoptions_m', -- 3346 3346 '~m'\9'mark: in mark only', … … 3348 3348 '', 3349 3349 '', 3350 NoDismiss)3350 nodismiss) 3351 3351 DefMenuSep() -------------------- 3352 3352 … … 3356 3356 '', 3357 3357 '', 3358 NoDismiss)3358 nodismiss) 3359 3359 DefMenuItem( 'searchoptions_c', -- 3360 3360 '~c'\9'ignore case*', … … 3362 3362 '', 3363 3363 '', 3364 NoDismiss)3364 nodismiss) 3365 3365 DefMenuSep() -------------------- 3366 3366 … … 3370 3370 '', 3371 3371 '', 3372 NoDismiss)3372 nodismiss) 3373 3373 DefMenuItem( 'searchoptions_^', -- options ~ and ^ are equivalent 3374 3374 '~^'\9'excluding search', … … 3376 3376 '', 3377 3377 '', 3378 NoDismiss)3378 nodismiss) 3379 3379 -------------------------- 3380 3380 DefMenuItem( 'searchoptions_h', -- … … 3383 3383 '', 3384 3384 '', 3385 'BREAKSEPARATOR' NoDismiss)3385 'BREAKSEPARATOR' nodismiss) 3386 3386 DefMenuItem( 'searchoptions_g', -- 3387 3387 '~g'\9'grep', … … 3389 3389 '', 3390 3390 '', 3391 NoDismiss)3391 nodismiss) 3392 3392 DefMenuItem( 'searchoptions_x', -- 3393 3393 '~x'\9'egrep', … … 3395 3395 '', 3396 3396 '', 3397 NoDismiss)3397 nodismiss) 3398 3398 DefMenuItem( 'searchoptions_w', -- 3399 3399 '~w'\9'words', … … 3401 3401 '', 3402 3402 '', 3403 NoDismiss)3403 nodismiss) 3404 3404 DefMenuSep() -------------------- 3405 3405 … … 3409 3409 '', 3410 3410 '', 3411 NoDismiss)3411 nodismiss) 3412 3412 DefMenuItem( 'searchoptions_k', -- 3413 3413 '~k'\9'change: keep case of search', … … 3415 3415 '', 3416 3416 '', 3417 NoDismiss)3417 nodismiss) 3418 3418 DefMenuSep() -------------------- 3419 3419 … … 3423 3423 '', 3424 3424 '', 3425 NoDismiss)3425 nodismiss) 3426 3426 DefMenuItem( 'searchoptions_*', -- 3427 3427 '~*'\9'change all', … … 3429 3429 '', 3430 3430 '', 3431 NoDismiss)3431 nodismiss) 3432 3432 DefMenuSep() -------------------- 3433 3433 … … 3437 3437 '', 3438 3438 '', 3439 NoDismiss)3439 nodismiss) 3440 3440 DefMenuItem( 'searchoptions_n', -- 3441 3441 '~n'\9'change: msg how many changes', … … 3443 3443 '', 3444 3444 '', 3445 NoDismiss)3445 nodismiss) 3446 3446 DefMenuSep() -------------------- 3447 3447 … … 3451 3451 '', 3452 3452 '', 3453 NoDismiss)3453 nodismiss) 3454 3454 DefNextItemEndsSubMenu() 3455 3455 DefMenuItem( '', -- … … 3458 3458 '', 3459 3459 '', 3460 NoDismiss)3460 nodismiss) 3461 3461 3462 3462 DefMenuSep() -------------------- … … 3464 3464 ; --------------------------------------------------------------------------- 3465 3465 defproc add_prefs_saveandrestore 3466 universal NoDismiss3466 universal nodismiss 3467 3467 universal WpsStarted 3468 3468 … … 3479 3479 'View/change default save options', 3480 3480 '', 3481 NoDismiss)3481 nodismiss) 3482 3482 DefMenuItem( 'saveoptions_ns', -- 3483 3483 '/ns'\9'~don''t strip spaces', … … 3485 3485 '', 3486 3486 '', 3487 NoDismiss)3487 nodismiss) 3488 3488 DefMenuItem( 'saveoptions_s', -- 3489 3489 '/~s'\9'strip trailing spaces*', … … 3491 3491 '', 3492 3492 '', 3493 NoDismiss)3493 nodismiss) 3494 3494 DefMenuSep() -------------------- 3495 3495 … … 3499 3499 '', 3500 3500 '', 3501 NoDismiss)3501 nodismiss) 3502 3502 DefMenuItem( 'saveoptions_t', -- 3503 3503 '/~t'\9'compress spaces to tabs (tabs = 8, buggy!)', … … 3505 3505 '', 3506 3506 '', 3507 NoDismiss)3507 nodismiss) 3508 3508 DefMenuSep() -------------------- 3509 3509 … … 3513 3513 '', 3514 3514 '', 3515 NoDismiss)3515 nodismiss) 3516 3516 DefMenuItem( 'saveoptions_e', -- 3517 3517 '/~e'\9'append a file end char', … … 3519 3519 '', 3520 3520 '', 3521 NoDismiss)3521 nodismiss) 3522 3522 DefMenuSep() -------------------- 3523 3523 … … 3527 3527 '', 3528 3528 '', 3529 NoDismiss)3529 nodismiss) 3530 3530 DefMenuItem( 'saveoptions_o', -- 3531 3531 '/~o'\9'force DOS line end (CRLF)*', … … 3533 3533 '', 3534 3534 '', 3535 NoDismiss)3535 nodismiss) 3536 3536 DefMenuItem( 'saveoptions_l', -- 3537 3537 '/~l'\9'force Unix line end (LF)', … … 3539 3539 '', 3540 3540 '', 3541 NoDismiss)3541 nodismiss) 3542 3542 -- /u is the same as /l /ne 3543 3543 DefMenuSep() -------------------- … … 3548 3548 '', 3549 3549 '', 3550 NoDismiss)3550 nodismiss) 3551 3551 DefNextItemEndsSubMenu() 3552 3552 DefMenuItem( '', -- … … 3555 3555 '', 3556 3556 '', 3557 NoDismiss)3557 nodismiss) 3558 3558 3559 3559 DefNextItemStartsSubMenu() … … 3563 3563 '', 3564 3564 '', 3565 NoDismiss)3565 nodismiss) 3566 3566 DefMenuItem( 'respectreadonly', -- Respect read-only 3567 3567 '~Respect read-only', … … 3569 3569 'Read-only file attribute disables edit mode', 3570 3570 '', 3571 NoDismiss)3571 nodismiss) 3572 3572 DefNextItemEndsSubMenu() 3573 3573 DefMenuItem( 'lockonmodify', -- Lock on modify … … 3576 3576 'Deny write access for other applications', 3577 3577 '', 3578 NoDismiss)3578 nodismiss) 3579 3579 3580 3580 DefNextItemStartsSubMenu() … … 3584 3584 '', 3585 3585 '', 3586 NoDismiss)3586 nodismiss) 3587 3587 DefMenuItem( 'restorecursorpos', -- Restore cursor position 3588 3588 '~Restore cursor position', … … 3590 3590 'Restore of cursor pos. from file''s last save', 3591 3591 '', 3592 NoDismiss)3592 nodismiss) 3593 3593 DefMenuSep() -------------------- 3594 3594 … … 3598 3598 'Enable edit, load and save history', 3599 3599 '', 3600 NoDismiss)3600 nodismiss) 3601 3601 DefMenuSep() -------------------- 3602 3602 … … 3606 3606 'Save of ring on load and quit', 3607 3607 '', 3608 NoDismiss)3608 nodismiss) 3609 3609 DefMenuItem( 'maxfilessavering', -- Max. [] files for save ring... 3610 3610 'Max. [] files for save ring...', … … 3612 3612 'Set limit of files to enable auto-save', 3613 3613 '', 3614 NoDismiss)3614 nodismiss) 3615 3615 DefNextItemEndsSubMenu() 3616 3616 DefMenuItem( 'autoloadlastring', -- Auto-load last ring … … 3619 3619 'Restore of ring if EPM is started without args', 3620 3620 '', 3621 NoDismiss)3621 nodismiss) 3622 3622 DefNextItemStartsSubMenu() 3623 3623 DefMenuItem( 'backup', -- Backup > … … 3632 3632 '', 3633 3633 '', 3634 NoDismiss)3634 nodismiss) 3635 3635 DefMenuItem( 'autosavenumdialog', -- After [] changes... 3636 3636 'After [] ~changes...', … … 3638 3638 '', 3639 3639 '', 3640 NoDismiss)3640 nodismiss) 3641 3641 DefMenuSep() -------------------- 3642 3642 … … 3646 3646 '', 3647 3647 '', 3648 NoDismiss)3648 nodismiss) 3649 3649 DefMenuItem( 'backupnumdialog', -- Keep [] backups... 3650 3650 '~Keep [] backups...', … … 3652 3652 '', 3653 3653 '', 3654 NoDismiss)3654 nodismiss) 3655 3655 DefMenuSep() -------------------- 3656 3656 … … 3660 3660 '', 3661 3661 '', 3662 NoDismiss)3662 nodismiss) 3663 3663 DefNextItemEndsSubMenu() 3664 3664 DefMenuItem( 'backuplistdir', -- List directory … … 3673 3673 ; --------------------------------------------------------------------------- 3674 3674 defproc add_prefs_appearance 3675 universal NoDismiss3675 universal nodismiss 3676 3676 universal WpsStarted 3677 3677 … … 3688 3688 '', 3689 3689 '', 3690 NoDismiss)3690 nodismiss) 3691 3691 DefMenuItem( '', -- Select menu 3692 3692 'Select ~menu...', … … 3694 3694 'Open a listbox and change or refresh the menu', 3695 3695 '', 3696 NoDismiss)3696 nodismiss) 3697 3697 DefNextItemEndsSubMenu() 3698 3698 DefMenuItem( 'nodismiss', -- Nodismiss menus … … 3701 3701 'Keep menu open after selecting menu items', 3702 3702 '', 3703 NoDismiss)3703 nodismiss) 3704 3704 DefNextItemStartsSubMenu() 3705 3705 DefMenuItem( 'infobars', -- Info bars > … … 3708 3708 '', 3709 3709 '', 3710 NoDismiss)3710 nodismiss) 3711 3711 DefMenuItem( 'showlongname', -- Show .LONGNAME 3712 3712 'Show .~LONGNAME', … … 3714 3714 'Show .LONGNAME EA as filename in titlebar', 3715 3715 '', 3716 NoDismiss)3716 nodismiss) 3717 3717 DefMenuItem( 'messageline', -- Message line 3718 3718 MSG_LINE_MENU__MSG, … … 3720 3720 MSG_LINE_MENUP__MSG, 3721 3721 HP_FRAME_MESSAGE, 3722 NoDismiss)3722 nodismiss) 3723 3723 DefMenuItem( 'statusbar', -- Status bar 3724 'Status ~bar',3724 'Status b~ar', 3725 3725 'toggleframe 1', 3726 3726 STATUS_LINE_MENUP__MSG, 3727 3727 HP_FRAME_STATUS, 3728 NoDismiss)3728 nodismiss) 3729 3729 DefMenuItem( 'infoattop', -- Info at top 3730 3730 INFOATTOP_MENU__MSG, … … 3732 3732 INFOATTOP_MENUP__MSG, 3733 3733 HP_FRAME_EXTRAPOS, 3734 NoDismiss)3735 DefMenuItem( ' prompting', -- Prompting3736 PROMPTING_MENU__MSG,3734 nodismiss) 3735 DefMenuItem( 'showmenuhints', -- Show menu hints 3736 'Show menu ~hints', 3737 3737 'toggleprompt', 3738 3738 PROMPTING_MENUP__MSG, 3739 3739 HP_FRAME_PROMPT, 3740 NoDismiss)3740 nodismiss) 3741 3741 DefMenuSep() -------------------- 3742 3742 … … 3746 3746 'Change layout of titletext', 3747 3747 '', 3748 NoDismiss)3748 nodismiss) 3749 3749 DefMenuItem( '', -- Configure status bar... 3750 3750 'Configure status ~bar...', … … 3752 3752 'Change layout of status bar', 3753 3753 '', 3754 NoDismiss)3754 nodismiss) 3755 3755 DefNextItemEndsSubMenu() 3756 3756 DefMenuItem( '', -- Configure separator... … … 3759 3759 'Change layout of separator for title and status bar', 3760 3760 '', 3761 NoDismiss)3761 nodismiss) 3762 3762 DefNextItemStartsSubMenu() 3763 3763 DefMenuItem( 'toolbar', -- Toolbar > … … 3766 3766 '', 3767 3767 '', 3768 NoDismiss)3768 nodismiss) 3769 3769 DefMenuItem( 'toolbarenabled', -- Enabled 3770 3770 '~Enabled', … … 3772 3772 TOGGLETOOLBAR_MENUP__MSG, 3773 3773 HP_TOOLBAR_TOGGLE, 3774 NoDismiss)3774 nodismiss) 3775 3775 DefMenuItem( '', -- Select... 3776 3776 '~Select...', … … 3778 3778 'Open a listbox and load, reload or delete a toolbar', 3779 3779 '', 3780 NoDismiss)3780 nodismiss) 3781 3781 DefMenuSep() -------------------- 3782 3782 … … 3787 3787 'Configure toolbar style', 3788 3788 '', 3789 NoDismiss)3789 nodismiss) 3790 3790 DefMenuItem( 'toolbartext', -- Text 3791 3791 '~Text', … … 3793 3793 'Show button text', 3794 3794 '', 3795 NoDismiss)3795 nodismiss) 3796 3796 DefMenuSep() -------------------- 3797 3797 … … 3801 3801 'Adjust button sizes to the .bmp sizes', 3802 3802 '', 3803 NoDismiss)3803 nodismiss) 3804 3804 DefMenuItem( 'toolbarsize', -- Size: [26x26]... 3805 3805 '~Size: [x]...', … … 3807 3807 'Default = 26x26, add 4x4 to the .bmp size', 3808 3808 '', 3809 NoDismiss)3809 nodismiss) 3810 3810 DefNextItemEndsSubMenu() 3811 3811 DefMenuItem( 'toolbarscaling', -- Scaling: [and] … … 3814 3814 'In most cases "and" looks best', 3815 3815 '', 3816 NoDismiss)3816 nodismiss) 3817 3817 DefMenuSep() -------------------- 3818 3818 … … 3822 3822 '', 3823 3823 '', 3824 NoDismiss)3824 nodismiss) 3825 3825 DefMenuSep() -------------------- 3826 3826 … … 3830 3830 '', 3831 3831 '', 3832 NoDismiss)3832 nodismiss) 3833 3833 DefNextItemEndsSubMenu() 3834 3834 DefMenuItem( '', -- Export... … … 3837 3837 '', 3838 3838 '', 3839 NoDismiss)3839 nodismiss) 3840 3840 DefNextItemStartsSubMenu() 3841 3841 DefMenuItem( 'editwindow', -- Edit window > … … 3844 3844 '', 3845 3845 '', 3846 NoDismiss)3846 nodismiss) 3847 3847 DefNextItemEndsSubMenu() 3848 3848 DefMenuItem( 'clickonlygivesfocus', -- Click only gives focus … … 3851 3851 'When enabled, the cursor is placed at the second click only', 3852 3852 '', 3853 NoDismiss)3853 nodismiss) 3854 3854 DefNextItemStartsSubMenu() 3855 3855 DefMenuItem( 'backgroundbitmap', -- Background bitmap > … … 3858 3858 '', 3859 3859 '', 3860 NoDismiss)3860 nodismiss) 3861 3861 DefMenuItem( 'backgroundbitmapenabled', -- Enabled 3862 3862 '~Enabled', … … 3864 3864 TOGGLEBITMAP_MENUP__MSG, 3865 3865 HP_FRAME_BITMAP, 3866 NoDismiss)3866 nodismiss) 3867 3867 DefNextItemEndsSubMenu() 3868 3868 DefMenuItem( '', -- Select... … … 3871 3871 'Select a background bitmap', 3872 3872 '', 3873 NoDismiss)3873 nodismiss) 3874 3874 DefNextItemStartsSubMenu() 3875 3875 DefMenuItem( '', -- Colors and fonts > … … 3878 3878 '', 3879 3879 '', 3880 NoDismiss)3880 nodismiss) 3881 3881 DefMenuItem( '', -- Change controls colors... 3882 3882 'Change controls ~colors...', … … 3884 3884 'To change a foreground color, hold the Ctrl key', 3885 3885 '', 3886 NoDismiss)3886 nodismiss) 3887 3887 DefMenuItem( '', -- Change controls fonts... 3888 3888 'Change controls ~fonts...', … … 3890 3890 '', 3891 3891 '', 3892 NoDismiss)3892 nodismiss) 3893 3893 DefMenuItem( '', -- Old colors and fonts dialog... 3894 3894 'Old colors and fonts ~dialog...', … … 3896 3896 'Use either the old configuration dialog or drag''n''drop', 3897 3897 '', 3898 NoDismiss)3898 nodismiss) 3899 3899 DefMenuSep() -------------------- 3900 3900 … … 3905 3905 'Modify EPM''s 16-color palette (e.g. used for highlighting)', 3906 3906 '', 3907 NoDismiss)3907 nodismiss) 3908 3908 3909 3909 ; --------------------------------------------------------------------------- … … 5364 5364 universal show_longnames 5365 5365 universal menu_prompt 5366 SetMenuAttribute( GetAVar('mid_showlongname'), MIA_CHECKED, not show_longnames)5367 SetMenuAttribute( GetAVar('mid_messageline'), MIA_CHECKED, not queryframecontrol(2))5368 SetMenuAttribute( GetAVar('mid_statusbar'), MIA_CHECKED, not queryframecontrol(1))5369 SetMenuAttribute( GetAVar('mid_infoattop'), MIA_CHECKED, not queryframecontrol(32))5370 SetMenuAttribute( GetAVar('mid_ prompting'),MIA_CHECKED, not menu_prompt)5366 SetMenuAttribute( GetAVar('mid_showlongname'), MIA_CHECKED, not show_longnames) 5367 SetMenuAttribute( GetAVar('mid_messageline'), MIA_CHECKED, not queryframecontrol(2)) 5368 SetMenuAttribute( GetAVar('mid_statusbar'), MIA_CHECKED, not queryframecontrol(1)) 5369 SetMenuAttribute( GetAVar('mid_infoattop'), MIA_CHECKED, not queryframecontrol(32)) 5370 SetMenuAttribute( GetAVar('mid_showmenuhints'), MIA_CHECKED, not menu_prompt) 5371 5371 5372 5372 defc menuinit_toolbar … … 5520 5520 parse arg controlid fon 5521 5521 if fon <> '' then 5522 forceon = (fon + 1) *655365522 forceon = (fon + 1) * 65536 5523 5523 else 5524 5524 fon = not queryframecontrol(controlid) -- Query now, since toggling is asynch. 5525 5525 endif 5526 5526 5527 call windowmessage( 0, getpminfo( EPMINFO_EDITFRAME),5527 call windowmessage( 0, getpminfo( EPMINFO_EDITFRAME), 5528 5528 5907, -- EFRAMEM_TOGGLECONTROL 5529 5529 controlid + forceon, … … 5536 5536 if menuloaded then 5537 5537 -- Set MIA_CHECKED attributes for the case MIA_NODISMISS attribute is on 5538 mid = GetAVar('mid_ prompting')5538 mid = GetAVar('mid_showmenuhints') 5539 5539 -- Check if mid exists, because 'initconfig' sets some controls before the menu 5540 5540 if mid > '' then … … 5571 5571 ; Move to MENU.E? 5572 5572 defproc queryframecontrol(controlid) 5573 return windowmessage( 1, getpminfo( EPMINFO_EDITFRAME), -- Send message to edit client5573 return windowmessage( 1, getpminfo( EPMINFO_EDITFRAME), -- Send message to edit client 5574 5574 5907, -- EFRAMEM_TOGGLECONTROL 5575 5575 controlid, … … 5603 5603 if menuloaded then 5604 5604 -- Set MIA_CHECKED attribute for the case MIA_NODISMISS attribute is on 5605 SetMenuAttribute( GetAVar('mid_ prompting'), MIA_CHECKED, not menu_prompt)5605 SetMenuAttribute( GetAVar('mid_showmenuhints'), MIA_CHECKED, not menu_prompt) 5606 5606 old = queryprofile( app_hini, appname, INI_OPTFLAGS) 5607 5607 new = subword( old, 1, 8)' 'menu_prompt' 'subword( old, 10) … … 6261 6261 on = not (nodismiss = 32) 6262 6262 WriteConfigKey( KeyPath, on) 6263 nodismiss = on *326263 nodismiss = on * 32 6264 6264 -- Set MIA_CHECKED attribute for the case MIA_NODISMISS attribute is on 6265 6265 SetMenuAttribute( GetAVar('mid_nodismiss'), MIA_CHECKED, not on)
Note:
See TracChangeset
for help on using the changeset viewer.
