--- a/TestRunner.st	Fri Sep 26 17:56:34 2003 +0200
+++ b/TestRunner.st	Fri Sep 26 17:57:59 2003 +0200
@@ -95,8 +95,8 @@
         #name: #windowSpec
         #window: 
        #(#WindowSpec
-          #label: 'SUnit Camp Smalltalk 2.7d TestRunner'
-          #name: 'SUnit Camp Smalltalk 2.7d TestRunner'
+          #label: 'SUnit Camp Smalltalk 3.1/STX TestRunner'
+          #name: 'SUnit Camp Smalltalk 3.1/STX TestRunner'
           #min: #(#Point 362 122)
           #bounds: #(#Rectangle 16 42 509 217)
           #icon: #defaultIcon
@@ -220,7 +220,7 @@
 openOnTestCase:aTestCaseSubclass
     "open the testrunner,let it switch to and execute a testcase"
 
-    |runner idx|
+    |runner|
 
     runner := self new.
     runner openAndWaitUntilVisible.
@@ -301,16 +301,16 @@
 !
 
 details
-        "This method was generated by UIDefiner.  Any edits made here
-        may be lost whenever methods are automatically defined.  The
-        initialization provided below may have been preempted by an
-        initialize method."
+	"This method was generated by UIDefiner.  Any edits made here
+	may be lost whenever methods are automatically defined.  The
+	initialization provided below may have been preempted by an
+	initialize method."
 
-        ^details isNil
-                ifTrue:
-                        [details := '...' asValue]
-                ifFalse:
-                        [details]
+	^details isNil
+		ifTrue:
+			[details := '...' asValue]
+		ifFalse:
+			[details]
 !
 
 mode
@@ -477,7 +477,7 @@
 !
 
 debugSelectedFailure
-        self debugTest: self selection
+	self debugTest: self selection
 
     "Created: / 21.6.2000 / 10:58:58 / Sames"
     "Modified: / 21.6.2000 / 12:21:05 / Sames"
@@ -1132,5 +1132,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.51 2003-08-18 12:15:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.52 2003-09-26 15:57:59 stefan Exp $'
 ! !