#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Wed, 30 Jan 2019 15:38:27 +0100
changeset 18572 5d6a23a608fa
parent 18571 566fef152132
child 18573 9c008eccc386
#FEATURE by cg class: DebugView added: #stepHow class: DebugView class changed: #newDebugger
DebugView.st
--- a/DebugView.st	Tue Jan 29 18:25:09 2019 +0100
+++ b/DebugView.st	Wed Jan 30 15:38:27 2019 +0100
@@ -199,7 +199,9 @@
 
     "/ only assign to the global debugger, if it has not been redefined
     "/ to another class.
-    (Debugger isBehavior and:[Debugger name = #DebugView]) ifTrue:[
+    (Debugger isBehavior 
+      and:[(Debugger name = #DebugView)
+      and:[self name = #DebugView]]) ifTrue:[
         Smalltalk at:#Debugger put:self
     ].
 
@@ -208,6 +210,7 @@
     "
 
     "Modified: / 17-10-2017 / 12:55:09 / stefan"
+    "Modified: / 30-01-2019 / 02:30:40 / Claus Gittinger"
 ! !
 
 !DebugView class methodsFor:'defaults'!
@@ -2067,6 +2070,12 @@
 
 inspectedProcess
     ^ inspectedProcess
+!
+
+stepHow
+    ^ stepHow
+
+    "Created: / 30-01-2019 / 02:22:31 / Claus Gittinger"
 ! !
 
 !DebugView methodsFor:'aspects'!