equal
deleted
inserted
replaced
138 ^ self keys do:[:key | aBlock value:(self at:key)] |
138 ^ self keys do:[:key | aBlock value:(self at:key)] |
139 |
139 |
140 "Created: / 06-03-2012 / 17:07:54 / cg" |
140 "Created: / 06-03-2012 / 17:07:54 / cg" |
141 ! |
141 ! |
142 |
142 |
|
143 includesKey:aSymbol |
|
144 ^ self keys includes:aSymbol |
|
145 |
|
146 " |
|
147 OpenGLConstants includesKey:#GL3Bytes |
|
148 " |
|
149 ! |
|
150 |
|
151 keyAtValue:value ifAbsent:exceptionValue |
|
152 self keysDo:[:k | |
|
153 (self at:k) == value ifTrue:[ ^ k ]. |
|
154 ]. |
|
155 ^ exceptionValue value |
|
156 |
|
157 "Created: / 08-09-2011 / 05:51:10 / cg" |
|
158 ! |
|
159 |
|
160 keys |
|
161 "retrieve all keys (= pool var names)" |
|
162 |
|
163 ^ self classVarNames |
|
164 |
|
165 " |
|
166 OpenGLConstants keys |
|
167 " |
|
168 |
|
169 "Modified (comment): / 06-03-2012 / 17:09:11 / cg" |
|
170 ! |
|
171 |
143 keysAndValuesDo:aBlock |
172 keysAndValuesDo:aBlock |
144 "enumerate all keys (= pool var names) with their value" |
173 "enumerate all keys (= pool var names) with their value" |
145 |
174 |
146 ^ self keys do:[:key | aBlock value:key value:(self at:key)] |
175 ^ self keys do:[:key | aBlock value:key value:(self at:key)] |
147 |
176 |
148 "Created: / 06-03-2012 / 17:07:41 / cg" |
177 "Created: / 06-03-2012 / 17:07:41 / cg" |
|
178 ! |
|
179 |
|
180 keysDo:aBlock |
|
181 "enumerate all keys (= pool var names)" |
|
182 |
|
183 ^ self keys do:aBlock |
|
184 |
|
185 "Modified (comment): / 06-03-2012 / 17:08:54 / cg" |
149 ! ! |
186 ! ! |
150 |
187 |
151 !SharedPool class methodsFor:'misc ui support'! |
188 !SharedPool class methodsFor:'misc ui support'! |
152 |
189 |
153 iconInBrowserSymbol |
190 iconInBrowserSymbol |
185 classBindingOf: varName |
222 classBindingOf: varName |
186 "For initialization messages grant the regular scope" |
223 "For initialization messages grant the regular scope" |
187 |
224 |
188 self shouldImplement. "not yet finished" |
225 self shouldImplement. "not yet finished" |
189 ^ super bindingOf: varName |
226 ^ super bindingOf: varName |
190 ! |
|
191 |
|
192 keys |
|
193 "retrieve all keys (= pool var names)" |
|
194 |
|
195 ^ self classVarNames |
|
196 |
|
197 " |
|
198 OpenGLConstants keys |
|
199 " |
|
200 |
|
201 "Modified (comment): / 06-03-2012 / 17:09:11 / cg" |
|
202 ! |
|
203 |
|
204 keysDo:aBlock |
|
205 "enumerate all keys (= pool var names)" |
|
206 |
|
207 ^ self keys do:aBlock |
|
208 |
|
209 "Modified (comment): / 06-03-2012 / 17:08:54 / cg" |
|
210 ! ! |
227 ! ! |
211 |
228 |
212 !SharedPool class methodsFor:'printing & storing'! |
229 !SharedPool class methodsFor:'printing & storing'! |
213 |
230 |
214 displayString |
231 displayString |
228 ! ! |
245 ! ! |
229 |
246 |
230 !SharedPool class methodsFor:'documentation'! |
247 !SharedPool class methodsFor:'documentation'! |
231 |
248 |
232 version |
249 version |
233 ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.20 2012/03/06 16:09:32 cg Exp $' |
250 ^ '$Id: SharedPool.st 10794 2012-03-27 15:32:25Z vranyj1 $' |
234 ! |
251 ! |
235 |
252 |
236 version_CVS |
253 version_CVS |
237 ^ '§Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.20 2012/03/06 16:09:32 cg Exp §' |
254 ^ '§Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.20 2012/03/06 16:09:32 cg Exp §' |
238 ! |
255 ! |
239 |
256 |
240 version_SVN |
257 version_SVN |
241 ^ '$Id: SharedPool.st 10792 2012-03-21 17:45:38Z vranyj1 $' |
258 ^ '$Id: SharedPool.st 10794 2012-03-27 15:32:25Z vranyj1 $' |
242 ! ! |
259 ! ! |