--- a/MethodFinderWindow.st Wed Jul 20 11:35:42 2016 +0200
+++ b/MethodFinderWindow.st Wed Jul 27 21:28:41 2016 +0200
@@ -1444,10 +1444,10 @@
^ aStringToBeCleaned
!
-markMatchingClasses:aSelector classesWithSelector:anOrderedCollection
+markMatchingClasses:aSelector classesWithSelector:anOrderedCollection
" Matches the class of the receiver with all the elements in anOrderedCollection
(which are classes with selectors). If a match is found it is marked with an asterisk.
- The classes are then sorted so the the asterisk appears first. Return the
+ The classes are then sorted so the asterisk appears first. Return the
markedClassList."
|marker recClass unmarkedClassList markedClassList|
@@ -1455,22 +1455,22 @@
marker := self class markerForImplementingClass.
recClass := receiver value class.
unmarkedClassList := anOrderedCollection copy.
- unmarkedClassList do:[:classAndMethod |
+ unmarkedClassList do:[:classAndMethod |
|className class sel|
className := classAndMethod copyButLast:aSelector size.
class := Smalltalk classNamed:className. "/ Compiler evaluate:className.
-
+
"/ (recClass == class)
-
+
(recClass whichClassImplements:aSelector) == class ifTrue:[
"/ unmarkedClassList add: marker, classAndMethod.
unmarkedClassList add:classAndMethod allBold.
unmarkedClassList remove:classAndMethod.
].
].
- unmarkedClassList
- sort:[:a :b |
+ unmarkedClassList
+ sort:[:a :b |
|rawA rawB|
rawA := a string withoutPrefix:marker.