Tools__MethodList.st
changeset 17740 91ed2b065441
parent 17738 ba971c5e2c72
child 17780 1b645a397968
--- a/Tools__MethodList.st	Thu Nov 09 21:05:43 2017 +0100
+++ b/Tools__MethodList.st	Thu Nov 09 21:11:35 2017 +0100
@@ -1193,10 +1193,11 @@
     generator do:[:cls :cat :sel :mthd |
         |categoryIsExtensionsPseudoCategory|
 
-        (nameFilter isEmptyOrNil
-        or:[nameFilter = '*'
-        or:[ (nameFilter includesMatchCharacters not and:[sel startsWith:nameFilter]) 
-        or:[ nameFilter match:sel caseSensitive:false]]]) ifTrue:[
+        (sel isNil 
+        or:[ nameFilter isEmptyOrNil
+        or:[ nameFilter = '*'
+        or:[ (nameFilter includesMatchCharacters not and:[sel includesString:nameFilter caseSensitive:false]) 
+        or:[ nameFilter match:sel caseSensitive:false]]]]) ifTrue:[
             
             categoryIsExtensionsPseudoCategory := (cat = nameListEntryForExtensions).
             (cls isNil and:[ cat isNil and:[ sel isNil ] ]) ifTrue:[
@@ -1422,7 +1423,7 @@
     "Created: / 05-02-2000 / 22:43:40 / cg"
     "Modified: / 24-08-2010 / 20:34:09 / Jan Vrany"
     "Modified (comment): / 17-09-2013 / 10:31:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 09-11-2017 / 20:58:33 / cg"
+    "Modified: / 09-11-2017 / 21:11:06 / cg"
 !
 
 makeDependent