--- a/TestRunner.st	Fri Aug 09 15:22:10 2002 +0200
+++ b/TestRunner.st	Mon Aug 12 13:07:37 2002 +0200
@@ -117,7 +117,7 @@
           #label: 'SUnit Camp Smalltalk 2.7d TestRunner'
           #name: 'SUnit Camp Smalltalk 2.7d TestRunner'
           #min: #(#Point 362 122)
-          #bounds: #(#Rectangle 13 23 506 198)
+          #bounds: #(#Rectangle 16 42 509 217)
           #icon: #defaultIcon
         )
         #component: 
@@ -134,6 +134,7 @@
               #name: 'category'
               #layout: #(#LayoutFrame 76 0 0 0 -216 1 24 0)
               #activeHelpKey: #suitesCategoryList
+              #tabable: true
               #model: #category
               #menu: #categoryList
             )
@@ -141,6 +142,7 @@
               #name: #tests
               #layout: #(#LayoutFrame 76 0 24 0 -216 1 48 0)
               #activeHelpKey: #suiteSelection
+              #tabable: true
               #model: #script
               #menu: #scriptModel
               #useIndex: true
@@ -196,10 +198,12 @@
               #isOpaque: true
               #flags: 40
               #activeHelpKey: #defectsList
+              #tabable: true
               #model: #selectionHolder
               #initiallyDisabled: true
               #enableChannel: #enableDefectsList
               #menu: #defectMenu
+              #ignoreReselect: false
             )
            #(#ActionButtonSpec
               #label: 'Browse'
@@ -233,17 +237,26 @@
 !
 
 openOnTestCase:aTestCaseSubclass
+    "open the testrunner,let it switch to and execute a testcase"
+
     |runner idx|
 
     runner := self new.
-    runner open.
-    runner window waitUntilVisible.
+    runner openAndWaitUntilVisible.
+
+    "/ idx := runner scriptModel value indexOf:aTestCaseSubclass name.
+    runner selectScriptNamed:aTestCaseSubclass name.
 
-    idx := runner scriptModel value indexOf:aTestCaseSubclass name.
-    runner selectScriptNamed:aTestCaseSubclass name.
+    "/ the test should be executed by the TestRunner process (not the caller)
+    "/ in oder for CTRL-C and busyCursor to work correctly.
+    "/ Therefore, push event instead of executing the test here.
+
+    "/runner runTests 
+    runner enqueueMessage:#runTests for:runner arguments:nil.
 
     "
      self openOnTestCase:CompilerTest
+     self openOnTestCase:ConstraintTests
     "
 ! !
 
@@ -1078,5 +1091,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.35 2002-08-09 13:22:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.36 2002-08-12 11:07:37 cg Exp $'
 ! !