equal
deleted
inserted
replaced
19 |
19 |
20 PositionableStream comment:' |
20 PositionableStream comment:' |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.22 1995-02-26 18:13:54 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.23 1995-03-08 23:39:14 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !PositionableStream class methodsFor:'documentation'! |
27 !PositionableStream class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.22 1995-02-26 18:13:54 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.23 1995-03-08 23:39:14 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
59 |
59 |
60 initialize |
60 initialize |
61 "setup the signal used to handle errors during fileIn" |
61 "setup the signal used to handle errors during fileIn" |
62 |
62 |
63 ErrorDuringFileInSignal isNil ifTrue:[ |
63 ErrorDuringFileInSignal isNil ifTrue:[ |
64 Object initialize. |
64 ErrorSignal isNil ifTrue:[super initialize]. |
65 |
65 |
66 ErrorDuringFileInSignal := Object errorSignal newSignalMayProceed:true. |
66 ErrorDuringFileInSignal := ErrorSignal newSignalMayProceed:true. |
67 ErrorDuringFileInSignal nameClass:self message:#errorDuringFileInSignal. |
67 ErrorDuringFileInSignal nameClass:self message:#errorDuringFileInSignal. |
68 ErrorDuringFileInSignal notifierString:'error during fileIn'. |
68 ErrorDuringFileInSignal notifierString:'error during fileIn'. |
69 |
69 |
70 ChunkSeparator := $!! |
70 ChunkSeparator := $!! |
71 ] |
71 ] |