--- a/TestRunner.st	Fri Aug 31 17:21:52 2001 +0200
+++ b/TestRunner.st	Mon Sep 03 15:05:00 2001 +0200
@@ -375,15 +375,19 @@
 
 debugTest: aTestCaseName 
     | testCase |
+
     defect := aTestCaseName.
     testCase := allDefects at: aTestCaseName ifAbsent: [nil].
     testCase isNil ifTrue: [^self enableDebugButton value: false].
     self enableDebugButton value: true.
     self displayMode: 'Debugging'.
-    (result isFailure: testCase) 
-        ifTrue: [testCase debugAsFailure]
-        ifFalse: [testCase debug]
 
+    defect := nil.
+    self withWaitCursorDo:[
+        (result isFailure: testCase) 
+            ifTrue: [testCase debugAsFailure]
+            ifFalse: [testCase debug].
+    ].
     "Modified: / 21.6.2000 / 12:12:09 / Sames"
 !
 
@@ -543,6 +547,11 @@
     "Modified: / 4.4.2000 / 19:01:33 / Sames"
 !
 
+setSelection: aValue
+
+    defect := aValue
+!
+
 suiteSelectionChanged
     |ok className description  cls|
 
@@ -789,5 +798,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.17 2001-08-31 15:21:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.18 2001-09-03 13:05:00 cg Exp $'
 ! !