--- a/DebugView.st Fri Oct 22 13:33:39 1999 +0200
+++ b/DebugView.st Sat Oct 23 00:52:26 1999 +0200
@@ -1975,8 +1975,7 @@
DebuggingDebugger == true ifTrue:[
where notNil ifTrue:[
'(' print. steppedContextLineno print. ') ' print.
- where print.
- '[' print. where lineNumber print. ']' printNL.
+ where printNL.
].
].
@@ -3676,10 +3675,10 @@
s nextPutAll: '**** '; nextPutLine:(ex errorString withCRs).
s nextPutLine:'****'.
con := ex suspendedContext.
- s nextPutAll: '**** '; nextPutLine:(con printString , ' [' , con lineNumber printString , ']').
+ s nextPutAll: '**** '; nextPutLine:(con printString).
con := con sender.
[con notNil] whileTrue:[
- s nextPutAll: '**** '; nextPutLine:(con printString , ' [' , con lineNumber printString , ']').
+ s nextPutAll: '**** '; nextPutLine:(con printString).
con receiver == self ifTrue:[
con := nil
] ifFalse:[
@@ -4046,6 +4045,6 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.249 1999-10-12 12:46:59 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.250 1999-10-22 22:52:26 cg Exp $'
! !
DebugView initialize!