Add (dummy fore now) #beginEntry for ST80 compat.
--- 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 $'
! !
--- 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 $'
! !