oops - leftover debugprint
authorClaus Gittinger <cg@exept.de>
Tue, 11 Nov 2003 09:39:01 +0100
changeset 7742 936f337d9f2a
parent 7741 0bbe687607e0
child 7743 d54099096ccf
oops - leftover debugprint
PositionableStream.st
--- a/PositionableStream.st	Mon Nov 10 15:55:20 2003 +0100
+++ b/PositionableStream.st	Tue Nov 11 09:39:01 2003 +0100
@@ -579,7 +579,7 @@
 
         "/ otherwise ask what should be done now and either
         "/ continue or abort the fileIn
-Transcript showCR:Screen current.
+
         redef ifTrue:[
             action := OptionBox 
                           request:(msg withCRs) 
@@ -1214,7 +1214,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.136 2003-10-28 19:56:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.137 2003-11-11 08:39:01 cg Exp $'
 ! !
 
 PositionableStream initialize!