@@ -97,10 +97,58 @@
 		     (else                   1)))
 
 (define uidat #f)
 ;; (megatest-dashboard)
 
+;(define img1 (iup:image/palette 16 16 (u8vector->blob (u8vector
+;				   1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 
+;				   1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 
+;				   1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 
+;				   1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 
+;				   1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 
+;				   1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 
+;				   1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 
+;				   1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 
+;				   2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
+;				   2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
+;				   2 2 2 0 2 2 2 2 2 2 2 2 2 2 2 2 
+;				   2 2 2 0 2 2 2 2 2 2 2 2 2 2 2 2 
+;				   2 2 2 0 2 0 2 0 2 2 0 2 2 2 0 0 
+;				   2 2 2 0 2 0 0 2 0 0 2 0 2 0 2 2 
+;				   2 2 2 0 2 0 2 2 0 2 2 0 2 2 2 2 
+;				   2 2 2 0 2 0 2 2 0 2 2 0 2 2 0 0 
+;				   2 2 2 0 2 0 2 2 0 2 2 0 2 0 2 1))))
+;
+;(define img2 (iup:image/palette 16 16 (u8vector->blob (u8vector
+;				   2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 
+;				   2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 
+;				   2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 
+;				   1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 
+;				   1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 
+;				   1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 
+;				   1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 
+;				   1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 
+;				   2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
+;				   2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
+;				   2 2 2 0 2 2 2 2 2 2 2 2 2 2 2 2 
+;				   2 2 2 0 2 2 2 2 2 2 2 2 2 2 2 2 
+;				   2 2 2 0 2 0 2 0 2 2 0 2 2 2 0 0 
+;				   2 2 2 0 2 0 0 2 0 0 2 0 2 0 2 2 
+;				   2 2 2 0 2 0 2 2 0 2 2 0 2 2 2 2 
+;				   2 2 2 0 2 0 2 2 0 2 2 0 2 2 0 0 
+;				   2 2 2 0 2 0 2 2 0 2 2 0 2 0 2 1))))
+;
+;(iup:handle-name-set! img1 "img1")
+;(iup:attribute-set! img1 "0" "0 0 0")
+;(iup:attribute-set! img1 "1" "BGCOLOR")
+;(iup:attribute-set! img1 "2" "255 0 0")
+;
+;(iup:handle-name-set! img2 "img2")
+;(iup:attribute-set! img2 "0" "0 0 0")
+;(iup:attribute-set! img2 "1" "BGCOLOR")
+;(iup:attribute-set! img2 "2" "255 0 0")
+
 (define (message-window msg)
   (iup:show
    (iup:dialog
     (iup:vbox 
      (iup:label msg #:margin "40x40")))))
@@ -152,12 +200,16 @@
 	 (fulltestname (iup:attribute btn "TITLE"))
 	 (parts        (string-split fulltestname "("))
 	 (basetestname (if (null? parts) "" (car parts))))
     ;(print "Toggling " basetestname " currently " (hash-table-ref/default *collapsed* basetestname #f))
     (if (hash-table-ref/default *collapsed* basetestname #f)
-	(hash-table-delete! *collapsed* basetestname)
-	(hash-table-set! *collapsed* basetestname #t))))
+	(begin
+	  ;(iup:attribute-set! btn "FGCOLOR" "0 0 0")
+	  (hash-table-delete! *collapsed* basetestname))
+	(begin
+	  ;(iup:attribute-set! btn "FGCOLOR" "0 192 192")
+	  (hash-table-set! *collapsed* basetestname #t)))))
   
 (define blank-line-rx (regexp "^\\s*$"))
 
 (define (collapse-rows inlst)
   (let ((newlst (filter (lambda (x)
@@ -204,10 +256,11 @@
       (let* ((lbl    (vector-ref lftcol i))
 	     (oldval (iup:attribute lbl "TITLE"))
 	     (newval (vector-ref allvals i)))
 	(if (not (equal? oldval newval))
 	    (iup:attribute-set! lbl "TITLE" newval))
+	(iup:attribute-set! lbl "FGCOLOR" (if (hash-table-ref/default *collapsed* newval #f) "0 112 112" "0 0 0"))
 	(if (< i maxn)
 	    (loop (+ i 1)))))))
 
 (define (get-color-for-state-status state status)
   (case (string->symbol state)
@@ -372,10 +425,12 @@
 	;; now lftlst will be an hbox with the test keys and the test name labels
 	(set! lftlst (append lftlst (list (apply iup:vbox (reverse res))))))
        (else
 	(let ((labl  (iup:button "" 
 				 #:flat "YES" 
+				 ; #:image img1
+				 ; #:impress img2
 				 #:size "100x15"
 				 #:fontsize "10"
 				 #:action (lambda (obj)
 					      (toggle-hide testnum))))) ;; (iup:attribute obj "TITLE"))))
 	  (vector-set! lftcol testnum labl)