Changeset 3612


Ignore:
Timestamp:
Jun 13, 2019, 11:23:19 AM (6 years ago)
Author:
Andreas Schnellbacher
Message:
  • Renamed 'Configuration presets' submenu to 'Basic configuration'. It contains 'Presets' and 'Main items'.
  • Added 8 menu items to view and control main settings below 'Basic Configuration' easily. That also gives visible feedback for clicking on the presets above.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified trunk/src/netlabs/macros/newmenu.e

    r3611 r3612  
    24632463
    24642464   DefNextItemStartsSubMenu()
    2465    DefMenuItem( '',                                                           -- Configuration presets  >
    2466                 'Con~figuration presets',
     2465   DefMenuItem( 'basicconfig',                                                -- Basic configuration  >
     2466                'Basic con~figuration',
    24672467                'Set basic configuration',
    24682468                '',
    24692469                '',
    24702470                NoDismiss)
     2471   DefMenuItem( '',                                                                 -- Presets
     2472                'Presets',
     2473                '',
     2474                '',
     2475                '',
     2476                'STATIC')
    24712477   DefMenuItem( '',                                                                 -- User, CUA
    24722478                '~User, CUA',
    … …  
    24812487                '',
    24822488                NoDismiss)
    2483    DefNextItemEndsSubMenu()
    24842489   DefMenuItem( '',                                                                 -- Programmer, standard EPM
    24852490                'Programmer, standard ~EPM',
    24862491                'set_ConfigPreset programmer-epm',
    24872492                'Reset to standard EPM settings with line mode',
     2493                '',
     2494                NoDismiss)
     2495   DefMenuSep()                                                                     --------------------
     2496
     2497   DefMenuItem( '',                                                                 -- Main items
     2498                'Main items',
     2499                '',
     2500                '',
     2501                '',
     2502                'STATIC')
     2503   DefMenuItem( 'advancedmarking2',                                                 -- Advanced marking
     2504                '~Advanced marking',
     2505                'toggle_cua_mark',
     2506                ADVANCEDMARK_MENUP__MSG,
     2507                HP_OPTIONS_CUATOGGLE,
     2508                NoDismiss)
     2509   DefMenuItem( 'cuakeyset',                                                        -- CUA keyset
     2510                '~CUA keyset',
     2511                'toggle_AddKeyDefs cuakeys',
     2512                'Toggle between CUA keys and standard EPM keys',
     2513                '',
     2514                NoDismiss)
     2515   DefMenuItem( 'defaultstreammode2',                                               -- Stream mode
     2516                '~Stream mode',
     2517                'toggle_default_stream',
     2518                'Toggle between stream and line editing mode',
     2519                HP_OPTIONS_STREAM,
     2520                NoDismiss)
     2521   DefMenuItem( 'cursoreverywhere2',                                                -- Allow cursor everywhere
     2522                'Allow cu~rsor everywhere',
     2523                'toggle_cursor_everywhere',
     2524                'Cursor can be positioned after line end',
     2525                '',
     2526                NoDismiss)
     2527   DefMenuItem( 'homeendtoggle',                                                    -- Home and End keys toggle
     2528                '~Home and End keys toggle',
     2529                'toggle_HomeEndToggle',
     2530                'Toggle between text and line boundaries',
     2531                '',
     2532                NoDismiss)
     2533   DefMenuItem( 'blockaltkeys',                                                     -- Block Alt keys from jumping to menu bar
     2534                '~Block Alt keys from jumping to menu bar',
     2535                'toggle_BlockAlt',
     2536                'Enable for advanced mark operations (Ctrl+Alt+Shift+letter works for menu)',
     2537                HP_OPTIONS_CUAACCEL,
     2538                NoDismiss)
     2539   DefMenuItem( 'defaultsyntaxexpansion2',                                          -- Syntax expansion
     2540                '~Syntax expansion',
     2541                'toggle_default_expand',
     2542                'Let '' and '' do syntax expansion',  -- Hint is updated on menu init
     2543                '',
     2544                NoDismiss)
     2545   DefNextItemEndsSubMenu()
     2546   DefMenuItem( 'matchbrackets',                                                    -- Match brackets
     2547                '~Match brackets',
     2548                'toggle_MatchBrackets',
     2549                'Highlight brackets and insert bracket pairs on typing',
    24882550                '',
    24892551                NoDismiss)
    … …  
    44174479   new = default_search_options
    44184480   SetMenuVarText( 'searchoptions', new)
     4481
     4482defc menuinit_basicconfig
     4483   universal cua_marking_switch
     4484   universal default_stream_mode
     4485   universal cua_menu_accel
     4486
     4487   SetMenuAttribute( GetAVar( 'mid_advancedmarking2'),   MIA_CHECKED, cua_marking_switch)
     4488
     4489   on = (lowcase( GetAddKeyDefs()) = 'cua')
     4490   SetMenuAttribute( GetAVar('mid_cuakeyset'), MIA_CHECKED, not on)
     4491
     4492   SetMenuAttribute( GetAVar( 'mid_defaultstreammode2'), MIA_CHECKED, not default_stream_mode)
     4493
     4494   KeyPath = '\NEPMD\User\CursorPos\CursorEverywhere'
     4495   on = (QueryConfigKey( KeyPath) <> 0)
     4496   SetMenuAttribute( GetAVar('mid_cursoreverywhere2'),   MIA_CHECKED, not on)
     4497
     4498   KeyPath1 = '\NEPMD\User\SpecialKeys\HomeToggles'
     4499   on1 = QueryConfigKey( KeyPath1)
     4500   KeyPath2 = '\NEPMD\User\SpecialKeys\EndToggles'
     4501   on2 = QueryConfigKey( KeyPath2)
     4502   on = (on1 = 1 & on2 = 1)
     4503   SetMenuAttribute( GetAVar('mid_homeendtoggle'), MIA_CHECKED, not on)
     4504
     4505   on1 = not cua_menu_accel
     4506   KeyPath2 = '\NEPMD\User\SpecialKeys\Alt\BlockLeftAlt'
     4507   on2 = QueryConfigKey( KeyPath2)
     4508   KeyPath3 = '\NEPMD\User\SpecialKeys\Alt\BlockRightAlt'
     4509   on3 = QueryConfigKey( KeyPath3)
     4510   on = (on1 = 1 & on2 = 1 & on3 = 1)
     4511   SetMenuAttribute( GetAVar('mid_blockaltkeys'), MIA_CHECKED, not on)
     4512
     4513   Hint = 'Let 'word( GetExpandKeys(), 1)' and 'word( GetExpandKeys(), 2)' do syntax expansion'
     4514   mid = GetAVar( 'mid_defaultsyntaxexpansion2')
     4515   call SetAVar( 'midhint_'mid, Hint)
     4516   KeyPath = '\NEPMD\User\SyntaxExpansion'
     4517   on = QueryConfigKey( KeyPath)
     4518   SetMenuAttribute( GetAVar('mid_defaultsyntaxexpansion2'), MIA_CHECKED, not on)
     4519
     4520   KeyPath1 = '\NEPMD\User\SpecialKeys\MatchFindOnMove'
     4521   on1 = QueryConfigKey( KeyPath1)
     4522   KeyPath2 = '\NEPMD\User\SpecialKeys\MatchFindOpening'
     4523   on2 = QueryConfigKey( KeyPath2)
     4524   KeyPath3 = '\NEPMD\User\SpecialKeys\MatchInsertPair'
     4525   on3 = QueryConfigKey( KeyPath3)
     4526   on = (on1 = 1 & on2 = 1 & on3 = 1)
     4527   SetMenuAttribute( GetAVar('mid_matchbrackets'), MIA_CHECKED, not on)
     4528
     4529defc toggle_AddKeyDefs
     4530   on = (lowcase( GetAddKeyDefs()) = 'cua')
     4531   on = not on
     4532   if on then
     4533      'SetAddKeyDefs cua'
     4534   else
     4535      'SetAddKeyDefs'
     4536   endif
     4537   SetMenuAttribute( GetAVar('mid_cuakeyset'), MIA_CHECKED, not on)
     4538
     4539defc toggle_HomeEndToggle
     4540   KeyPath1 = '\NEPMD\User\SpecialKeys\HomeToggles'
     4541   on1 = QueryConfigKey( KeyPath1)
     4542   KeyPath2 = '\NEPMD\User\SpecialKeys\EndToggles'
     4543   on2 = QueryConfigKey( KeyPath2)
     4544   on = (on1 = 1 & on2 = 1)
     4545   on = not on
     4546   WriteConfigKey( KeyPath1, on)
     4547   WriteConfigKey( KeyPath2, on)
     4548   SetMenuAttribute( GetAVar('mid_homeendtoggle'), MIA_CHECKED, not on)
     4549
     4550defc toggle_BlockAlt
     4551   universal cua_menu_accel
     4552   on1 = not cua_menu_accel
     4553   KeyPath2 = '\NEPMD\User\SpecialKeys\Alt\BlockLeftAlt'
     4554   on2 = QueryConfigKey( KeyPath2)
     4555   KeyPath3 = '\NEPMD\User\SpecialKeys\Alt\BlockRightAlt'
     4556   on3 = QueryConfigKey( KeyPath3)
     4557   on = (on1 = 1 & on2 = 1 & on3 = 1)
     4558   on = not on
     4559   'toggle_Accel'
     4560   WriteConfigKey( KeyPath2, on)
     4561   WriteConfigKey( KeyPath3, on)
     4562   SetMenuAttribute( GetAVar('mid_blockaltkeys'), MIA_CHECKED, not on)
     4563
     4564defc toggle_MatchBrackets
     4565   KeyPath1 = '\NEPMD\User\SpecialKeys\MatchFindOnMove'
     4566   on1 = QueryConfigKey( KeyPath1)
     4567   KeyPath2 = '\NEPMD\User\SpecialKeys\MatchFindOpening'
     4568   on2 = QueryConfigKey( KeyPath2)
     4569   KeyPath3 = '\NEPMD\User\SpecialKeys\MatchInsertPair'
     4570   on3 = QueryConfigKey( KeyPath3)
     4571   on = (on1 = 1 & on2 = 1 & on3 = 1)
     4572   on = not on
     4573   WriteConfigKey( KeyPath1, on)
     4574   WriteConfigKey( KeyPath2, on)
     4575   WriteConfigKey( KeyPath3, on)
     4576   SetMenuAttribute( GetAVar('mid_matchbrackets'), MIA_CHECKED, not on)
    44194577
    44204578defc menuinit_editoptions
    … …  
    57485906   if menuloaded then  -- check not required
    57495907      -- Set MIA_CHECKED attribute for the case MIA_NODISMISS attribute is on
    5750       SetMenuAttribute( GetAVar('mid_defaultsyntaxexpansion'), MIA_CHECKED, not on)
    5751       SetMenuAttribute( GetAVar('mid_selectcodingstyle'),      MIA_DISABLED, on)
     5908      SetMenuAttribute( GetAVar('mid_defaultsyntaxexpansion'),  MIA_CHECKED, not on)
     5909      SetMenuAttribute( GetAVar('mid_defaultsyntaxexpansion2'), MIA_CHECKED, not on)
     5910      SetMenuAttribute( GetAVar('mid_selectcodingstyle'),       MIA_DISABLED, on)
    57525911   endif
    57535912
    … …  
    57825941      -- Set menu attributes and text for the case MIA_NODISMISS attribute is on
    57835942      'menuinit_markingsettings'
     5943      SetMenuAttribute( GetAVar( 'mid_advancedmarking2'), MIA_CHECKED, cua_marking_switch)
    57845944   endif
    57855945
    … …  
    57965956   WriteConfigKey( KeyPath, on)
    57975957   cursoreverywhere = on
     5958   if menuloaded then
     5959      SetMenuAttribute( GetAVar('mid_cursoreverywhere2'),   MIA_CHECKED, not on)
     5960   endif
    57985961
    57995962   'ReloadKeyset'
    … …  
    58796042   WriteConfigKey( KeyPath, on)
    58806043   -- Set MIA_CHECKED attribute for the case MIA_NODISMISS attribute is on
    5881    SetMenuAttribute( GetAVar('mid_cursoreverywhere'), MIA_CHECKED, not on)
     6044   SetMenuAttribute( GetAVar('mid_cursoreverywhere'),  MIA_CHECKED, not on)
     6045   SetMenuAttribute( GetAVar('mid_cursoreverywhere2'), MIA_CHECKED, not on)
    58826046   cursoreverywhere = on
    58836047
    … …  
    61276291   if menuloaded then
    61286292      -- Set MIA_CHECKED attribute for the case MIA_NODISMISS attribute is on
    6129       SetMenuAttribute( GetAVar('mid_defaultstreammode'), MIA_CHECKED, not default_stream_mode)
     6293      SetMenuAttribute( GetAVar('mid_defaultstreammode'),  MIA_CHECKED, not default_stream_mode)
     6294      SetMenuAttribute( GetAVar('mid_defaultstreammode2'), MIA_CHECKED, not default_stream_mode)
    61306295      old = queryprofile( app_hini, appname, INI_OPTFLAGS)
    61316296      new = subword( old, 1, 9)' 'default_stream_mode' 'subword( old, 11)
    … …  
    61786343
    61796344; ---------------------------------------------------------------------------
    6180 ; unused
     6345; used, but empty definition
    61816346defc stack_toggle
    61826347/*
    … …  
    62006365   universal activemenu, defaultmenu
    62016366   universal menuloaded
    6202    --universal app_hini
    6203    --universal appname
    62046367
    62056368   cua_menu_accel = not cua_menu_accel
    6206    'ReloadKeyset'  -- Diadvantage: this closes the menu
    6207 /*
    6208    deletemenu defaultmenu, GetAVar('mid_edit'), 0, 1           -- Delete the edit menu
    6209    call add_edit_menu(defaultmenu)
    6210    if activemenu = defaultmenu  then
    6211 compile if 0    -- Don't need to actually show the menu; can just update the affected text.
    6212       showmenu activemenu
    6213 compile else
    6214       call update_mark_menu_text()  -- handled now by menuinit
    6215 compile endif
    6216    endif
    6217 */
     6369   'ReloadKeyset'
    62186370   if menuloaded then
    62196371      -- Set MIA_CHECKED attribute for the case MIA_NODISMISS attribute is on
    … …  
    65936745   universal cua_marking_switch
    65946746   universal cursoreverywhere
     6747   universal vepm_pointer
     6748
     6749   mouse_setpointer WAIT_POINTER
    65956750
    65966751   args = lowcase( arg(1))
    … …  
    67396894   else
    67406895      sayerror 'Unknown option "'arg(1)'" specified for set_ConfigPreset.'
    6741    endif
     6896      mouse_setpointer vepm_pointer
     6897      return
     6898   endif
     6899   'menuinit_basicconfig'
     6900   mouse_setpointer vepm_pointer
    67426901
    67436902; ---------------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.