#BUGFIX by exept draft
authorClaus Gittinger <cg@exept.de>
Tue, 01 Oct 2019 09:40:08 +0200
changeset 3769 0a821dfa2cca
parent 3768 efaa34ed7534
child 3770 3f324e812f60
#BUGFIX by exept class: MethodFinderWindow comment/format in: #searchPatternMatches: changed: #updateListAfterPatternSearch: ouch - a buggy refactoring
MethodFinderWindow.st
--- 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
     ].