--- a/Tools__ViewTreeApplication.st Sun Dec 07 10:29:26 2014 +0100
+++ b/Tools__ViewTreeApplication.st Tue Dec 09 17:35:40 2014 +0100
@@ -596,6 +596,11 @@
(
(MenuItem
enabled: hasSingleSelectionHolder
+ label: 'Debug'
+ itemValue: doDebugProcess
+ )
+ (MenuItem
+ enabled: hasSingleSelectionHolder
label: 'Inspect'
itemValue: doInspect:
argument: process
@@ -1944,6 +1949,17 @@
"/ activeHelpKey:#doUncatchEvents.
!
+doDebugProcess
+ "open debugger on the window process"
+
+ |view|
+
+ view := self selectedView.
+ view isNil ifTrue:[^ nil].
+
+ Debugger openOn:view windowGroup process
+!
+
doDestroy
"destroy the current selected view"