double click on a testCase
authorClaus Gittinger <cg@exept.de>
Tue, 11 Dec 2001 16:38:18 +0100
changeset 3504 1de0c4005d45
parent 3503 925fce9419c2
child 3505 5c118c799ba7
double click on a testCase
BrowserView.st
--- a/BrowserView.st	Tue Dec 11 11:20:56 2001 +0100
+++ b/BrowserView.st	Tue Dec 11 16:38:18 2001 +0100
@@ -5878,22 +5878,26 @@
      if its an application-class, start the app"
 
     currentClass notNil ifTrue:[
-	currentClass isVisualStartable ifTrue:[
-	    self withWaitCursorDo:[
-		self busyLabel:'starting application %1' with:currentClass name.
-		currentClass open.
-		self normalLabel.
-	    ].
-	    ^ self
-	].
-	currentClass isLoaded ifFalse:[
-	    self classLoad.
+        currentClass isVisualStartable ifTrue:[
+            self withWaitCursorDo:[
+                self busyLabel:'starting application %1' with:currentClass name.
+                currentClass open.
+                self normalLabel.
+            ].
+            ^ self
+        ].
+        currentClass isLoaded ifFalse:[
+            self classLoad.
 "/            self withWaitCursorDo:[
 "/                currentClass autoload.
 "/            ].
-	    self normalLabel.
-	    ^ self
-	].
+            self normalLabel.
+            ^ self
+        ].
+        (TestRunner notNil and:[currentClass isSubclassOf:TestCase]) ifTrue:[
+            TestRunner openOnTestCase:currentClass.
+            ^ self
+        ].
     ]
 
     "Created: / 29.10.1997 / 15:50:26 / cg"
@@ -14937,6 +14941,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.702 2001-12-11 10:19:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.703 2001-12-11 15:38:18 cg Exp $'
 ! !
 BrowserView initialize!