Ticket #169: libtool_fix_1_of_1_rev_60274b66bfb4__169_When_changing_a_shortcut_key_for_all_shown_buttons_by_default___the_buttons___menu_it_should_show_the_current_shortcut.patch

File libtool_fix_1_of_1_rev_60274b66bfb4__169_When_changing_a_shortcut_key_for_all_shown_buttons_by_default___the_buttons___menu_it_should_show_the_current_shortcut.patch, 5.0 KB (added by patrik.svestka@…, 7 years ago)

All shown buttons can be now mapped at the debugger window

  • DebugView.st 

    # HG changeset patch
# User Patrik Svestka <patrik.svestka@gmail.com>
# Date 1501572440 -7200
#      Tue Aug 01 09:27:20 2017 +0200
# Branch jv
# Node ID 60274b66bfb4592a11e641e621adbbfd62f39a89
# Parent  f206a20ab2675af1c35980581a9dad23620ecaec
#169 When changing a shortcut key for all shown buttons by default - the buttons & menu it should show the current shortcut

diff -r f206a20ab267 -r 60274b66bfb4 DebugView.st
    a b  
    11421142            enabled: canReturn
    11431143            label: 'Return'
    11441144            itemValue: doReturn
     1145            shortcutKey: DebuggerReturn
    11451146          )
    11461147         (MenuItem
    11471148            enabled: canRestart
    … …  
    14501451         (MenuItem
    14511452            label: 'Abort'
    14521453            itemValue: doAbort
     1454            shortcutKey: Abort
    14531455          )
    14541456         (MenuItem
    14551457            enabled: abortAllIsHandled
    … …  
    14731475         (MenuItem
    14741476            label: 'Debug_Terminate'
    14751477            itemValue: doTerminate
     1478            shortcutKey: DebugTerminate
    14761479          )
    14771480         (MenuItem
    14781481            label: 'Hard Terminate (Danger)'
    … …  
    33213324    LastOrigin notNil ifTrue:[
    33223325        self origin:LastOrigin.
    33233326    ].
    3324 
    33253327    "
    33263328     Debugger newDebugger
    33273329    "
    … …  
    33313333
    33323334initializeAbortButtonIn:bpanel
    33333335    abortButton := Button
    3334                 label:(resources string:'Abort')
     3336                label:(resources string:'Abort'), (self shortKeyStringForAction: #Abort)
    33353337                action:[
    33363338                    abortButton turnOffWithoutRedraw.
    33373339                    self doAbort
    … …  
    33423344
    33433345    "Created: / 17.11.2001 / 20:56:47 / cg"
    33443346    "Modified: / 17.11.2001 / 20:57:17 / cg"
     3347    "Modified: / 16-08-2017 / 08:48:50 / Patrik Svestka <patrik.svestka@gmail.com>"
    33453348!
    33463349
    33473350initializeButtons1In:bpanel
    … …  
    36653668
    36663669initializeGotoApplicationActionMethodButtonIn:bpanel
    36673670    gotoApplicationActionMethodButton := Button
    3668                 label:(resources string:'Goto Responsible Application Method')
     3671                label:(resources string:'Goto Responsible Application Method') , (self shortKeyStringForAction: #GotoResponsibleApplicationMethod)
    36693672                action:[
    36703673                    gotoApplicationActionMethodButton turnOffWithoutRedraw.
    36713674                    self doGotoApplicationActionMethod
    … …  
    36743677
    36753678    gotoApplicationActionMethodButton name:'gotoAppMethodButton'.
    36763679    gotoApplicationActionMethodButton beInvisible
     3680
     3681    "Modified: / 16-08-2017 / 09:07:00 / Patrik Svestka <patrik.svestka@gmail.com>"
    36773682!
    36783683
    36793684initializeGotoDialogOpenerButtonIn:bpanel
    … …  
    37383743
    37393744initializeResendButtonIn:bpanel
    37403745    resendButton := Button
    3741                 label:(resources string:'Resend')
     3746                label:(resources string:'Resend') , (self shortKeyStringForAction: #Resend)
    37423747                action:[
    37433748                    resendButton turnOff.
    37443749                    self doResend
    … …  
    37493754
    37503755    "/ if we have this, we do not need the restart button
    37513756    restartButton beInvisible.
     3757
     3758    "Modified: / 16-08-2017 / 09:05:00 / Patrik Svestka <patrik.svestka@gmail.com>"
    37523759!
    37533760
    37543761initializeRestartButtonIn:bpanel
    … …  
    37613768                in:bpanel.
    37623769
    37633770    restartButton name:'restartButton'
    3764    
     3771
    37653772    "Created: / 17.11.2001 / 20:58:52 / cg"
    37663773!
    37673774
    37683775initializeReturnButtonIn:bpanel
    37693776    returnButton := Button
    3770                 label:(resources string:'Return')
     3777                label:(resources string:'Return') , (self shortKeyStringForAction: #DebuggerReturn)
    37713778                action:[
    37723779                    returnButton turnOff.
    37733780                    self doReturn
    … …  
    37773784    returnButton name:'returnButton'.
    37783785
    37793786    "Created: / 17.11.2001 / 20:58:22 / cg"
     3787    "Modified: / 16-08-2017 / 09:11:20 / Patrik Svestka <patrik.svestka@gmail.com>"
    37803788!
    37813789
    37823790initializeSendButtonIn:bpanel
    … …  
    37963804
    37973805initializeStepButtonIn:bpanel
    37983806    stepButton := Button
    3799                 label:(resources string:'Debug_Step')
     3807                label:(resources string:'Debug_Step') , (self shortKeyStringForAction: #DebuggerStep)
    38003808                action:[
    38013809                    stepButton turnOff.
    38023810                    self doStep
    … …  
    38043812                in:bpanel.
    38053813
    38063814    stepButton name:'stepButton'.
    3807 
    38083815    "Created: / 17.11.2001 / 21:00:13 / cg"
     3816    "Modified: / 02-08-2017 / 10:16:38 / Patrik Svestka <patrik.svestka@gmail.com>"
    38093817!
    38103818
    38113819initializeTerminateButtonIn:bpanel
    38123820    terminateButton := Button
    3813                 label:(resources string:'Debug_Terminate')
     3821                label:(resources string:'Debug_Terminate') , (self shortKeyStringForAction: #DebugTerminate)
    38143822                action:[
    38153823                    terminateButton turnOffWithoutRedraw.
    38163824                    self doTerminate
    … …  
    38223830    "/ terminateButton foregroundColor:Color red.
    38233831
    38243832    "Created: / 17.11.2001 / 21:02:20 / cg"
     3833    "Modified: / 16-08-2017 / 09:17:10 / Patrik Svestka <patrik.svestka@gmail.com>"
    38253834!
    38263835
    38273836postRealize