--- a/DebugView.st Fri Jan 10 21:50:11 1997 +0100
+++ b/DebugView.st Sat Jan 11 12:16:27 1997 +0100
@@ -21,7 +21,7 @@
steppedContextLineno stepForReturn actualContext inWrap
stackInspector steppedContext wrapperContext verboseBacktrace'
classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
- DebuggingDebugger'
+ DebuggingDebugger VerboseBacktraceDefault'
poolDictionaries:''
category:'Interface-Debugger'
!
@@ -288,6 +288,18 @@
^ Image fromFile:'bitmaps/Debugger.xbm' resolution:100
"Created: 1.1.1970 / 01:00:00 / cg"
+!
+
+defaultVerboseBacktrace
+ ^ VerboseBacktraceDefault
+
+ "Created: 11.1.1997 / 12:14:35 / cg"
+!
+
+defaultVerboseBacktrace:aBoolean
+ VerboseBacktraceDefault := aBoolean
+
+ "Created: 11.1.1997 / 12:14:44 / cg"
! !
!DebugView class methodsFor:'misc'!
@@ -1036,7 +1048,7 @@
font := font on:device.
- verboseBacktrace := false.
+ verboseBacktrace := VerboseBacktraceDefault ? false.
busy := false.
exclusive := false.
@@ -1131,7 +1143,7 @@
in:hpanel.
contextInspector label:'context'.
- "Modified: 10.1.1997 / 21:05:52 / cg"
+ "Modified: 11.1.1997 / 12:15:14 / cg"
!
initializeMiddleButtonMenu
@@ -3131,5 +3143,5 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.123 1997-01-10 20:50:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.124 1997-01-11 11:16:27 cg Exp $'
! !