hg/stx-libbasic: comparison Registry.st

equal deleted inserted replaced

-:9df1edfc0b54
+:0f841258ec4a
 documentation
 "
 Registries provide an easy interface to using WeakArrays.
 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
+into a registry. The registry will create an executor, which is a (shallow-)copy
-watch out for death of the original object. When it dies, the copy will
+of the object, and watch out for death of the original object. When it dies,
-be sent a #disposed-message.
+the executor will be sent a #finalize message.
 The trick with the shallow copy is especially nice, you can think of it as
 being the original object which died.
 All objects, which keep external resources (such as fileDescriptors, fonts,
 colormap-entries etc.) should be registered, so that the underlying resource
 can be freed when the object goes away.
 Of course, you too can use it to do whatever you need to do in case of the
 death of an object.
-Registries use #shallowCopyForFinalization to aquire the copy of the original,
+Registries use #executor 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). 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
+of the same class as the original, as long as it implements #finalize and frees
 the relevant OS resources ...)
 Example uses are found in Form, Color, ExternalStream and Font
 [author:]
 Claus Gittinger
 ! !
 !Registry methodsFor:'dispose handling'!
 informDispose:someHandle
-"send a dispose message - this is sent to the phantom,
+"send a dispose message - this is sent to the executor,
 since the original is already gone"
-someHandle disposed
+someHandle finalize
 "Modified: 16.1.1997 / 17:23:46 / cg"
 !
 update:something with:aParameter from:changedObject
 "an instance has been destroyed - look which one it was"
-|phantom
+|executor
 index  "{ Class: SmallInteger }"
 sz     "{ Class: SmallInteger }"
 o myHandleArray wasBlocked|
 something == #ElementExpired ifTrue:[
 index := 1.
 [index <= sz] whileTrue:[
 o := registeredObjects at:index.
 o notNil ifTrue:[
 o == 0 ifTrue:[
-phantom := myHandleArray at:index.
+executor := myHandleArray at:index.
 registeredObjects at:index put:nil.
 tally := tally - 1.
-phantom notNil ifTrue:[
+executor notNil ifTrue:[
 myHandleArray at:index put:nil.
 "/
 "/ allow interrupts for a while ...
 "/
 wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
-self informDispose:phantom.
+self informDispose:executor.
 OperatingSystem blockInterrupts.
 "/
 "/ any change in an interrupt or dispose handling ?
 "/
 !Registry methodsFor:'private'!
 repairTally
 |sz          "{ Class: SmallInteger }"
 cnt         "{ Class: SmallInteger }"
-phantom wasBlocked|
+executor wasBlocked|
 wasBlocked := OperatingSystem blockInterrupts.
 indexTable := WeakIdentityDictionary new.
 sz := registeredObjects size.
 cnt := 0.
 1 to:sz do:[:index |
-((phantom := registeredObjects at:index) notNil
+((executor := registeredObjects at:index) notNil
-and:[phantom ~~ 0]) ifTrue:[
+and:[executor ~~ 0]) ifTrue:[
-indexTable at:phantom put:index.
+indexTable at:executor put:index.
 cnt := cnt + 1.
 ] ifFalse:[
 handleArray at:index put:nil.
 registeredObjects at:index put:nil.
 ]
 resize
 |sz          "{ Class: SmallInteger }"
 dstIndex    "{ Class: SmallInteger }"
 realNewSize "{ Class: SmallInteger }"
 newObjects newHandles wasBlocked
-phantom|
+executor|
 sz := registeredObjects size.
 (sz > 50 and:[tally < (sz // 2)]) ifTrue:[
 "/ shrink
 newHandles := Array new:realNewSize.
 indexTable := WeakIdentityDictionary new.
 dstIndex := 1.
 1 to:sz do:[:index |
-(phantom := registeredObjects at:index) notNil ifTrue:[
+(executor := registeredObjects at:index) notNil ifTrue:[
 dstIndex > realNewSize ifTrue:[
 'Registry [error]: size given is too small in resize' errorPrintCR.
 self repairTally.
 wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 ^ self
 ].
-newObjects at:dstIndex put:phantom.
+newObjects at:dstIndex put:executor.
 newHandles at:dstIndex put:(handleArray at:index).
-indexTable at:phantom put:dstIndex.
+indexTable at:executor put:dstIndex.
 dstIndex := dstIndex + 1
 ]
 ].
 wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 ^ self
 ].
 "/ mhmh - a registeredObject vanished, but its
-"/ phantom is still there ...
+"/ executor is still there ...
 "/
 "/ this may happen, if the registries dispose handling is
 "/ currently being executed by a lower priority process,
 "/ and the registeredObject has already been nilled,
-"/ but the phantom is being notified (in the other process).
+"/ but the executor is being notified (in the other process).
-"/        'Registry [info]: leftOver phantom: ' infoPrint. p infoPrintCR.
+"/        'Registry [info]: leftOver executor: ' infoPrint. p infoPrintCR.
-"/        "tell the phantom"
+"/        "tell the executor"
 "/        handleArray at:index put:nil.
 "/        tally := tally - 1.
 "/        self informDispose:p.
 "/        p := nil.
 "Modified: / 7.1.1997 / 16:56:03 / stefan"
 "Modified: / 22.4.1998 / 11:09:23 / cg"
 !
 registerChange:anObject
-"a registered object has changed, create a new phantom"
+"a registered object has changed, create a new executor"
 |index wasBlocked copy|
 wasBlocked := OperatingSystem blockInterrupts.
 registeredObjects isNil ifTrue:[
 "Modified: 6.3.1997 / 22:24:15 / cg"
 !
 unregister:anObject
-"remove registration of anObject, without telling the phantom;
+"remove registration of anObject, without telling the executor;
 should be sent, if we are no more interested in destruction of
 anObject (i.e. it no longer holds external resources)."
 |index wasBlocked|
 ! !
 !Registry class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.55 2002-02-26 13:00:48 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.56 2002-03-04 14:20:19 stefan Exp $'
 ! !

changeset 6439	0f841258ec4a
parent 6421	58dca33cf0fc
child 6468	2c481bb59a0f