# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 858891866 -3600
# Node ID 059c29fac604a2b0d65a6d6ac0343624280c62e4
# Parent  92a5ea4c0e10b6aa6b5241b760b99f7a408b0ae8
made the number of frames shown initially a
class variable.

diff -r 92a5ea4c0e10 -r 059c29fac604 DebugView.st
--- 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!