equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
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 |
|
13 "{ Package: 'stx:libbasic' }" |
12 |
14 |
13 IdentitySet subclass:#WeakIdentitySet |
15 IdentitySet subclass:#WeakIdentitySet |
14 instanceVariableNames:'' |
16 instanceVariableNames:'' |
15 classVariableNames:'' |
17 classVariableNames:'' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
128 ^ super add:newElement. |
130 ^ super add:newElement. |
129 ]. |
131 ]. |
130 |
132 |
131 [ |
133 [ |
132 ret := super add:newElement. |
134 ret := super add:newElement. |
133 ] valueNowOrOnUnwindDo:[ |
135 ] ensure:[ |
134 OperatingSystem unblockInterrupts |
136 OperatingSystem unblockInterrupts |
135 ]. |
137 ]. |
136 ^ ret |
138 ^ ret |
137 |
139 |
138 "Modified: 29.1.1997 / 15:06:57 / cg" |
140 "Modified: 29.1.1997 / 15:06:57 / cg" |
150 ^ super remove:anObject ifAbsent:exceptionBlock. |
152 ^ super remove:anObject ifAbsent:exceptionBlock. |
151 ]. |
153 ]. |
152 |
154 |
153 [ |
155 [ |
154 ret := super remove:anObject ifAbsent:exceptionBlock |
156 ret := super remove:anObject ifAbsent:exceptionBlock |
155 ] valueNowOrOnUnwindDo:[ |
157 ] ensure:[ |
156 OperatingSystem unblockInterrupts |
158 OperatingSystem unblockInterrupts |
157 ]. |
159 ]. |
158 ^ ret |
160 ^ ret |
159 |
161 |
160 "Modified: 29.1.1997 / 15:07:19 / cg" |
162 "Modified: 29.1.1997 / 15:07:19 / cg" |
294 ! ! |
296 ! ! |
295 |
297 |
296 !WeakIdentitySet class methodsFor:'documentation'! |
298 !WeakIdentitySet class methodsFor:'documentation'! |
297 |
299 |
298 version |
300 version |
299 ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.30 1999-08-04 14:15:38 cg Exp $' |
301 ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.31 2002-02-26 12:58:29 cg Exp $' |
300 ! ! |
302 ! ! |