#FEATURE by cg
class: DebugView
added: #stepHow
class: DebugView class
changed: #newDebugger
--- 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'!