made the number of frames shown initially a
class variable.
--- a/DebugView.st Wed Mar 19 22:26:17 1997 +0100
+++ b/DebugView.st Thu Mar 20 22:04:26 1997 +0100
@@ -22,7 +22,8 @@
stepForReturn actualContext inWrap stackInspector steppedContext
wrapperContext verboseBacktrace firstContext stepHow'
classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
- DebuggingDebugger VerboseBacktraceDefault DefaultIcon'
+ DebuggingDebugger VerboseBacktraceDefault DefaultIcon
+ InitialNCHAINShown'
poolDictionaries:''
category:'Interface-Debugger'
!
@@ -82,6 +83,13 @@
!DebugView class methodsFor:'initialization'!
+initialize
+ InitialNCHAINShown := 20.
+
+ "Created: 20.3.1997 / 16:53:37 / cg"
+ "Modified: 20.3.1997 / 16:54:32 / cg"
+!
+
reinitialize
self newDebugger
! !
@@ -496,7 +504,7 @@
stepping := false.
bigStep := false.
stepHow := nil.
- nChainShown := 50.
+ nChainShown := InitialNCHAINShown.
"if debugger is entered while a box has grabbed the
pointer, we must ungrab - otherwise X wont talk to
@@ -905,7 +913,7 @@
"Created: 24.11.1995 / 19:52:54 / cg"
"Modified: 3.5.1996 / 23:58:16 / stefan"
- "Modified: 3.3.1997 / 20:55:17 / cg"
+ "Modified: 20.3.1997 / 16:53:53 / cg"
!
openOn:aProcess
@@ -924,7 +932,7 @@
stepHow := nil.
inspecting := true.
inspectedProcess := aProcess.
- nChainShown := 50.
+ nChainShown := InitialNCHAINShown.
bpanel := abortButton superView.
@@ -1012,7 +1020,7 @@
].
self open
- "Modified: 3.3.1997 / 20:55:22 / cg"
+ "Modified: 20.3.1997 / 16:53:56 / cg"
! !
!DebugView methodsFor:'help'!
@@ -2625,14 +2633,15 @@
[con notNil and:[count <= nChainShown]] whileTrue:[
(self showingContext:con) ifTrue:[
- contextArray add:con. count := count + 1.
+ contextArray add:con.
(MoreDebuggingDetail == true) ifTrue:[
nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
] ifFalse:[
nm := con printString.
].
- text add:nm
+ text add:nm.
+ count := count + 1.
].
method := con method.
@@ -2665,7 +2674,7 @@
]
].
- "/ and also, all lazu loading intermediates
+ "/ and also, all lazy loading intermediates
verboseBacktrace ~~ true ifTrue:[
(con selector == #noByteCode
@@ -2673,6 +2682,7 @@
contextArray removeLast.
text removeLast.
con := con sender.
+ count := count - 1.
]
].
@@ -2733,7 +2743,7 @@
^ true
"Created: 14.12.1995 / 19:10:31 / cg"
- "Modified: 14.1.1997 / 13:23:37 / cg"
+ "Modified: 20.3.1997 / 16:52:54 / cg"
!
setContextSkippingInterruptContexts:aContext
@@ -3460,5 +3470,6 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.152 1997-03-19 21:26:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.153 1997-03-20 21:04:26 cg Exp $'
! !
+DebugView initialize!