@@ -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))) 
 	)