--- a/Tools__TestRunnerEmbedded.st	Fri Feb 27 22:23:45 2015 +0100
+++ b/Tools__TestRunnerEmbedded.st	Fri Feb 27 23:42:43 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libtool' }"
 
 "{ NameSpace: Tools }"
@@ -226,9 +228,14 @@
 !
 
 updateTestCases
-    allTestCases := ((self selectedClassesHolder value ? #()) 
-                select:[:cls | self isTestCaseLike:cls ]).
-    allTestCases := allTestCases asArray
+    |classes|
+
+    classes := (self selectedClassesHolder value ? #()) 
+                    select:[:cls | self isTestCaseLike:cls ] as:Set.
+    classes addAll:((self selectedMethodsHolder value ? #()) 
+                    collect:[:mthd | mthd mclass ]
+                    thenSelect:[:cls | self isTestCaseLike:cls ]).
+    allTestCases := classes asArray
 
     "Created: / 11-03-2010 / 10:31:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 24-01-2012 / 22:09:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -337,10 +344,10 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.43 2015-02-27 00:02:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.44 2015-02-27 22:42:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.43 2015-02-27 00:02:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.44 2015-02-27 22:42:43 cg Exp $'
 ! !