Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -664,11 +664,12 @@
 			    (run-id   (tree-path->run-id (cdr run-path))))
 		       (if run-id
 			   (begin
 			     (dboard:data-set-curr-run-id! *data* run-id)
 			     (dashboard:update-run-summary-tab)))
-		       (print "path: " (tree:node->path obj id) " run-id: " run-id)))))
+		       ;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
+		       ))))
 	 (run-matrix (iup:matrix
 		      #:expand "YES"))
 	 (updater  (lambda ()
 		     (let* ((runs-dat     (mt:get-runs-by-patt *keys* "%" #f))
 			    (runs-header  (vector-ref runs-dat 0)) ;; 0 is header, 1 is list of records
@@ -722,14 +723,15 @@
 				       (hash-table-set! (dboard:data-get-path-run-ids *data*) path run-id))
 				     ;; (set! colnum (+ colnum 1))
 				     ))
 				 run-ids)
 		       (iup:attribute-set! run-matrix "CLEARVALUE" "CONTENTS")
+		       (iup:attribute-set! run-matrix "CLEARATTRIB" "CONTENTS")
 		       (iup:attribute-set! run-matrix "NUMCOL" max-col )
 		       (iup:attribute-set! run-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20
-		       (iup:attribute-set! run-matrix "NUMCOL_VISIBLE" max-col)
-		       (iup:attribute-set! run-matrix "NUMLIN_VISIBLE" (if (> max-row max-visible) max-visible max-row))
+		       ;; (iup:attribute-set! run-matrix "NUMCOL_VISIBLE" max-col)
+		       ;; (iup:attribute-set! run-matrix "NUMLIN_VISIBLE" (if (> max-row max-visible) max-visible max-row))
 		       
 		       ;; Row labels
 		       (for-each (lambda (ind)
 				   (let* ((name (car ind))
 					  (num  (cadr ind))
@@ -746,16 +748,16 @@
 					  (num  (cadr ind))
 					  (key  (conc "0:" num)))
 				     (if (not (equal? (iup:attribute run-matrix key) name))
 					 (begin
 					   (set! changed #t)
-					   (iup:attribute-set! run-matrix key name)))))
+					   (iup:attribute-set! run-matrix key name)
+					   (iup:attribute-set! run-matrix "FITTOTEXT" (conc "C" num))))))
 				 col-indices)
 		       
 		       ;; Cell contents
 		       (for-each (lambda (entry)
-				   (debug:print-info 0 "entry=" entry)
 				   (let* ((row-name  (cadr entry))
 					  (col-name  (car entry))
 					  (valuedat  (caddr entry))
 					  (test-id   (list-ref valuedat 0))
 					  (test-name row-name) ;; (list-ref valuedat 1))
@@ -773,11 +775,11 @@
 					   (iup:attribute-set! run-matrix (conc "BGCOLOR" key) (car value))))))
 				 tests-mindat)
 		       (if changed (iup:attribute-set! run-matrix "REDRAW" "ALL"))))))
     (set! dashboard:update-run-summary-tab updater)
     (dboard:data-set-runs-tree! *data* tb)
-    (iup:hbox 
+    (iup:split
      tb
      run-matrix)))
 
 ;;======================================================================
 ;; R U N S