equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995 by eXept Software AG |
2 COPYRIGHT (c) 1995 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
318 ]. |
316 ]. |
319 |
317 |
320 "Created: / 07-06-1996 / 09:27:42 / stefan" |
318 "Created: / 07-06-1996 / 09:27:42 / stefan" |
321 "Modified: / 08-08-2006 / 16:11:30 / cg" |
319 "Modified: / 08-08-2006 / 16:11:30 / cg" |
322 "Modified: / 17-03-2017 / 11:07:07 / stefan" |
320 "Modified: / 17-03-2017 / 11:07:07 / stefan" |
|
321 ! |
|
322 |
|
323 keysDo:aBlock |
|
324 "evaluate aBlock for each key (i.e. each selector)" |
|
325 |
|
326 |key value sz "{ Class: SmallInteger }"| |
|
327 |
|
328 sz := self basicSize. |
|
329 1 to:sz by:2 do:[:i | |
|
330 key := self basicAt:i. |
|
331 value := self basicAt:(i+1). |
|
332 (key notNil and:[value notNil]) ifTrue:[ |
|
333 aBlock value:key. |
|
334 ] |
|
335 ]. |
323 ! ! |
336 ! ! |
324 |
337 |
325 !MethodDictionary methodsFor:'private'! |
338 !MethodDictionary methodsFor:'private'! |
326 |
339 |
327 atIndex:idx putKey:key andValue:value |
340 atIndex:idx putKey:key andValue:value |