MiniDebugger.st
changeset 940 6aa0f4b6fafc
parent 852 5c4a0585ba0b
child 976 d27628f54b71
--- a/MiniDebugger.st	Wed Feb 07 15:11:43 1996 +0100
+++ b/MiniDebugger.st	Wed Feb 07 16:06:24 1996 +0100
@@ -261,6 +261,10 @@
 		'no context' errorPrintNewline
 	    ]
 	].
+	(cmd == $b) ifTrue:[
+	    valid := true.
+	    Smalltalk printStackBacktrace
+	].
 	(cmd == $P) ifTrue:[
 	    valid := true.
 	    self showProcesses.
@@ -330,6 +334,7 @@
    (s)tep
    (t)race (continue with trace)
    (p)rint context chain
+   (b)full backtrace
    (r)eceiver printString
    (R)eceiver storeString
    (i)nspect (enter inspector on receiver)
@@ -434,5 +439,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.23 1996-01-11 20:40:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.24 1996-02-07 15:06:24 cg Exp $'
 ! !