class: Tools::ViewTreeInspectorApplication
authorClaus Gittinger <cg@exept.de>
Tue, 09 Dec 2014 17:35:40 +0100
changeset 317116cec0f0e3b4
parent 3170 a49100905be3
child 3172 5eed004ed60b
class: Tools::ViewTreeInspectorApplication
added: #doDebugProcess - menu item
Tools__ViewTreeApplication.st
     1.1 --- a/Tools__ViewTreeApplication.st	Sun Dec 07 10:29:26 2014 +0100
     1.2 +++ b/Tools__ViewTreeApplication.st	Tue Dec 09 17:35:40 2014 +0100
     1.3 @@ -596,6 +596,11 @@
     1.4                (
     1.5                 (MenuItem
     1.6                    enabled: hasSingleSelectionHolder
     1.7 +                  label: 'Debug'
     1.8 +                  itemValue: doDebugProcess
     1.9 +                )
    1.10 +               (MenuItem
    1.11 +                  enabled: hasSingleSelectionHolder
    1.12                    label: 'Inspect'
    1.13                    itemValue: doInspect:
    1.14                    argument: process
    1.15 @@ -1944,6 +1949,17 @@
    1.16  "/        activeHelpKey:#doUncatchEvents.
    1.17  !
    1.18  
    1.19 +doDebugProcess
    1.20 +    "open debugger on the window process"
    1.21 +
    1.22 +    |view|
    1.23 +
    1.24 +    view := self selectedView.
    1.25 +    view isNil ifTrue:[^ nil].
    1.26 +
    1.27 +    Debugger openOn:view windowGroup process
    1.28 +!
    1.29 +
    1.30  doDestroy
    1.31      "destroy the current selected view"
    1.32