author | Claus Gittinger <cg@exept.de> |
Tue, 01 Oct 2019 09:40:08 +0200 | |
changeset 3769 | 0a821dfa2cca |
parent 3768 | efaa34ed7534 |
child 3770 | 3f324e812f60 |
--- 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 ].