--- a/Object.st Thu Oct 07 13:38:35 1999 +0200
+++ b/Object.st Thu Oct 07 13:47:56 1999 +0200
@@ -21,7 +21,7 @@
DeepCopyErrorSignal AbortSignal ErrorRecursion Dependencies
InfoPrinting ActivityNotificationSignal InternalErrorSignal
NonWeakDependencies SynchronizationSemaphores ObjectAttributes
- OSSignalInterruptSignal'
+ OSSignalInterruptSignal FinalizationLobby'
poolDictionaries:''
category:'Kernel-Objects'
!
@@ -279,6 +279,10 @@
].
].
+ FinalizationLobby isNil ifTrue:[
+ FinalizationLobby := Registry new.
+ ].
+
"/ initialize InfoPrinting to the VM's infoPrint setting
"/ (which can be turned off via a command line argument)
InfoPrinting := ObjectMemory infoPrinting.
@@ -290,7 +294,7 @@
"Modified: / 4.8.1999 / 08:54:06 / stefan"
! !
-!Object class methodsFor:'ST80 compatibility'!
+!Object class methodsFor:'Compatibility - ST80'!
rootError
"return the signal used for error/error: - handling.
@@ -7732,6 +7736,6 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.299 1999-10-07 09:10:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.300 1999-10-07 11:47:56 cg Exp $'
! !
Object initialize!