# HG changeset patch
# User claus
# Date 777685156 -7200
# Node ID e69fade0aa8e23de47e06048507aa964843e335a
# Parent  e895ac4cc7c85271e35ed7bc9e1c3d768677047a
mutual exclusion when updating contents

diff -r e895ac4cc7c8 -r e69fade0aa8e TextColl.st
--- a/TextColl.st	Wed Aug 24 01:38:59 1994 +0200
+++ b/TextColl.st	Wed Aug 24 01:39:16 1994 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.8 1994-08-07 13:18:43 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.9 1994-08-23 23:39:16 claus Exp $
 '!
 
 !TextCollector class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.8 1994-08-07 13:18:43 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.9 1994-08-23 23:39:16 claus Exp $
 "
 !
 
@@ -189,8 +189,8 @@
     Processor removeTimedBlock:flushBlock.
     flushPending := false.
 
-    outstandingLines size ~~ 0 ifTrue:[
-        access critical:[
+    access critical:[
+        outstandingLines size ~~ 0 ifTrue:[
             "insert the bunch of lines - if any"
             lines := outstandingLines.
             outstandingLines := OrderedCollection new.
@@ -204,13 +204,13 @@
                     ]
                 ].
             ].
-            "and the last partial line - if any"
-            outstandingLine notNil ifTrue:[
-                self insertStringAtCursor:outstandingLine.
-                outstandingLine := ''.
-            ].
-            self checkLineLimit
-        ]
+        ].
+        "and the last partial line - if any"
+        outstandingLine notNil ifTrue:[
+            self insertStringAtCursor:outstandingLine.
+            outstandingLine := ''.
+        ].
+        self checkLineLimit
     ]
 ! !
 
@@ -249,8 +249,9 @@
     flushPending ifFalse:[
         flushPending := true.
         "
-         this could run under a process, which dies in the meantime;
-         therefore, we have to interrupt the transcript process.
+         we could run under a process, which dies in the meantime;
+         therefore, we have to arrange for the transcript process to
+         be interrupted and do the update.
         "
         wg := self windowGroup.
         wg isNil ifTrue:[
diff -r e895ac4cc7c8 -r e69fade0aa8e TextCollector.st
--- a/TextCollector.st	Wed Aug 24 01:38:59 1994 +0200
+++ b/TextCollector.st	Wed Aug 24 01:39:16 1994 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.8 1994-08-07 13:18:43 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.9 1994-08-23 23:39:16 claus Exp $
 '!
 
 !TextCollector class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.8 1994-08-07 13:18:43 claus Exp $
+$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.9 1994-08-23 23:39:16 claus Exp $
 "
 !
 
@@ -189,8 +189,8 @@
     Processor removeTimedBlock:flushBlock.
     flushPending := false.
 
-    outstandingLines size ~~ 0 ifTrue:[
-        access critical:[
+    access critical:[
+        outstandingLines size ~~ 0 ifTrue:[
             "insert the bunch of lines - if any"
             lines := outstandingLines.
             outstandingLines := OrderedCollection new.
@@ -204,13 +204,13 @@
                     ]
                 ].
             ].
-            "and the last partial line - if any"
-            outstandingLine notNil ifTrue:[
-                self insertStringAtCursor:outstandingLine.
-                outstandingLine := ''.
-            ].
-            self checkLineLimit
-        ]
+        ].
+        "and the last partial line - if any"
+        outstandingLine notNil ifTrue:[
+            self insertStringAtCursor:outstandingLine.
+            outstandingLine := ''.
+        ].
+        self checkLineLimit
     ]
 ! !
 
@@ -249,8 +249,9 @@
     flushPending ifFalse:[
         flushPending := true.
         "
-         this could run under a process, which dies in the meantime;
-         therefore, we have to interrupt the transcript process.
+         we could run under a process, which dies in the meantime;
+         therefore, we have to arrange for the transcript process to
+         be interrupted and do the update.
         "
         wg := self windowGroup.
         wg isNil ifTrue:[