accessors
authorClaus Gittinger <cg@exept.de>
Mon, 11 Sep 2000 20:09:01 +0200
changeset 912 0252ad15028b
parent 911 bed0a108bb44
child 913 99228537653d
accessors
SplittingWriteStream.st
--- 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 $'
 ! !