9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 Registry subclass:#HandleRegistry |
13 Registry subclass:#HandleRegistry |
14 instanceVariableNames:'' |
14 instanceVariableNames:'' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'System-Support' |
17 category:'System-Support' |
18 ! |
18 ! |
19 |
19 |
20 !HandleRegistry class methodsFor:'documentation'! |
20 !HandleRegistry class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
31 other person. No title to or ownership of the software is |
31 other person. No title to or ownership of the software is |
32 hereby transferred. |
32 hereby transferred. |
33 " |
33 " |
34 ! |
34 ! |
35 |
35 |
36 version |
|
37 ^ '$Header: /cvs/stx/stx/libbasic/HandleRegistry.st,v 1.4 1995-11-11 15:23:25 cg Exp $' |
|
38 ! |
|
39 |
|
40 documentation |
36 documentation |
41 " |
37 " |
42 HandleRegistries are like Registries, in that they watch for the death of |
38 HandleRegistries are like Registries, in that they watch for the death of |
43 a registered object. However, they send a self-change notification, passing the registered |
39 a registered object. However, they send a self-change notification, passing the registered |
44 handle as argument, instead of creating a shallow copy and letting it do the finalization. |
40 handle as argument, instead of creating a shallow copy and letting it do the finalization. |
45 Use Registry for objects which know themself how to clean up; |
41 Use Registry for objects which know themself how to clean up; |
46 use HandleRegistry, if someone else does the cleanup. |
42 use HandleRegistry, if someone else does the cleanup. |
47 " |
43 " |
|
44 ! |
|
45 |
|
46 version |
|
47 ^ '$Header: /cvs/stx/stx/libbasic/HandleRegistry.st,v 1.5 1995-11-23 02:00:59 cg Exp $' |
48 ! ! |
48 ! ! |
49 |
49 |
50 !HandleRegistry methodsFor:'dispose handling'! |
50 !HandleRegistry methodsFor:'dispose handling'! |
51 |
51 |
52 informDispose:someHandle |
52 informDispose:someHandle |
53 self changed:#finalize with:someHandle from:self |
53 self changed:#finalize with:someHandle from:self |
54 ! ! |
54 ! ! |
55 |
55 |
56 !HandleRegistry methodsFor:'redefined to block'! |
56 !HandleRegistry methodsFor:'redefined to block'! |
57 |
57 |
|
58 register:anObject |
|
59 "not useful for HandleRegistry - use #register:as:" |
|
60 |
|
61 self shouldNotImplement |
|
62 ! |
|
63 |
58 registerChange:anObject |
64 registerChange:anObject |
59 "not useful for HandleRegistry" |
65 "not useful for HandleRegistry" |
60 |
66 |
61 self shouldNotImplement |
67 self shouldNotImplement |
62 ! |
68 ! ! |
63 |
69 |
64 register:anObject |
|
65 "not useful for HandleRegistry - use #register:as:" |
|
66 |
|
67 self shouldNotImplement |
|
68 ! ! |
|