Allow for readOnly TextCollectors
authorStefan Vogel <sv@exept.de>
Thu, 30 Mar 2006 14:39:13 +0200
changeset 3295 37cb2b5d579a
parent 3294 a3266e46b191
child 3296 7322b2e5222c
Allow for readOnly TextCollectors
TextCollector.st
--- a/TextCollector.st	Wed Mar 29 10:55:42 2006 +0200
+++ b/TextCollector.st	Thu Mar 30 14:39:13 2006 +0200
@@ -257,7 +257,7 @@
             ].
 
             "and the last partial line - if any"
-            outstandingLine size > 0 ifTrue:[
+            outstandingLine size ~~ 0 ifTrue:[
                 self isInInsertMode ifTrue:[
                     self insertStringAtCursor:outstandingLine.
                 ] ifFalse:[
@@ -631,7 +631,7 @@
     ].
 
     access critical:[
-        outstandingLine size > 0 ifTrue:[
+        outstandingLine size ~~ 0 ifTrue:[
             outstandingLine := outstandingLine , aString
         ] ifFalse:[
             outstandingLine := aString
@@ -678,7 +678,7 @@
     ].
 
     access critical:[
-        outstandingLine size > 0 ifTrue:[
+        outstandingLine size ~~ 0 ifTrue:[
             outstandingLine := outstandingLine , aString
         ] ifFalse:[
             outstandingLine := aString
@@ -691,12 +691,12 @@
         outstandingLine := ''.
 
         collecting ifTrue:[
-            flushPending ifFalse:[
-                self installDelayedUpdate
-            ] ifTrue:[
+            flushPending ifTrue:[
                 outstandingLines size > collectSize ifTrue:[
                     self endEntry
                 ]
+            ] ifFalse:[
+                self installDelayedUpdate
             ]
         ] ifFalse:[
             self endEntry.
@@ -801,7 +801,7 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.90 2006-01-24 20:32:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.91 2006-03-30 12:39:13 stefan Exp $'
 ! !
 
 TextCollector initialize!