The Trunk: System-cwp.526.mcz

> 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 ===============

> 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])!
>
>

> 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])!
>
>

> Do we need to put out a new alpha image with a recompileAll?
>
> On Sun, Apr 28, 2013 at 12:44 PM,  <[hidden email]> wrote:
>> 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])!
>>
>>
>

>
>
>
> On Sun, Apr 28, 2013 at 5:34 PM, Chris Muller <[hidden email]> wrote:
>>
>> Do we need to put out a new alpha image with a recompileAll?
>
>
> Yeah, that would be good.
>
> But it won't work at the moment, because Encoder>>litIndex: has a halt in
> it. Eliot, the method has your initials. Do you remember what that was for?