--- a/Tools__TestRunnerEmbedded.st	Thu Jun 06 14:30:51 2013 +0200
+++ b/Tools__TestRunnerEmbedded.st	Thu Jun 06 16:54:57 2013 +0200
@@ -32,7 +32,7 @@
 		selectedMethodsHolder methodGeneratorHolder resultHolder
 		resultInfoHolder resultBackgroundColorHolder runningHolder
 		progressHolder progressIndicatorShownHolder infoHolder
-		testProcess allTestCases'
+		testProcess allTestCases progressIndicator'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SUnit-UI'
@@ -204,6 +204,7 @@
                                       name: 'RunningProgress'
                                       layout: (LayoutFrame 5 0 -10 0.5 -5 1 10 0.5)
                                       model: progressHolder
+                                      postBuildCallback: postBuildProgressIndicator:
                                     )
                                    )
                                  
@@ -450,9 +451,11 @@
     self stop.
 
     testProcess := [
-                |result incr run|
+                |result incr run anyFail anyError|
 
+                anyFail := anyError := false.
                 [
+                    
                     self runningHolder value:true.
                     self progressIndicatorShownHolder value:(numTests > 1).
                     self progressHolder value:0.
@@ -471,10 +474,14 @@
                                     self progressHolder value:(incr * run) truncated "rounded".
                                     infoHolder notNil ifTrue:[
                                         infoHolder value:('Done.')
-                                    ]
+                                    ].
+                                    result hasPassed ifFalse:[
+                                        progressIndicator foregroundColor:(Color red)
+                                    ].
                                 ].
                     suiteAndResult := SuiteAndResult suite:suite result:result.
                 ] ensure:[
+                    progressIndicator initStyle.
                     self progressIndicatorShownHolder value:false.
                     self resultHolder setValue:nil; value:suiteAndResult; changed.
                     self runningHolder value:false.
@@ -964,6 +971,10 @@
     "Modified: / 04-03-2011 / 06:54:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+postBuildProgressIndicator:aWidget
+    progressIndicator := aWidget
+!
+
 show
 
     self visibility: true height: 50
@@ -1253,14 +1264,14 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.34 2013-05-21 20:21:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.35 2013-06-06 14:54:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.34 2013-05-21 20:21:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.35 2013-06-06 14:54:57 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TestRunnerEmbedded.st,v 1.34 2013-05-21 20:21:03 cg Exp $'
+    ^ '$Id: Tools__TestRunnerEmbedded.st,v 1.35 2013-06-06 14:54:57 cg Exp $'
 ! !