# HG changeset patch
# User Michael Beyl <mb@exept.de>
# Date 1012247984 -3600
# Node ID 67f75385259a3a14ee9ccc3ee417873c25e3de62
# Parent  5267b5738779bb8a92b022e034f0f7e9f43605bc
allow for single nextPutAll block

diff -r 5267b5738779 -r 67f75385259a ActorStream.st
--- a/ActorStream.st	Mon Jan 28 15:29:28 2002 +0100
+++ b/ActorStream.st	Mon Jan 28 20:59:44 2002 +0100
@@ -86,7 +86,14 @@
     nextPutBlock notNil ifTrue:[  
         ^ nextPutBlock value:something
     ].
-    self error:'action for nextPut: is undefined'
+    nextPutAllBlock notNil ifTrue:[    
+        "/ fallBack to nextPutAll.
+        self nextPutAll:(something asString).
+        ^ self
+    ].
+    self error:'action for nextPut:/nextPutAll: are undefined'
+
+    "Modified: / 28.1.2002 / 20:59:32 / micha"
 !
 
 nextPutAll:something
@@ -168,5 +175,5 @@
 !ActorStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ActorStream.st,v 1.8 2001-11-08 15:31:12 md Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ActorStream.st,v 1.9 2002-01-28 19:59:44 mb Exp $'
 ! !