# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 889198192 -3600
# Node ID 5c09bb2dadef8ef37ea0699e5bd70a1377097fa9
# Parent  fd077de6285d6fda6006e77c59f8b4f8d68c1f63
Add (dummy fore now) #beginEntry for ST80 compat.

diff -r fd077de6285d -r 5c09bb2dadef TextColl.st
--- a/TextColl.st	Thu Mar 05 13:41:59 1998 +0100
+++ b/TextColl.st	Fri Mar 06 16:29:52 1998 +0100
@@ -137,6 +137,14 @@
 
 !TextCollector methodsFor:'accessing'!
 
+beginEntry
+    "noop for now, ST80 compatibility"
+
+    ^ self
+
+    "Created: / 4.3.1998 / 11:08:14 / stefan"
+!
+
 collect:aBoolean
     "turn on/off collecting - if on, do not output immediately
      but collect text and output en-bloque after some time delta"
@@ -304,11 +312,13 @@
 
 reinitialize
     "recreate access-semaphore; image could have been save (theoretically)
-     with the semaphore locked - int this case, we had a deadlock"
+     with the semaphore locked - in this case, we had a deadlock"
 
     flushPending := false.
     access := RecursionLock new. "/ Semaphore forMutualExclusion.
     super reinitialize.
+
+    "Modified: / 5.3.1998 / 10:09:14 / stefan"
 ! !
 
 !TextCollector methodsFor:'private'!
@@ -552,5 +562,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.41 1998-01-19 12:55:57 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.42 1998-03-06 15:29:52 stefan Exp $'
 ! !
diff -r fd077de6285d -r 5c09bb2dadef TextCollector.st
--- a/TextCollector.st	Thu Mar 05 13:41:59 1998 +0100
+++ b/TextCollector.st	Fri Mar 06 16:29:52 1998 +0100
@@ -137,6 +137,14 @@
 
 !TextCollector methodsFor:'accessing'!
 
+beginEntry
+    "noop for now, ST80 compatibility"
+
+    ^ self
+
+    "Created: / 4.3.1998 / 11:08:14 / stefan"
+!
+
 collect:aBoolean
     "turn on/off collecting - if on, do not output immediately
      but collect text and output en-bloque after some time delta"
@@ -304,11 +312,13 @@
 
 reinitialize
     "recreate access-semaphore; image could have been save (theoretically)
-     with the semaphore locked - int this case, we had a deadlock"
+     with the semaphore locked - in this case, we had a deadlock"
 
     flushPending := false.
     access := RecursionLock new. "/ Semaphore forMutualExclusion.
     super reinitialize.
+
+    "Modified: / 5.3.1998 / 10:09:14 / stefan"
 ! !
 
 !TextCollector methodsFor:'private'!
@@ -552,5 +562,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.41 1998-01-19 12:55:57 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.42 1998-03-06 15:29:52 stefan Exp $'
 ! !