--- a/MiniDebugger.st Thu Feb 02 13:13:16 1995 +0100
+++ b/MiniDebugger.st Thu Feb 02 13:23:05 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.9 1994-10-10 00:26:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.10 1995-02-02 12:21:24 claus Exp $
'!
!MiniDebugger class methodsFor: 'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.9 1994-10-10 00:26:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.10 1995-02-02 12:21:24 claus Exp $
"
!
@@ -102,6 +102,18 @@
^ nil
!
+enter
+ ^ self enterWithMessage:'MiniDebugger'
+!
+
+enter:aContext
+ ^ self enterWithMessage:'MiniDebugger'
+!
+
+enter:aContext withMessage:aString
+ ^ self enterWithMessage:aString
+!
+
enterWithMessage:aString
|active|
@@ -343,13 +355,13 @@
context isNil ifTrue: [
context := self getContext
].
- context notNil ifTrue:[
- "remove Debugger stepinterrupt/halt frame"
- self interpreterLoopWith:(context sender receiver)
- ] ifFalse:[
- 'no context - dont know receiver' errorPrintNewline.
+"/ context notNil ifTrue:[
+"/ "remove Debugger stepinterrupt/halt frame"
+"/ self interpreterLoopWith:(context sender receiver)
+"/ ] ifFalse:[
+"/ 'no context - dont know receiver' errorPrintNewline.
self interpreterLoopWith:nil
- ]
+"/ ]
].
context := nil.
(cmd == $c) ifTrue:[valid := true. done := true].
@@ -364,14 +376,14 @@
'valid commands:
(c)ontinue
(s)tep
- (t)race
- (p)rintContext
+ (t)race (continue with trace)
+ (p)rint context chain
(r)eceiver printString
(R)eceiver storeString
- (i)nspect
- (I)nterpreter
- (a)bort
- (P)rocesses
+ (i)nspect (enter inspector on receiver)
+ (I)nterpreter (expression evaluator)
+ (a)bort (raise abort signal)
+ (P)rocess list
(T)terminate current process
(Q)uick terminate current process (no unwinds)
(X)exit (+core)