--- a/TestRunner.st	Sat Dec 08 02:56:14 2001 +0100
+++ b/TestRunner.st	Sat Dec 08 02:59:39 2001 +0100
@@ -12,6 +12,14 @@
 
 !TestRunner class methodsFor:'defaults'!
 
+colorForFailedTests
+    ^ Color red
+!
+
+colorForPassedTests
+    ^ Color green darkened
+!
+
 defaultIcon
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -619,7 +627,7 @@
     self enableRunDefectsButton value:(ok and:[allDefects size > 0]).
 
     self script value notNil ifTrue:[
-        className := self selectedScript.
+        className := self selectedScript string.
         (ok and:[className notNil]) ifTrue:[
             cls := Smalltalk at:className.
             (cls class implements:#description) ifTrue:[
@@ -664,10 +672,10 @@
         suites := suites 
                     collect:[:eachSuiteName |
                                 (testsWhichFailed includes:eachSuiteName) ifTrue:[
-                                    eachSuiteName colorizeAllWith:Color red.
+                                    eachSuiteName colorizeAllWith:(self class colorForFailedTests).
                                 ] ifFalse:[     
                                     (testsWhichPassed includes:eachSuiteName) ifTrue:[
-                                        eachSuiteName colorizeAllWith:Color green.
+                                        eachSuiteName colorizeAllWith:(self class colorForPassedTests).
                                     ] ifFalse:[
                                         eachSuiteName
                                     ]
@@ -808,7 +816,7 @@
 
 displayErrorColorInProgress
     (self builder componentAt:#ProgressIndicator1)
-      foregroundColor: (Color red:33 green:0 blue:0).
+      foregroundColor: (self class colorForFailedTests).
 
 "/    (self builder componentAt:#ProgressIndicator1)
 "/      backgroundColor: (Color red:67 green:0 blue:0)
@@ -948,5 +956,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.21 2001-12-04 09:06:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.22 2001-12-08 01:59:39 cg Exp $'
 ! !