--- 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!