[squeak-dev] The Inbox: System-jr.948.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue May 16 17:09:04 UTC 2017
A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-jr.948.mcz
==================== Summary ====================
Name: System-jr.948
Author: jr
Time: 5 May 2017, 12:08:58.857884 am
UUID: 4a19b143-6a23-b549-ab15-0d548da859f4
Ancestors: System-ul.947
incorporate behaviors from other environments in allBehaviorsDo:
This enables senders/implementors and method searches across environments.
=============== Diff against System-ul.947 ===============
Item was changed:
----- Method: SystemNavigation>>allBehaviorsDo: (in category 'query') -----
allBehaviorsDo: aBlock
"Evaluate the argument, aBlock, for each kind of Behavior in the system
(that is, Object and its subclasses and Traits).
ar 7/15/1999: The code below will not enumerate any obsolete or anonymous
behaviors for which the following should be executed:
Smalltalk allObjectsDo:[:obj| obj isBehavior ifTrue:[aBlock value: obj]].
but what follows is way faster than enumerating all objects."
+ Environment allInstancesDo: [:environment |
+ environment allClassesAndTraitsDo: [ :class |
+ aBlock value: class.
+ class isTrait ifFalse: [ "class of a Trait is Trait, there are no MetaTraits"
+ aBlock value: class class ] ] ]!
- self environment allClassesAndTraitsDo: [ :class |
- aBlock value: class.
- class isTrait ifFalse: [ "class of a Trait is Trait, there are no MetaTraits"
- aBlock value: class class ] ]!
More information about the Squeak-dev
mailing list
|