Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: SystemBrowser
authorClaus Gittinger <cg@exept.de>
Wed, 24 Dec 2014 14:21:29 +0100
changeset 15075 8ee8b91f6c69
parent 15074 16fed0c256f1
child 15076 c3c0c682a1e0
class: SystemBrowser changed: #findImplementors:in:ignoreCase:match: #findImplementors:inMethods:ignoreCase:match: fixed Jan's buggy java selector search
SystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/SystemBrowser.st	Wed Dec 24 13:51:10 2014 +0100
+++ b/SystemBrowser.st	Wed Dec 24 14:21:29 2014 +0100
@@ -4514,15 +4514,15 @@
     ignoreCase == true ifTrue:[
         lcSelector := aSelectorMatchString asLowercase.
 
-        testST := [:aSelector :aMethod | (compare value:lcSelector value:(aMethod name ? '') asLowercase) ].
-        testJava := [:aSelector :aMethod | (compare value:aSelector value:aMethod name asLowercase) ].
+        testST := [:mthdSelector :aMethod | (compare value:lcSelector value:mthdSelector asLowercase) ].
+        testJava := [:mthdSelector :aMethod | (compare value:lcSelector value:aMethod name asLowercase) ].
     ] ifFalse:[
-        testST := [:aSelector :aMethod | (compare value:aSelectorMatchString value:aSelector) ].
-        testJava := [:aSelector :aMethod | (compare value:aSelectorMatchString value:aMethod name) ].
+        testST := [:mthdSelector :aMethod | (compare value:aSelectorMatchString value:mthdSelector) ].
+        testJava := [:mthdSelector :aMethod | (compare value:aSelectorMatchString value:aMethod name) ].
     ].
 
-    srchBlockST := [:sel :mthd | (testST value:sel value:mthd) ifTrue:[ list add:mthd]].
-    srchBlockJava := [:sel :mthd | (testJava value:sel value:mthd) ifTrue:[ list add:mthd]].
+    srchBlockST := [:mthdSelector :mthd | (testST value:mthdSelector value:mthd) ifTrue:[ list add:mthd]].
+    srchBlockJava := [:mthdSelector :mthd | (testJava value:mthdSelector value:mthd) ifTrue:[ list add:mthd]].
 
     aCollectionOfClasses do:[:aClass |
         |srchBlock|
@@ -4570,11 +4570,11 @@
     ignoreCase == true ifTrue:[
         lcSelector := aSelectorMatchString asLowercase.
 
-        testST := [:aSelector :aMethod | (compare value:lcSelector value:aMethod name asLowercase) ].
-        testJava := [:aSelector :aMethod | (compare value:aSelector value:aMethod name asLowercase) ].
+        testST := [:mthdSelector :aMethod | (compare value:lcSelector value:mthdSelector asLowercase) ].
+        testJava := [:mthdSelector :aMethod | (compare value:lcSelector value:aMethod name asLowercase) ].
     ] ifFalse:[
-        testST := [:aSelector :aMethod | (compare value:aSelectorMatchString value:aSelector) ].
-        testJava := [:aSelector :aMethod | (compare value:aSelectorMatchString value:aMethod name) ].
+        testST := [:mthdSelector :aMethod | (compare value:aSelectorMatchString value:mthdSelector) ].
+        testJava := [:mthdSelector :aMethod | (compare value:aSelectorMatchString value:aMethod name) ].
     ].
 
     aCollectionOfMethods do:[:eachMethod |
@@ -6880,6 +6880,7 @@
     ^ nil
 ! !
 
+
 !SystemBrowser::BrowserHistoryEntry methodsFor:'accessing'!
 
 className
@@ -6984,15 +6985,15 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.348 2014-11-28 12:37:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.349 2014-12-24 13:21:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.348 2014-11-28 12:37:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.349 2014-12-24 13:21:29 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: SystemBrowser.st,v 1.348 2014-11-28 12:37:31 cg Exp $'
+    ^ '$Id: SystemBrowser.st,v 1.349 2014-12-24 13:21:29 cg Exp $'
 ! !
hg/stx-libtool