equal
deleted
inserted
replaced
148 |
148 |
149 do:aBlock |
149 do:aBlock |
150 "evaluate aBlock for each registered object" |
150 "evaluate aBlock for each registered object" |
151 |
151 |
152 registeredObjects notNil ifTrue:[ |
152 registeredObjects notNil ifTrue:[ |
153 registeredObjects nonNilElementsDo:[:el | |
153 registeredObjects validElementsDo:aBlock |
154 el ~~ 0 ifTrue:[ |
|
155 aBlock value:el |
|
156 ] |
|
157 ] |
|
158 ] |
154 ] |
159 ! ! |
155 ! ! |
160 |
156 |
161 !Registry methodsFor:'private'! |
157 !Registry methodsFor:'private'! |
162 |
158 |
372 ! ! |
368 ! ! |
373 |
369 |
374 !Registry class methodsFor:'documentation'! |
370 !Registry class methodsFor:'documentation'! |
375 |
371 |
376 version |
372 version |
377 ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.37 1997-01-16 17:08:59 cg Exp $' |
373 ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.38 1997-01-17 15:45:41 cg Exp $' |
378 ! ! |
374 ! ! |