Tools__MethodList.st
changeset 17795 9011259dfe1c
parent 17793 07a0d7e0ca03
child 17797 5e0b8692f043
--- a/Tools__MethodList.st	Mon Nov 27 15:26:49 2017 +0100
+++ b/Tools__MethodList.st	Mon Nov 27 15:28:43 2017 +0100
@@ -1469,7 +1469,10 @@
     ].
 
     numFiltered ~~ 0 ifTrue:[
-        newNameList add:(('* %1 methods filtered (not containing pattern) *' bindWith:numFiltered) withColor:Color gray).
+        newNameList add:(((numFiltered > 1 
+                            ifTrue:['* %1 methods filtered (not containing pattern) *'] 
+                            ifFalse:['* %1 method filtered (not containing pattern) *'])
+                                bindWith:numFiltered) withColor:Color gray).
         "/ methods add:nil.
         "/ methodNameList add:{ nil . nil}.
     ].
@@ -1509,7 +1512,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: / 25-11-2017 / 17:31:08 / cg"
+    "Modified: / 27-11-2017 / 15:28:36 / cg"
 !
 
 makeDependent