[Pkg] The Trunk: System-cwp.526.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Apr 28 17:44:47 UTC 2013
Colin Putney uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cwp.526.mcz
==================== Summary ====================
Name: System-cwp.526
Author: cwp
Time: 28 April 2013, 10:43:06.298 am
UUID: d0a7abd6-1556-4900-b5ca-640d1aed4d7c
Ancestors: System-ul.525
Update Behavior>>allCallsOn to search for references using #bindingOf: rather than #associationAt:. This matches the binding created by the compiler.
=============== Diff against System-ul.525 ===============
Item was changed:
----- Method: Behavior>>allCallsOn (in category '*System-Support') -----
allCallsOn
"Answer a SortedCollection of all the methods that refer to me by name or as part of an association in a global dict."
| theClass |
theClass := self theNonMetaClass.
+ ^(self systemNavigation allCallsOn: (self environment bindingOf: theClass name)),
- ^(self systemNavigation allCallsOn: (self environment associationAt: theClass name)),
(Preferences thoroughSenders
ifTrue: [OrderedCollection new]
ifFalse: [self systemNavigation allCallsOn: theClass name]),
(self systemNavigation allClasses
select: [:c| c sharedPools includes: theClass]
thenCollect:
[:c|
ClassReference new
setClassSymbol: c name
classIsMeta: false
stringVersion: c name])!
More information about the Packages
mailing list