equal
deleted
inserted
replaced
98 [exBegin] |
98 [exBegin] |
99 |originalEntryStream fileStream splitter hash| |
99 |originalEntryStream fileStream splitter hash| |
100 |
100 |
101 originalEntryStream := Transcript entryStream. |
101 originalEntryStream := Transcript entryStream. |
102 fileStream := 'transcript.log' asFilename writeStream. |
102 fileStream := 'transcript.log' asFilename writeStream. |
103 splitter := SplittingWriteStream on:originalEntryStream and:fileStream. |
103 splitter := SplittingWriteStream on:fileStream and:originalEntryStream. |
104 [ |
104 [ |
105 Transcript entryStream:splitter. |
105 Transcript entryStream:splitter. |
106 1 to:10 do:[:i | Transcript nextPutLine:('line%1' bindWith:i)]. |
106 1 to:10 do:[:i | Transcript nextPutLine:('line%1' bindWith:i)]. |
107 ] ensure:[ |
107 ] ensure:[ |
108 Transcript entryStream:originalEntryStream. |
108 Transcript entryStream:originalEntryStream. |
297 |
297 |
298 !SplittingWriteStream class methodsFor:'documentation'! |
298 !SplittingWriteStream class methodsFor:'documentation'! |
299 |
299 |
300 version |
300 version |
301 ^ '$Header$' |
301 ^ '$Header$' |
302 ! ! |
302 ! |
303 |
303 |
|
304 version_CVS |
|
305 ^ '$Header$' |
|
306 ! ! |
|
307 |