--- 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 $'
! !