--- a/Tools__TestRunner2.st	Wed Jul 06 14:03:36 2011 +0200
+++ b/Tools__TestRunner2.st	Wed Jul 06 14:13:39 2011 +0200
@@ -924,6 +924,20 @@
     "Modified: / 06-06-2008 / 20:04:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+!TestRunner2 class methodsFor:'startup'!
+
+openOnTestCase:aTestCaseClass
+    |runner|
+
+    runner := self new.
+    runner allButOpen.
+    runner packageList selectedProjects:(Array with:aTestCaseClass package).
+    runner classList selectClass:aTestCaseClass.
+    runner openWindow.
+
+    "Created: / 06-07-2011 / 14:10:00 / cg"
+! !
+
 !TestRunner2 methodsFor:'accessing'!
 
 errorColor
@@ -1655,7 +1669,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__TestRunner2.st,v 1.6 2011-07-05 12:15:21 cg Exp $'
+    ^'$Id: Tools__TestRunner2.st,v 1.7 2011-07-06 12:13:39 cg Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2150,7 +2164,7 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.6 2011-07-05 12:15:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.7 2011-07-06 12:13:39 cg Exp $'
 !
 
 version_SVN