--- a/MethodFinderWindow.st Sat Sep 28 16:32:50 2019 +0200
+++ b/MethodFinderWindow.st Tue Oct 01 09:40:08 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)
Copyright (C) 2001 eXept Software AG
@@ -1199,7 +1197,7 @@
Given the original message,
try applying all unary messages first to the receiver,
then to each argument.
- This takes O(N²) time - so be prepared"
+ This takes O(N²) time - so be prepared"
|tempReceiver tempAnswer tempArguments anArray resultArray receiverWithArgument mf|
@@ -1276,7 +1274,6 @@
list := SystemBrowser findImplementorsMatching:match in:Smalltalk allClasses ignoreCase:true.
].
] ifTrue:[
- "/ match := '*',pattern,'*'.
match := pattern.
list := SystemBrowser findImplementorsMatching:match in:Smalltalk allClasses ignoreCase:true.
].
@@ -1404,10 +1401,7 @@
searchPattern := self selectorPatternHolder value.
"/ is the search pattern in the list (i.e. a perfect match)?
"/ Then select it.
- idx := resultList
- findFirst:[:bd |
- (bd nameOrDefault sameAs:searchPattern)
- or:[ bd tags contains:[:tag | tag sameAs:searchPattern]]].
+ idx := resultSelectors indexOf:searchPattern.
idx ~~ 0 ifTrue:[
self selectedImplementorsHolder setValue:idx; changed
].