oops - care for non-existing line after showMore
(could be hidden in verbose mode)
--- 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!