equal
deleted
inserted
replaced
65 !PositionableStream class methodsFor:'initialization'! |
65 !PositionableStream class methodsFor:'initialization'! |
66 |
66 |
67 initialize |
67 initialize |
68 "setup the signal used to handle errors during fileIn" |
68 "setup the signal used to handle errors during fileIn" |
69 |
69 |
70 ZeroPosition := 1. |
70 ZeroPosition := 0. "/ changed with stx rel5.1 |
|
71 |
71 ErrorDuringFileInSignal isNil ifTrue:[ |
72 ErrorDuringFileInSignal isNil ifTrue:[ |
72 ErrorDuringFileInSignal := Error newSignalMayProceed:true. |
73 ErrorDuringFileInSignal := Error newSignalMayProceed:true. |
73 ErrorDuringFileInSignal nameClass:self message:#errorDuringFileInSignal. |
74 ErrorDuringFileInSignal nameClass:self message:#errorDuringFileInSignal. |
74 ErrorDuringFileInSignal notifierString:'error during fileIn'. |
75 ErrorDuringFileInSignal notifierString:'error during fileIn'. |
75 |
76 |
76 "/ InvalidPositionErrorSignal := PositionErrorSignal newSignalMayProceed:true. |
|
77 "/ InvalidPositionErrorSignal nameClass:self message:#invalidPositionErrorSignal. |
|
78 InvalidPositionErrorSignal := PositionOutOfBoundsError. |
77 InvalidPositionErrorSignal := PositionOutOfBoundsError. |
79 InvalidPositionErrorSignal notifierString:'position out of bounds: '. |
78 InvalidPositionErrorSignal notifierString:'position out of bounds: '. |
80 |
79 |
81 CurrentFileInDirectoryQuerySignal := QuerySignal new. |
80 CurrentFileInDirectoryQuerySignal := QuerySignal new. |
82 CurrentFileInDirectoryQuerySignal nameClass:self message:#currentFileInDirectoryQuerySignal. |
81 CurrentFileInDirectoryQuerySignal nameClass:self message:#currentFileInDirectoryQuerySignal. |
1191 ! ! |
1190 ! ! |
1192 |
1191 |
1193 !PositionableStream class methodsFor:'documentation'! |
1192 !PositionableStream class methodsFor:'documentation'! |
1194 |
1193 |
1195 version |
1194 version |
1196 ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.128 2003-05-07 14:32:03 cg Exp $' |
1195 ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.129 2003-06-16 10:02:54 cg Exp $' |
1197 ! ! |
1196 ! ! |
1198 |
1197 |
1199 PositionableStream initialize! |
1198 PositionableStream initialize! |