--- a/Registry.st Sat Mar 25 22:53:57 1995 +0100
+++ b/Registry.st Sat Mar 25 23:08:34 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.13 1995-03-08 23:39:36 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.14 1995-03-25 22:08:34 claus Exp $
'!
!Registry class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.13 1995-03-08 23:39:36 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.14 1995-03-25 22:08:34 claus Exp $
"
!
@@ -66,7 +66,10 @@
Registries use #shallowCopyForFinalization to aquire the copy of the original,
this can be redefined in registered classes for faster copying
(typically, not all internal state but only some device handles are needed for
- finalization).
+ finalization). I if the to-be-registered object is large, this method may also
+ return a stub (placeHolder) object. (i.e. there is no need for the copy to be
+ of the same class as the original, as long as it implements disposed and frees
+ the relevant OS resources ...)
See axample uses in Form, Color, ExternalStream and Font
"
@@ -137,8 +140,8 @@
registeredObjects isNil ifTrue:[
registeredObjects := WeakArray new:10.
registeredObjects watcher:self.
+ phantomArray := Array new:10.
registeredObjects at:1 put:anObject.
- phantomArray := Array new:10.
phantomArray at:1 put:phantom.
cleanState := true.
ObjectMemory addDependent:self.