equal
deleted
inserted
replaced
123 ] |
123 ] |
124 ! ! |
124 ! ! |
125 |
125 |
126 !WeakArray class methodsFor:'instance creation'! |
126 !WeakArray class methodsFor:'instance creation'! |
127 |
127 |
128 new:size |
128 basicNew:size |
129 "return a new weakArray with size slots" |
129 "return a new weakArray with size slots" |
130 |
130 |
131 "This is a kludge: I would like to set the WEAK-flag in the classes |
131 "This is a kludge: I would like to set the WEAK-flag in the classes |
132 initialize method, but (currently) the order in which the class-initialize |
132 initialize method, but (currently) the order in which the class-initialize |
133 methods are called is not defined ... |
133 methods are called is not defined ... |
142 AlreadyInitialized isNil ifTrue:[ |
142 AlreadyInitialized isNil ifTrue:[ |
143 self flags:(Behavior flagWeakPointers). |
143 self flags:(Behavior flagWeakPointers). |
144 AlreadyInitialized := true |
144 AlreadyInitialized := true |
145 ]. |
145 ]. |
146 |
146 |
147 ^ (self basicNew:size) registerAsWeakArray |
147 ^ (super basicNew:size) registerAsWeakArray |
148 |
148 |
149 "Modified: 25.1.1997 / 13:17:22 / cg" |
149 "Modified: 25.1.1997 / 13:17:22 / cg" |
150 ! ! |
150 ! ! |
151 |
151 |
152 !WeakArray class methodsFor:'queries'! |
152 !WeakArray class methodsFor:'queries'! |
884 ! ! |
884 ! ! |
885 |
885 |
886 !WeakArray class methodsFor:'documentation'! |
886 !WeakArray class methodsFor:'documentation'! |
887 |
887 |
888 version |
888 version |
889 ^ '$Header: /cvs/stx/stx/libbasic/WeakArray.st,v 1.50 1997-10-28 19:04:24 cg Exp $' |
889 ^ '$Header: /cvs/stx/stx/libbasic/WeakArray.st,v 1.51 1997-11-02 20:33:07 cg Exp $' |
890 ! ! |
890 ! ! |
891 WeakArray initialize! |
891 WeakArray initialize! |