Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -743,15 +743,15 @@
 									 ;; (if (equal? col 6)
 									 (let* ((mtrx-rc  (conc lin ":" 6))
 										(fname    (iup:attribute obj mtrx-rc))
                                                                                 (stepname (iup:attribute obj (conc lin ":" 1)))                                                                                            (comment  (iup:attribute obj (conc lin ":" 7))))
                                                                            (case col
-                                                                             ((6) (view-a-log fname))
+                                                                             
                                                                              ((7) (print "Comment from step "stepname": "comment))
                                                                              ((8) (ezsteps:spawn-run-from testdat stepname #t))
                                                                              ((9) (ezsteps:spawn-run-from testdat stepname #f))
-                                                                             (else (print "No action for col="col))))))))
+                                                                             (else (view-a-log fname))))))))
 					 ;; (let loop ((count 0))
 					 ;;   (iup:attribute-set! steps-matrix "FITTOTEXT" (conc "L" count))
 					 ;;   (if (< count 30)
 					 ;;       (loop (+ count 1))))
 					 (iup:attribute-set! steps-matrix "0:1" "Step Name")
@@ -762,10 +762,13 @@
 					 (iup:attribute-set! steps-matrix "WIDTH4" "50")
 					 (iup:attribute-set! steps-matrix "0:5" "Duration")
 					 (iup:attribute-set! steps-matrix "0:6" "Log File")
 					 (iup:attribute-set! steps-matrix "0:7" "Comment")
                                          (iup:attribute-set! steps-matrix "0:8" "rerun only")
+                                         (iup:attribute-set! steps-matrix "BGCOLOR0:9" "149 208 252")
+                                         (iup:attribute-set! steps-matrix "BGCOLOR0:8" "149 208 252")
+                                         (iup:attribute-set! steps-matrix "BGCOLOR0:7" "149 208 252")
                                          (iup:attribute-set! steps-matrix "0:9" "rerun & continue")
 					 (iup:attribute-set! steps-matrix "ALIGNMENT1" "ALEFT")
 					 ;; (iup:attribute-set! steps-matrix "FIXTOTEXT" "C1")
 					 (iup:attribute-set! steps-matrix "RESIZEMATRIX" "YES")
 					 (let ((proc

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -1256,26 +1256,39 @@
 ;;======================================================================
 ;;  S T E P S
 ;;======================================================================
 
 (define (dcommon:populate-steps teststeps steps-matrix)
-  (let ((max-row 0)
-	(max-col 9))
+  (let ((max-row       0)
+	(max-col       9)
+        (white         "255 255 255")
+        (running-color (car (gutils:get-color-for-state-status "RUNNING" "STARTED")))
+        (failcolor     (car (gutils:get-color-for-state-status "COMPLETED" "FAIL"))))
     (if (null? teststeps)
 	(iup:attribute-set! steps-matrix "CLEARVALUE" "CONTENTS")
 	(let loop ((hed    (car teststeps))
 		   (tal    (cdr teststeps))
 		   (rownum 1)
 		   (colnum 1))
 	  (if (> rownum max-row)(set! max-row rownum))
-	  (let ((val     (vector-ref hed (- colnum 1)))
-		(mtrx-rc (conc rownum ":" colnum)))
+	  (let* ((status  (vector-ref hed 3))
+                 (val     (vector-ref hed (- colnum 1)))
+                 (bgcolor (cond
+                           ((member (conc status) '("" "#<unspecified>"))
+                            running-color)
+                           ((member (conc status) '("0" 0))
+                            white)
+                           (else failcolor)))
+		 (mtrx-rc (conc rownum ":" colnum)))
+            ;;(print "BB> status=>"status"< bgcolor="bgcolor)
 	    (iup:attribute-set! steps-matrix  mtrx-rc (if val (conc val) ""))
+            (if (< colnum 5)
+                (iup:attribute-set! steps-matrix  (conc "BGCOLOR" mtrx-rc) bgcolor))
 	    (if (< colnum max-col)
 		(loop hed tal rownum (+ colnum 1))
 		(if (not (null? tal))
-		    (loop (car tal)(cdr tal)(+ rownum 1) 1))))))
+		    (loop (car tal) (cdr tal) (+ rownum 1) 1))))))
     (if (> max-row 0)
 	(begin
 	  ;; we are going to speculatively clear rows until we find a row that is already cleared
 	  (let loop ((rownum  (+ max-row 1))
 		     (colnum  0)