--- a/Tools__TestRunnerEmbedded.st	Sun Mar 31 22:32:27 2013 +0200
+++ b/Tools__TestRunnerEmbedded.st	Mon Apr 01 22:03:15 2013 +0200
@@ -870,8 +870,17 @@
 !
 
 updateTestCases
-    allTestCases := ((self selectedClassesHolder value ? #()) 
-                select:[:cls | self isTestCaseLike:cls ]).
+    allTestCases := Set new.
+    (self selectedClassesHolder value ? #()) do:[:eachSelected |
+        (self isTestCaseLike:eachSelected) ifTrue:[
+            allTestCases add:eachSelected.
+"/            eachSelected allSuperclassesDo:[:eachClass |
+"/                (eachClass isTestCaseLike) ifTrue:[
+"/                    allTestCases add:eachClass
+"/                ]
+"/            ]
+        ]
+    ].
     allTestCases := allTestCases asArray
 
     "Created: / 11-03-2010 / 10:31:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -883,7 +892,14 @@
 
     self hasTestCaseSelected 
         ifTrue:[self show]
-        ifFalse:[self hide]
+        ifFalse:[self hide].
+
+    (testProcess isNil or:[ testProcess isDead]) ifTrue:[
+        "/ fix my ideo of being running, in case the testProcess died without
+        "/ me being informed (hardTerminate)
+        self runningHolder value:false.
+        self progressIndicatorShownHolder value:false.
+    ]
 
     "Created: / 11-03-2010 / 09:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -1180,13 +1196,14 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.32 2012-11-08 00:05:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.33 2013-04-01 20:03:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.32 2012-11-08 00:05:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.33 2013-04-01 20:03:15 cg Exp $'
 !
 
 version_SVN
     ^ '§Id§'
 ! !
+