equal
deleted
inserted
replaced
19 |
19 |
20 PipeStream comment:' |
20 PipeStream 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/PipeStream.st,v 1.19 1995-02-18 18:29:48 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.20 1995-03-08 23:39:02 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !PipeStream class methodsFor:'documentation'! |
27 !PipeStream 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/PipeStream.st,v 1.19 1995-02-18 18:29:48 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.20 1995-03-08 23:39:02 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
106 |
106 |
107 initialize |
107 initialize |
108 "setup the signal" |
108 "setup the signal" |
109 |
109 |
110 BrokenPipeSignal isNil ifTrue:[ |
110 BrokenPipeSignal isNil ifTrue:[ |
111 Object initialize. |
111 ErrorSignal isNil ifTrue:[super initialize]. |
112 |
112 |
113 BrokenPipeSignal := Object errorSignal newSignalMayProceed:true. |
113 BrokenPipeSignal := ErrorSignal newSignalMayProceed:true. |
114 BrokenPipeSignal nameClass:self message:#brokenPipeSignal. |
114 BrokenPipeSignal nameClass:self message:#brokenPipeSignal. |
115 BrokenPipeSignal notifierString:'write on a pipe with no one to read'. |
115 BrokenPipeSignal notifierString:'write on a pipe with no one to read'. |
116 ] |
116 ] |
117 ! ! |
117 ! ! |
118 |
118 |