--- a/Tools__MethodList.st Wed Jul 27 00:03:45 2016 +0100
+++ b/Tools__MethodList.st Wed Jul 27 00:11:27 2016 +0100
@@ -1727,7 +1727,7 @@
].
icn isNil ifTrue:[
"/ (selector isSymbol and:[selector startsWith:'test']) ifTrue:[
- (((cls isSubclassOf:TestCase) and:[cls isAbstract not])
+ (((cls isTestCaseLike) and:[cls isAbstract not])
or:[self showSyntheticMethods value and:[aMethod isSynthetic]]) ifTrue:[
(cls isTestCaseLike and:[cls isTestSelector:selector]) ifTrue:[
"JV@2011-11-17: Show thumbs even if not all test were run"
@@ -1852,7 +1852,7 @@
"Created: / 22-10-1996 / 19:51:00 / cg"
"Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 07-03-2012 / 19:06:09 / cg"
- "Modified: / 26-07-2016 / 23:33:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 27-07-2016 / 00:05:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
resourceIconForMethod:aMethod