equal
deleted
inserted
replaced
22 |
22 |
23 ExternalStream comment:' |
23 ExternalStream comment:' |
24 COPYRIGHT (c) 1988 by Claus Gittinger |
24 COPYRIGHT (c) 1988 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
26 |
26 |
27 $Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.33 1995-04-02 11:06:23 claus Exp $ |
27 $Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.34 1995-04-11 14:49:18 claus Exp $ |
28 '! |
28 '! |
29 |
29 |
30 !ExternalStream primitiveDefinitions! |
30 !ExternalStream primitiveDefinitions! |
31 |
31 |
32 %{ |
32 %{ |
85 " |
85 " |
86 ! |
86 ! |
87 |
87 |
88 version |
88 version |
89 " |
89 " |
90 $Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.33 1995-04-02 11:06:23 claus Exp $ |
90 $Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.34 1995-04-11 14:49:18 claus Exp $ |
91 " |
91 " |
92 ! |
92 ! |
93 |
93 |
94 documentation |
94 documentation |
95 " |
95 " |
188 |
188 |
189 !ExternalStream class methodsFor:'initialization'! |
189 !ExternalStream class methodsFor:'initialization'! |
190 |
190 |
191 initialize |
191 initialize |
192 StreamErrorSignal isNil ifTrue:[ |
192 StreamErrorSignal isNil ifTrue:[ |
193 ErrorSignal isNil ifTrue:[super initialize]. |
|
194 |
|
195 StreamErrorSignal := ErrorSignal newSignalMayProceed:false. |
193 StreamErrorSignal := ErrorSignal newSignalMayProceed:false. |
196 StreamErrorSignal nameClass:self message:#streamErrorSignal. |
194 StreamErrorSignal nameClass:self message:#streamErrorSignal. |
197 StreamErrorSignal notifierString:'I/O error'. |
195 StreamErrorSignal notifierString:'I/O error'. |
198 |
196 |
199 OpenErrorSignal := StreamErrorSignal newSignalMayProceed:true. |
197 OpenErrorSignal := StreamErrorSignal newSignalMayProceed:true. |