equal
deleted
inserted
replaced
2961 |
2961 |
2962 title := titleArg. |
2962 title := titleArg. |
2963 |
2963 |
2964 list := self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:true. |
2964 list := self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:true. |
2965 list isEmpty ifTrue:[ |
2965 list isEmpty ifTrue:[ |
2966 aSelectorString numArgs == 0 ifTrue:[ |
2966 aSelectorString argumentCount == 0 ifTrue:[ |
2967 selWithColon := aSelectorString , ':'. |
2967 selWithColon := aSelectorString , ':'. |
2968 selWithColon knownAsSymbol ifTrue:[ |
2968 selWithColon knownAsSymbol ifTrue:[ |
2969 list2 := self allCallsOn:selWithColon in:aCollectionOfClasses ignoreCase:ignoreCase match:true. |
2969 list2 := self allCallsOn:selWithColon in:aCollectionOfClasses ignoreCase:ignoreCase match:true. |
2970 ]. |
2970 ]. |
2971 ]. |
2971 ]. |
3639 in:aCollectionOfClasses |
3639 in:aCollectionOfClasses |
3640 ignoreCase:ignoreCase |
3640 ignoreCase:ignoreCase |
3641 match:(aSelectorString includesMatchCharacters and:[aSelectorString ~= '*']). |
3641 match:(aSelectorString includesMatchCharacters and:[aSelectorString ~= '*']). |
3642 |
3642 |
3643 list size == 0 ifTrue:[ |
3643 list size == 0 ifTrue:[ |
3644 aSelectorString numArgs == 0 ifTrue:[ |
3644 aSelectorString argumentCount == 0 ifTrue:[ |
3645 selWithColon := aSelectorString , ':'. |
3645 selWithColon := aSelectorString , ':'. |
3646 selWithColon knownAsSymbol ifTrue:[ |
3646 selWithColon knownAsSymbol ifTrue:[ |
3647 list2 := self findImplementorsOf:selWithColon in:aCollectionOfClasses ignoreCase:ignoreCase. |
3647 list2 := self findImplementorsOf:selWithColon in:aCollectionOfClasses ignoreCase:ignoreCase. |
3648 ]. |
3648 ]. |
3649 ]. |
3649 ]. |