--- a/Tools__MethodList.st	Fri Apr 13 19:16:04 2012 +0100
+++ b/Tools__MethodList.st	Wed Apr 18 08:18:46 2012 +0100
@@ -1621,15 +1621,19 @@
         ].
     ].
     icn isNil ifTrue:[
-        (selector startsWith:'test') ifTrue:[
-            ((cls isSubclassOf:TestCase) 
+        cls isTestCaseLike ifTrue:[
+            ((cls isTestSelector: selector) 
             and:[cls isAbstract not]) ifTrue:[
                 "JV@2011-11-17: Show thumbs even if not all test were run"
                 "/cls lastTestRunResultOrNil "== false" notNil ifTrue:[
-                    ((cls testSelectorFailed:selector) or:[(cls testSelectorError:selector)]) ifTrue:[
+                    | realTestCaseCls |
+                    realTestCaseCls := cls isJavaClass 
+                                            ifTrue:[cls asTestCase]
+                                            ifFalse:[cls].
+                    ((realTestCaseCls testSelectorFailed:selector) or:[(realTestCaseCls testSelectorError:selector)]) ifTrue:[
                         icn := SystemBrowser testCaseFailedIcon
                     ] ifFalse:[
-                        (cls testSelectorPassed: selector) ifTrue:
+                        (realTestCaseCls testSelectorPassed: selector) ifTrue:
                             [icn := SystemBrowser testCasePassedIcon]
                     ].
                 "/]
@@ -1738,7 +1742,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: / 13-04-2012 / 18:17:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-04-2012 / 22:54:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodList methodsFor:'private-watching'!
@@ -1788,7 +1792,7 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__MethodList.st 7979 2012-04-13 18:16:04Z vranyj1 $'
+    ^ '$Id: Tools__MethodList.st 7980 2012-04-18 07:18:46Z vranyj1 $'
 !
 
 version_CVS
@@ -1796,5 +1800,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__MethodList.st 7979 2012-04-13 18:16:04Z vranyj1 $'
+    ^ '$Id: Tools__MethodList.st 7980 2012-04-18 07:18:46Z vranyj1 $'
 ! !