SystemNavigation >> #allMethodsSelect:localTo:

allMethodsSelect: aBlock localTo: aClass
    "Answer a SortedCollection of each methodr in, above, or below the given
    class that, when used as the argument to aBlock, gives a true result."

    | aSet |
    aSet := Set new.
    Cursor wait showWhile:
        [aClass theNonMetaClass withAllSuperAndSubclassesDoGently:
            [:class |
                class selectorsAndMethodsDo:
                    [:aSelector :aMethod|
                        (aBlock value: aMethod) ifTrue:
                            [aSet add: (MethodReference new
setStandardClass: class methodSymbol: aSelector)]]].
        aClass theNonMetaClass class withAllSuperAndSubclassesDoGently:
            [:class |
                class selectorsAndMethodsDo:
                    [:aSelector :aMethod|
                        (aBlock value: aMethod) ifTrue:
                            [aSet add: (MethodReference new
setStandardClass: class methodSymbol: aSelector)]]]].
    ^aSet

Um. That is just an accidental duplication of the aClass
theNonMetaClass class withAllSuperAndSubclassesDoGently: block, right?

frank

On Tue, May 21, 2013 at 2:40 PM, Frank Shearar <[hidden email]> wrote:

allMethodsSelect: aBlock localTo: aClass
    "Answer a SortedCollection of each methodr in, above, or below the given
    class that, when used as the argument to aBlock, gives a true result."

    | aSet |
    aSet := Set new.
    Cursor wait showWhile:
        [aClass theNonMetaClass withAllSuperAndSubclassesDoGently:
            [:class |
                class selectorsAndMethodsDo:
                    [:aSelector :aMethod|
                        (aBlock value: aMethod) ifTrue:
                            [aSet add: (MethodReference new
setStandardClass: class methodSymbol: aSelector)]]].
        aClass theNonMetaClass class withAllSuperAndSubclassesDoGently:
            [:class |
                class selectorsAndMethodsDo:
                    [:aSelector :aMethod|
                        (aBlock value: aMethod) ifTrue:
                            [aSet add: (MethodReference new
setStandardClass: class methodSymbol: aSelector)]]]].
    ^aSet

Um. That is just an accidental duplication of the aClass
theNonMetaClass class withAllSuperAndSubclassesDoGently: block, right?

No, it's not :)  It's preserving existing behavior, which is to search class and instance side.  Note that

 aClass theNonMetaClass withAllSuperAndSubclassesDoGently:

    [:class|

    {class. class class} do: aBlock

is not equivalent to 

    aClass theNonMetaClass withAllSuperAndSubclassesDoGently: aBlock

    aClass theNonMetaClass class withAllSuperAndSubclassesDoGently: aBlock

because the latter searches Behavior, ClassDescription, Class etc, while the former doesn't.

On 21 May 2013 22:54, Eliot Miranda <[hidden email]> wrote:
>
>
> On Tue, May 21, 2013 at 2:53 PM, Eliot Miranda <[hidden email]>
> wrote:
>>
>>
>>
>> On Tue, May 21, 2013 at 2:40 PM, Frank Shearar <[hidden email]>
>> wrote:
>>>
>>> allMethodsSelect: aBlock localTo: aClass
>>>     "Answer a SortedCollection of each methodr in, above, or below the
>>> given
>>>     class that, when used as the argument to aBlock, gives a true
>>> result."
>>>
>>>     | aSet |
>>>     aSet := Set new.
>>>     Cursor wait showWhile:
>>>         [aClass theNonMetaClass withAllSuperAndSubclassesDoGently:
>>>             [:class |
>>>                 class selectorsAndMethodsDo:
>>>                     [:aSelector :aMethod|
>>>                         (aBlock value: aMethod) ifTrue:
>>>                             [aSet add: (MethodReference new
>>> setStandardClass: class methodSymbol: aSelector)]]].
>>>         aClass theNonMetaClass class withAllSuperAndSubclassesDoGently:
>>>             [:class |
>>>                 class selectorsAndMethodsDo:
>>>                     [:aSelector :aMethod|
>>>                         (aBlock value: aMethod) ifTrue:
>>>                             [aSet add: (MethodReference new
>>> setStandardClass: class methodSymbol: aSelector)]]]].
>>>     ^aSet
>>>
>>> Um. That is just an accidental duplication of the aClass
>>> theNonMetaClass class withAllSuperAndSubclassesDoGently: block, right?
>>
>>
>> No, it's not :)  It's preserving existing behavior, which is to search
>> class and instance side.  Note that
>>
>>  aClass theNonMetaClass withAllSuperAndSubclassesDoGently:
>>     [:class|
>>     {class. class class} do: aBlock
>>
>> is not equivalent to
>>
>>     aClass theNonMetaClass withAllSuperAndSubclassesDoGently: aBlock
>>     aClass theNonMetaClass class withAllSuperAndSubclassesDoGently: aBlock
>>
>> because the latter searches Behavior, ClassDescription, Class etc, while
>> the former doesn't.
>
>
> and just to be clear, I'm not claiming one way is better or not.

Ah! I had missed that single token!

frank

> --
> best,
> Eliot
>
>
>