avoid double-lineNumber in context-printout
authorClaus Gittinger <cg@exept.de>
Sat, 23 Oct 1999 00:52:26 +0200
changeset 2433 1f3bb0c0c8fa
parent 2432 37d9ba96e309
child 2434 5cf8d286f680
avoid double-lineNumber in context-printout
DebugView.st
--- 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!