--- a/MiniDebugger.st Mon Sep 03 18:13:53 2001 +0200
+++ b/MiniDebugger.st Mon Sep 03 18:16:10 2001 +0200
@@ -10,9 +10,11 @@
hereby transferred.
"
+"{ Package: 'stx:libbasic' }"
+
Object subclass:#MiniDebugger
instanceVariableNames:'tracing stepping traceBlock command commandArg commandCount
-enteringContext dot nesting'
+ enteringContext dot nesting'
classVariableNames:'TheOneAndOnlyDebugger'
poolDictionaries:''
category:'System-Debugging-Support'
@@ -119,10 +121,10 @@
^ self basicNew initialize.
- TheOneAndOnlyDebugger isNil ifTrue:[
- TheOneAndOnlyDebugger := self basicNew initialize
- ].
- ^ TheOneAndOnlyDebugger
+"/ TheOneAndOnlyDebugger isNil ifTrue:[
+"/ TheOneAndOnlyDebugger := self basicNew initialize
+"/ ].
+"/ ^ TheOneAndOnlyDebugger
"
TheOneAndOnlyDebugger := nil
@@ -326,6 +328,31 @@
^ backtrace
!
+moveDotDown
+ "/ sigh - must search
+ |c|
+
+ c := enteringContext.
+ [ c notNil and:[ c sender ~~ dot ] ] whileTrue:[
+ c := c sender.
+ ].
+ c notNil ifTrue:[
+ dot := c.
+ self printDot.
+ ] ifFalse:[
+ '** dot is the bottom of the calling chain' printCR.
+ ].
+!
+
+moveDotUp
+ dot sender notNil ifTrue:[
+ dot := dot sender.
+ self printDot.
+ ] ifFalse:[
+ '** dot is the top of the calling chain' printCR.
+ ].
+!
+
printBacktraceFrom:aContext
|context n|
@@ -348,6 +375,10 @@
]
!
+printDot
+ dot fullPrint
+!
+
stepping
traceBlock := nil.
tracing := false.
@@ -358,35 +389,6 @@
traceBlock := aBlockOrNil.
stepping := false.
tracing := true
-!
-
-printDot
- dot fullPrint
-!
-
-moveDotUp
- dot sender notNil ifTrue:[
- dot := dot sender.
- self printDot.
- ] ifFalse:[
- '** dot is the top of the calling chain' printCR.
- ].
-!
-
-moveDotDown
- "/ sigh - must search
- |c|
-
- c := enteringContext.
- [ c notNil and:[ c sender ~~ dot ] ] whileTrue:[
- c := c sender.
- ].
- c notNil ifTrue:[
- dot := c.
- self printDot.
- ] ifFalse:[
- '** dot is the bottom of the calling chain' printCR.
- ].
! !
!MiniDebugger methodsFor:'user commands'!
@@ -756,5 +758,5 @@
!MiniDebugger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.53 2001-08-21 12:12:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.54 2001-09-03 16:16:10 cg Exp $'
! !