equal
deleted
inserted
replaced
148 ] |
148 ] |
149 ! |
149 ! |
150 |
150 |
151 unregister:anObject |
151 unregister:anObject |
152 "remove registration of anObject, without telling the phantom; |
152 "remove registration of anObject, without telling the phantom; |
153 should be sent, if we are no more interrested in destruction of |
153 should be sent, if we are no more interested in destruction of |
154 anObject (i.e. it no longer holds external resources)." |
154 anObject (i.e. it no longer holds external resources)." |
155 |
155 |
156 |index| |
156 |index| |
157 |
157 |
158 index := registeredObjects identityIndexOf:anObject ifAbsent:[0]. |
158 index := registeredObjects identityIndexOf:anObject ifAbsent:[0]. |
212 ! ! |
212 ! ! |
213 |
213 |
214 !Registry class methodsFor:'documentation'! |
214 !Registry class methodsFor:'documentation'! |
215 |
215 |
216 version |
216 version |
217 ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.21 1995-11-23 17:12:37 cg Exp $' |
217 ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.22 1995-12-15 12:47:47 cg Exp $' |
218 ! ! |
218 ! ! |