--- a/SplittingWriteStream.st Mon Sep 04 13:12:21 2000 +0200
+++ b/SplittingWriteStream.st Mon Sep 11 20:09:01 2000 +0200
@@ -1,3 +1,5 @@
+"{ Package: 'stx:libbasic2' }"
+
Stream subclass:#SplittingWriteStream
instanceVariableNames:'outStream1 outStream2'
classVariableNames:''
@@ -52,6 +54,28 @@
^ self basicNew setOutStream1:stream1 outStream2:stream2
! !
+!SplittingWriteStream methodsFor:'accessing'!
+
+outStream1
+ "return the value of the instance variable 'outStream1' (automatically generated)"
+
+ ^ outStream1!
+
+outStream1:something
+ "set the value of the instance variable 'outStream1' (automatically generated)"
+
+ outStream1 := something.!
+
+outStream2
+ "return the value of the instance variable 'outStream2' (automatically generated)"
+
+ ^ outStream2!
+
+outStream2:something
+ "set the value of the instance variable 'outStream2' (automatically generated)"
+
+ outStream2 := something.! !
+
!SplittingWriteStream methodsFor:'private access'!
setOutStream1:stream1 outStream2:stream2
@@ -95,5 +119,5 @@
!SplittingWriteStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/SplittingWriteStream.st,v 1.1 1999-10-13 19:49:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/SplittingWriteStream.st,v 1.2 2000-09-11 18:09:01 cg Exp $'
! !