equal
deleted
inserted
replaced
82 |
82 |
83 asSharedCollection |
83 asSharedCollection |
84 ^ self. |
84 ^ self. |
85 ! ! |
85 ! ! |
86 |
86 |
|
87 !SharedCollection methodsFor:'copying'! |
|
88 |
|
89 shallowCopy |
|
90 "analog to species - copy the real collection" |
|
91 |
|
92 ^ realCollection shallowCopy |
|
93 ! ! |
|
94 |
87 !SharedCollection methodsFor:'initialization'! |
95 !SharedCollection methodsFor:'initialization'! |
88 |
96 |
89 initializeFor:aCollection |
97 initializeFor:aCollection |
90 accessLock := RecursionLock new. |
98 accessLock := RecursionLock new. |
91 realCollection := aCollection. |
99 realCollection := aCollection. |
210 rslt := msg sendTo:realCollection |
218 rslt := msg sendTo:realCollection |
211 ]. |
219 ]. |
212 ^ rslt |
220 ^ rslt |
213 ! ! |
221 ! ! |
214 |
222 |
215 !SharedCollection methodsFor:'special'! |
223 !SharedCollection methodsFor:'queries'! |
216 |
224 |
217 species |
225 species |
218 "returns non shared collections" |
226 "returns non shared collections" |
219 |
227 |
220 ^ realCollection species |
228 ^ realCollection species |
229 ! ! |
237 ! ! |
230 |
238 |
231 !SharedCollection class methodsFor:'documentation'! |
239 !SharedCollection class methodsFor:'documentation'! |
232 |
240 |
233 version |
241 version |
234 ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.11 2013-06-26 08:00:52 stefan Exp $' |
242 ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.12 2014-03-26 10:16:10 stefan Exp $' |
235 ! |
243 ! |
236 |
244 |
237 version_CVS |
245 version_CVS |
238 ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.11 2013-06-26 08:00:52 stefan Exp $' |
246 ^ '$Header: /cvs/stx/stx/libbasic2/SharedCollection.st,v 1.12 2014-03-26 10:16:10 stefan Exp $' |
239 ! ! |
247 ! ! |
240 |
248 |