--- 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!