--- a/HRegistry.st Mon Nov 11 12:31:08 1996 +0100
+++ b/HRegistry.st Mon Nov 11 12:36:42 1996 +0100
@@ -49,7 +49,11 @@
!HandleRegistry methodsFor:'dispose handling'!
informDispose:someHandle
+ "an element was disposed; let my dependents know about this"
+
self changed:#finalize with:someHandle from:self
+
+ "Modified: 11.11.1996 / 12:35:27 / cg"
! !
!HandleRegistry methodsFor:'redefined to block'!
@@ -69,5 +73,5 @@
!HandleRegistry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/HRegistry.st,v 1.7 1996-04-25 15:59:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/HRegistry.st,v 1.8 1996-11-11 11:36:42 cg Exp $'
! !
--- a/HandleRegistry.st Mon Nov 11 12:31:08 1996 +0100
+++ b/HandleRegistry.st Mon Nov 11 12:36:42 1996 +0100
@@ -49,7 +49,11 @@
!HandleRegistry methodsFor:'dispose handling'!
informDispose:someHandle
+ "an element was disposed; let my dependents know about this"
+
self changed:#finalize with:someHandle from:self
+
+ "Modified: 11.11.1996 / 12:35:27 / cg"
! !
!HandleRegistry methodsFor:'redefined to block'!
@@ -69,5 +73,5 @@
!HandleRegistry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/HandleRegistry.st,v 1.7 1996-04-25 15:59:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/HandleRegistry.st,v 1.8 1996-11-11 11:36:42 cg Exp $'
! !
--- a/Registry.st Mon Nov 11 12:31:08 1996 +0100
+++ b/Registry.st Mon Nov 11 12:36:42 1996 +0100
@@ -17,7 +17,7 @@
category:'System-Support'
!
-!Registry class methodsFor:'documentation'!
+!Registry class methodsFor:'documentation'!
copyright
"
@@ -39,7 +39,7 @@
A class, which wants to be informed of instance-death, can put a created object
into a registry. The registry will create a (shallow-)copy of the object, and
watch out for death of the original object. When it dies, the copy will
- be sent the #disposed-message.
+ be sent a #disposed-message.
The trick with the shallow copy is especially nice, you can think of it as
being the original object which died.
@@ -286,8 +286,8 @@
"Created: 15.6.1996 / 15:24:41 / cg"
! !
-!Registry class methodsFor:'documentation'!
+!Registry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.31 1996-10-18 12:34:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.32 1996-11-11 11:36:28 cg Exp $'
! !