Tools__ViewTreeApplication.st
changeset 3171 16cec0f0e3b4
parent 3169 54d9e27b384d
child 3174 cd45c49a0d63
equal deleted inserted replaced
3170:a49100905be3 3171:16cec0f0e3b4
   594             submenu: 
   594             submenu: 
   595            (Menu
   595            (Menu
   596               (
   596               (
   597                (MenuItem
   597                (MenuItem
   598                   enabled: hasSingleSelectionHolder
   598                   enabled: hasSingleSelectionHolder
       
   599                   label: 'Debug'
       
   600                   itemValue: doDebugProcess
       
   601                 )
       
   602                (MenuItem
       
   603                   enabled: hasSingleSelectionHolder
   599                   label: 'Inspect'
   604                   label: 'Inspect'
   600                   itemValue: doInspect:
   605                   itemValue: doInspect:
   601                   argument: process
   606                   argument: process
   602                 )
   607                 )
   603                (MenuItem
   608                (MenuItem
  1942 "/        enabled:true;
  1947 "/        enabled:true;
  1943 "/        label:(self class releaseViewIcon);
  1948 "/        label:(self class releaseViewIcon);
  1944 "/        activeHelpKey:#doUncatchEvents.
  1949 "/        activeHelpKey:#doUncatchEvents.
  1945 !
  1950 !
  1946 
  1951 
       
  1952 doDebugProcess
       
  1953     "open debugger on the window process"
       
  1954 
       
  1955     |view|
       
  1956 
       
  1957     view := self selectedView.
       
  1958     view isNil ifTrue:[^ nil].
       
  1959 
       
  1960     Debugger openOn:view windowGroup process
       
  1961 !
       
  1962 
  1947 doDestroy
  1963 doDestroy
  1948     "destroy the current selected view"
  1964     "destroy the current selected view"
  1949 
  1965 
  1950     |item parent|
  1966     |item parent|
  1951 
  1967