--- a/TextCollector.st	Thu Jul 22 02:10:33 1999 +0200
+++ b/TextCollector.st	Fri Jul 23 00:37:22 1999 +0200
@@ -198,11 +198,16 @@
     |nLines lines|
 
     shown ifFalse:[
-        flushPending ifFalse:[
-            self installDelayedUpdate.
-        ].
-        ^ self
+        "/ when iconified or not yet shown, keep
+        "/ collecting. But not too much ...
+        outstandingLines size < 300 ifTrue:[
+            flushPending ifFalse:[
+                self installDelayedUpdate.
+            ].
+            ^ self
+        ]
     ].
+
     inFlush ifTrue:[^ self].
     flushBlock notNil ifTrue:[
         Processor removeTimedBlock:flushBlock.
@@ -736,5 +741,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.56 1999-05-06 15:08:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.57 1999-07-22 22:37:22 cg Exp $'
 ! !