[Pkg] The Trunk: System-fbs.535.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue May 21 20:23:53 UTC 2013
Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.535.mcz
==================== Summary ====================
Name: System-fbs.535
Author: fbs
Time: 21 May 2013, 9:22:56.014 pm
UUID: f41c3215-fd9f-478a-a4db-0bea16b3b456
Ancestors: System-fbs.534
Environmentally-aware SystemNavigation didn't look at the metaclass heirarchy, so couldn't find class-side implementors, for instance.
=============== Diff against System-fbs.534 ===============
Item was changed:
----- Method: MethodReference>>printOn: (in category 'printing') -----
printOn: aStream
+ | actualClass |
"Print the receiver on a stream"
+ actualClass := classSymbol asString.
+ classIsMeta ifTrue: [actualClass := actualClass, ' class'].
-
super printOn: aStream.
+ aStream nextPutAll: ' ', actualClass, ' >> ', methodSymbol printString.!
- aStream nextPutAll: ' ', self actualClass name, ' >> ', methodSymbol!
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."
+ self environment allClassesAndTraitsDo: [:class |
+ aBlock value: class.
+ aBlock value: class class].!
- self environment allClassesAndTraitsDo: aBlock.!
More information about the Packages
mailing list