--- a/TextColl.st	Sat May 18 17:42:59 1996 +0200
+++ b/TextColl.st	Sat May 18 18:35:43 1996 +0200
@@ -378,25 +378,36 @@
 nextPut:something
     "this allows TextCollectors to be used Stream-wise"
 
-    flushPending ifTrue:[
-	self endEntry
+    (something isCharacter) ifTrue:[
+        ((something == Character cr) or:[something == Character nl]) ifTrue:[
+            ^ self cr
+        ].
     ].
-    (something isMemberOf:Character) ifTrue:[
-	((something == Character cr) or:[something == Character nl]) ifTrue:[
-	    ^ self cr
-	].
-	self insertCharAtCursor:something
-    ] ifFalse:[
-	self insertStringAtCursor:(something printString).
-	self checkLineLimit
-    ].
-    device flush
+    self show:(something asString).
+
+"/    flushPending ifTrue:[
+"/        self endEntry
+"/    ].
+"/    (something isMemberOf:Character) ifTrue:[
+"/        ((something == Character cr) or:[something == Character nl]) ifTrue:[
+"/            ^ self cr
+"/        ].
+"/        self insertCharAtCursor:something
+"/    ] ifFalse:[
+"/        self insertStringAtCursor:(something printString).
+"/        self checkLineLimit
+"/    ].
+"/    device flush
+
+    "Modified: 18.5.1996 / 18:30:39 / cg"
 !
 
 nextPutAll:something
     "this allows TextCollectors to be used Stream-wise"
 
-    ^ self nextPut:something
+    ^ self show:something
+
+    "Modified: 18.5.1996 / 18:31:11 / cg"
 !
 
 show:anObject
@@ -465,5 +476,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.29 1996-05-18 14:13:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.30 1996-05-18 16:35:43 cg Exp $'
 ! !