stream position now 0-based
authorClaus Gittinger <cg@exept.de>
Mon, 16 Jun 2003 12:02:54 +0200
changeset 7363 721c2a72449a
parent 7362 1af5f648cdb2
child 7364 8aaf72115156
stream position now 0-based
PositionableStream.st
--- a/PositionableStream.st	Mon Jun 16 12:01:29 2003 +0200
+++ b/PositionableStream.st	Mon Jun 16 12:02:54 2003 +0200
@@ -67,14 +67,13 @@
 initialize
     "setup the signal used to handle errors during fileIn"
 
-    ZeroPosition := 1.
+    ZeroPosition := 0.        "/ changed with stx rel5.1
+
     ErrorDuringFileInSignal isNil ifTrue:[
         ErrorDuringFileInSignal := Error newSignalMayProceed:true.
         ErrorDuringFileInSignal nameClass:self message:#errorDuringFileInSignal.
         ErrorDuringFileInSignal notifierString:'error during fileIn'.
 
-"/        InvalidPositionErrorSignal := PositionErrorSignal newSignalMayProceed:true.
-"/        InvalidPositionErrorSignal nameClass:self message:#invalidPositionErrorSignal.
         InvalidPositionErrorSignal := PositionOutOfBoundsError.
         InvalidPositionErrorSignal notifierString:'position out of bounds: '.
 
@@ -1193,7 +1192,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.128 2003-05-07 14:32:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.129 2003-06-16 10:02:54 cg Exp $'
 ! !
 
 PositionableStream initialize!