equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
120 ^ nextPutAllBlock value:something |
122 ^ nextPutAllBlock value:something |
121 ]. |
123 ]. |
122 super nextPutAll:something |
124 super nextPutAll:something |
123 ! |
125 ! |
124 |
126 |
|
127 nextPutAll:count from:buffer startingAt:start |
|
128 "put some elements of something onto the stream by evaluating |
|
129 the nextPutAllBlock with something as argument. |
|
130 If there is no nextPutAllBlock, nextPuts will be used (as inherited)" |
|
131 |
|
132 nextPutAllBlock notNil ifTrue:[ |
|
133 nextPutAllBlock value:(buffer copyFrom:start to:start+count-1). |
|
134 ^ count |
|
135 ]. |
|
136 ^ super nextPutAll:count from:buffer startingAt:start |
|
137 ! |
|
138 |
125 nextPutAll:something startingAt:start to:stop |
139 nextPutAll:something startingAt:start to:stop |
126 "put some elements of something onto the stream by evaluating |
140 "put some elements of something onto the stream by evaluating |
127 the nextPutAllBlock with something as argument. |
141 the nextPutAllBlock with something as argument. |
128 If there is no nextPutAllBlock, nextPuts will be used (as inherited)" |
142 If there is no nextPutAllBlock, nextPuts will be used (as inherited)" |
129 |
143 |
223 ! ! |
237 ! ! |
224 |
238 |
225 !ActorStream class methodsFor:'documentation'! |
239 !ActorStream class methodsFor:'documentation'! |
226 |
240 |
227 version |
241 version |
228 ^ '$Header: /cvs/stx/stx/libbasic2/ActorStream.st,v 1.13 2015-01-27 13:54:15 cg Exp $' |
242 ^ '$Header: /cvs/stx/stx/libbasic2/ActorStream.st,v 1.14 2015-03-13 10:37:49 stefan Exp $' |
229 ! ! |
243 ! ! |
230 |
244 |