#UI_ENHANCEMENT
authorClaus Gittinger <cg@exept.de>
Sat, 23 Jan 2016 11:27:04 +0100
changeset 16069 3b6e91bd072c
parent 16068 cd50681648c8
child 16070 521ef9819d55
#UI_ENHANCEMENT class: Tools::MethodList changed: #listEntryForMethod:selector:class:showClass:showCategory:classFirst:suppressInheritanceInfo: new pseudo category: "tests not passed"
Tools__MethodList.st
--- a/Tools__MethodList.st	Sat Jan 23 11:26:51 2016 +0100
+++ b/Tools__MethodList.st	Sat Jan 23 11:27:04 2016 +0100
@@ -1733,9 +1733,10 @@
         ].
     ].
     icn isNil ifTrue:[
-        (selector isSymbol and:[selector startsWith:'test']) ifTrue:[
-            (((cls isSubclassOf:TestCase) and:[cls isAbstract not])
-            or:[showSyntheticMethods value and:[aMethod isSynthetic]]) ifTrue:[
+        "/ (selector isSymbol and:[selector startsWith:'test']) ifTrue:[
+        (((cls isSubclassOf:TestCase) and:[cls isAbstract not])
+        or:[showSyntheticMethods value and:[aMethod isSynthetic]]) ifTrue:[
+            (cls isTestSelector:selector) ifTrue:[
                 "JV@2011-11-17: Show thumbs even if not all test were run"
 
                 lastResultOrNil := cls rememberedOutcomeFor:selector.