# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 885232877 -3600
# Node ID e96cd72d100a45f52c1e955cae9b226e2873a2ce
# Parent  f6e8c04acff0f1663a33825687d1d1c62bb2656a
oops - care for non-existing line after showMore
(could be hidden in verbose mode)

diff -r f6e8c04acff0 -r e96cd72d100a DebugView.st
--- a/DebugView.st	Mon Jan 19 16:31:25 1998 +0100
+++ b/DebugView.st	Mon Jan 19 19:01:17 1998 +0100
@@ -11,21 +11,21 @@
 "
 
 StandardSystemView subclass:#DebugView
-        instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
-                receiverInspector contextInspector contextArray selectedContext
-                catchBlock grabber traceView tracing bigStep skipLineNr
-                steppedContextAddress abortButton terminateButton continueButton
-                stepButton nextButton nextOverButton nextOutButton sendButton
-                returnButton restartButton exclusive inspecting nChainShown
-                inspectedProcess updateProcess stopButton updateButton
-                monitorToggle stepping steppedContextLineno stepForReturn
-                actualContext inWrap stackInspector steppedContext wrapperContext
-                verboseBacktrace firstContext stepHow cachable'
-        classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
-                DebuggingDebugger VerboseBacktraceDefault DefaultIcon
-                InitialNCHAINShown'
-        poolDictionaries:''
-        category:'Interface-Debugger'
+	instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
+		receiverInspector contextInspector contextArray selectedContext
+		catchBlock grabber traceView tracing bigStep skipLineNr
+		steppedContextAddress abortButton terminateButton continueButton
+		stepButton nextButton nextOverButton nextOutButton sendButton
+		returnButton restartButton exclusive inspecting nChainShown
+		inspectedProcess updateProcess stopButton updateButton
+		monitorToggle stepping steppedContextLineno stepForReturn
+		actualContext inWrap stackInspector steppedContext wrapperContext
+		verboseBacktrace firstContext stepHow cachable'
+	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
+		DebuggingDebugger VerboseBacktraceDefault DefaultIcon
+		InitialNCHAINShown'
+	poolDictionaries:''
+	category:'Interface-Debugger'
 !
 
 !DebugView class methodsFor:'documentation'!
@@ -3454,8 +3454,10 @@
             line := contextView list at:lineNr.
             (line startsWith:'**') ifTrue:[
                 self showMore.
-                contextView setSelection:lineNr.
-                con := contextArray at:lineNr
+                lineNr >= contextArray size ifTrue:[
+                    contextView setSelection:lineNr.
+                    con := contextArray at:lineNr
+                ]
             ].
             con isNil ifTrue:[
                 codeView contents:nil.
@@ -3745,12 +3747,12 @@
     ]
 
     "Created: / 14.8.1997 / 20:15:00 / cg"
-    "Modified: / 17.1.1998 / 03:27:51 / cg"
+    "Modified: / 19.1.1998 / 18:00:10 / cg"
 ! !
 
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.185 1998-01-17 14:17:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.186 1998-01-19 18:01:17 cg Exp $'
 ! !
 DebugView initialize!