equal
deleted
inserted
replaced
2328 'hello world' readWriteStream |
2328 'hello world' readWriteStream |
2329 setToEnd; |
2329 setToEnd; |
2330 nextPutAll:'+Foo'; |
2330 nextPutAll:'+Foo'; |
2331 contents |
2331 contents |
2332 " |
2332 " |
|
2333 ! |
|
2334 |
|
2335 readingStreamDo:aBlock |
|
2336 "simular to FileStream readingFileDo:, |
|
2337 this evaluates aBlock passing a readStream on the receiver" |
|
2338 |
|
2339 ^ aBlock value:(self readStream) |
|
2340 |
|
2341 " |
|
2342 'hello world' readingStreamDo:[:s | |
|
2343 Transcript showCR:(s next:5). |
|
2344 ] |
|
2345 " |
|
2346 |
|
2347 "Created: / 07-11-2018 / 22:17:45 / Claus Gittinger" |
2333 ! |
2348 ! |
2334 |
2349 |
2335 writeStream |
2350 writeStream |
2336 "return a stream for writing onto the receiver" |
2351 "return a stream for writing onto the receiver" |
2337 |
2352 |