class: DebugView
authorClaus Gittinger <cg@exept.de>
Tue, 16 Apr 2013 18:20:09 +0200
changeset 12671 9124b4453947
parent 12670 5a655023b0a5
child 12672 91288323803d
class: DebugView added: #doInspectProcess changed: #processMenuSpec
DebugView.st
--- a/DebugView.st	Tue Apr 16 15:04:04 2013 +0200
+++ b/DebugView.st	Tue Apr 16 18:20:09 2013 +0200
@@ -1105,6 +1105,10 @@
             itemValue: doChangeProcessPriority
           )
          (MenuItem
+            label: 'Inspect'
+            itemValue: doInspectProcess
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem
@@ -4417,6 +4421,10 @@
     "Modified: / 23-03-2012 / 09:49:31 / cg"
 !
 
+doInspectProcess
+    (inspectedProcess ? Processor activeProcess) inspect.
+!
+
 doMicroSend
     "single send; reenter with next message send"
 
@@ -8277,11 +8285,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.580 2013-04-03 13:51:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.581 2013-04-16 16:20:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.580 2013-04-03 13:51:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.581 2013-04-16 16:20:09 cg Exp $'
 !
 
 version_SVN