Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -324,12 +324,12 @@
 			    (lambda (state color)
 			      (for-each 
 			       (lambda (btn)
 				 (let* ((name     (iup:attribute btn "TITLE"))
 					(newcolor (if (equal? name state) color "192 192 192")))
-				   (if (not (colors-similar? newcolor (iup:attribute btn "BGCOLOR")))
-				       (iup:attribute-set! btn "BGCOLOR" newcolor))))
+				   (if (not (colors-similar? newcolor (iup:attribute btn "FGCOLOR")))
+				       (iup:attribute-set! btn "FGCOLOR" newcolor))))
 			       btns)))
 	       btns))
       (apply iup:hbox
 	     (iup:label "STATUS:" #:size "30x")
 	     (let* ((btns  (map (lambda (status)
@@ -358,12 +358,12 @@
 			    (lambda (status color)
 			      (for-each 
 			       (lambda (btn)
 				 (let* ((name     (iup:attribute btn "TITLE"))
 					(newcolor (if (equal? name status) color "192 192 192")))
-				   (if (not (colors-similar? newcolor (iup:attribute btn "BGCOLOR")))
-				       (iup:attribute-set! btn "BGCOLOR" newcolor))))
+				   (if (not (colors-similar? newcolor (iup:attribute btn "FGCOLOR")))
+				       (iup:attribute-set! btn "FGCOLOR" newcolor))))
 			       btns)))
 	       btns))))))
 
 (define (dashboard-tests:run-a-step info)
   #t)

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1169,11 +1169,12 @@
 			   (button     (vector-ref columndat rown))
 			   (color      (car (gutils:get-color-for-state-status teststate teststatus)))
 			   (curr-color (vector-ref buttondat 1)) ;; (iup:attribute button "BGCOLOR"))
 			   (curr-title (vector-ref buttondat 2))) ;; (iup:attribute button "TITLE")))
 		      (if (not (equal? curr-color color))
-			  (iup:attribute-set! button "BGCOLOR" color))
+			  #;(iup:attribute-set! button "BGCOLOR" color)
+			  (iup:attribute-set! button "FGCOLOR" color))
 		      (if (not (equal? curr-title buttontxt))
 			  (iup:attribute-set! button "TITLE"   buttontxt))
 		      (vector-set! buttondat 0 run-id)
 		      (vector-set! buttondat 1 color)
 		      (vector-set! buttondat 2 buttontxt)
@@ -2500,22 +2501,22 @@
 	   (set! hide (iup:button "Hide"
 				  #:expand "NO" #:size "40x15" ;; #:expand "HORIZONTAL"
 				  #:action (lambda (obj)
 					     (dboard:tabdat-hide-not-hide-set! tabdat #t) ;; (not (dboard:tabdat-hide-not-hide tabdat)))
 					     ;; (iup:attribute-set! obj "TITLE" (if (dboard:tabdat-hide-not-hide tabdat) "HideTests" "NotHide"))
-					     (iup:attribute-set! hide "BGCOLOR" sel-color)
-					     (iup:attribute-set! show "BGCOLOR" nonsel-color)
+					     (iup:attribute-set! hide "FGCOLOR" sel-color)
+					     (iup:attribute-set! show "FGCOLOR" nonsel-color)
 					     (mark-for-update tabdat))))
 	   (set! show (iup:button "Show"
 				  #:expand "NO" #:size "40x15" ;; #:expand "HORIZONTAL"
 				  #:action (lambda (obj)
 					     (dboard:tabdat-hide-not-hide-set! tabdat #f) ;; (not (dboard:tabdat-hide-not-hide tabdat)))
-					     (iup:attribute-set! show "BGCOLOR" sel-color)
-					     (iup:attribute-set! hide "BGCOLOR" nonsel-color)
+					     (iup:attribute-set! show "FGCOLOR" sel-color)
+					     (iup:attribute-set! hide "FGCOLOR" nonsel-color)
 					     (mark-for-update tabdat))))
-	   (iup:attribute-set! hide "BGCOLOR" sel-color)
-	   (iup:attribute-set! show "BGCOLOR" nonsel-color)
+	   (iup:attribute-set! hide "FGCOLOR" sel-color)
+	   (iup:attribute-set! show "FGCOLOR" nonsel-color)
 	   ;; (dboard:tabdat-hide-not-hide-button-set! tabdat hideit) ;; never used, can eliminate ...
            (iup:vbox
             (iup:hbox hide show)
             sort-lb))) 
 	)