--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/HRegistry.st	Tue Aug 08 02:49:43 1995 +0200
@@ -0,0 +1,77 @@
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+Registry subclass:#HandleRegistry
+       instanceVariableNames:''
+       classVariableNames:''
+       poolDictionaries:''
+       category:'System-Support'
+!
+
+HandleRegistry comment:'
+COPYRIGHT (c) 1993 by Claus Gittinger
+	      All Rights Reserved
+
+$Header: /cvs/stx/stx/libbasic/Attic/HRegistry.st,v 1.1 1995-08-08 00:46:33 claus Exp $
+'!
+
+!HandleRegistry class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libbasic/Attic/HRegistry.st,v 1.1 1995-08-08 00:46:33 claus Exp $
+"
+!
+
+documentation
+"
+    HandleRegistries are like Registries, in that they watch for the death of
+    a registered object. However, they send a self-change notification, passing the registered
+    handle as argument, instead of creating a shallow copy and letting it do the finalization.
+    Use Registry for objects which know themself how to clean up;
+    use HandleRegistry, if someone else does the cleanup.
+"
+! !
+
+!HandleRegistry methodsFor:'dispose handling'!
+
+informDispose:someHandle
+    self changed:#finalize with:someHandle from:self
+! !
+
+!HandleRegistry methodsFor:'redefined to block'!
+
+registerChange:anObject
+    "not useful for HandleRegistry"
+
+    self shouldNotImplement
+!
+
+register:anObject
+    "not useful for HandleRegistry - use #register:as:"
+
+    self shouldNotImplement
+! !