Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -493,13 +493,13 @@
     ;; create the left most column for the run key names and the test names 
     (set! lftlst (list (iup:hbox
 			(iup:label) ;; (iup:valuator)
 			(apply iup:vbox 
 			       (map (lambda (x)		
-				      (let ((res (iup:hbox
-						  (iup:label x #:size "40x15" #:fontsize "10") ;;  #:expand "HORIZONTAL")
-						  (iup:textbox #:size "60x15" #:fontsize "10" #:value "%" ;; #:expand "HORIZONTAL"
+				      (let ((res (iup:hbox #:expand "HORIZONTAL"
+						  (iup:label x #:size "x15" #:fontsize "10" #:expand "HORIZONTAL")
+						  (iup:textbox #:size "x15" #:fontsize "10" #:value "%" #:expand "HORIZONTAL"
 							       #:action (lambda (obj unk val)
 									  (mark-for-update)
 									  (update-search x val))))))
 					(set! i (+ i 1))
 					res))
@@ -507,11 +507,11 @@
     (let loop ((testnum  0)
 	       (res      '()))
       (cond
        ((>= testnum ntests)
 	;; now lftlst will be an hbox with the test keys and the test name labels
-	(set! lftlst (append lftlst (list (iup:hbox 
+	(set! lftlst (append lftlst (list (iup:hbox  #:expand "HORIZONTAL"
 					   (iup:valuator #:valuechanged_cb (lambda (obj)
 									     (let ((val (string->number (iup:attribute obj "VALUE")))
 										   (oldmax  (string->number (iup:attribute obj "MAX")))
 										   (newmax  (* 10 (length *alltestnamelst*))))
 									       (set! *please-update-buttons* #t)
@@ -518,20 +518,21 @@
 									       (set! *start-test-offset* (inexact->exact (round (/ val 10))))
 									       (debug:print 6 "*start-test-offset* " *start-test-offset* " val: " val " newmax: " newmax " oldmax: " oldmax)
 									       (if (< val 10)
 										   (iup:attribute-set! obj "MAX" newmax))
 									       ))
-							 #:expand "YES" 
+							 #:expand "VERTICAL" 
 							 #:orientation "VERTICAL")
 					   (apply iup:vbox (reverse res)))))))
        (else
 	(let ((labl  (iup:button "" 
 				 #:flat "YES" 
 				 #:alignment "ALEFT"
 				 ; #:image img1
 				 ; #:impress img2
-				 #:size "100x15"
+				 #:size "x15"
+				 #:expand "HORIZONTAL"
 				 #:fontsize "10"
 				 #:action (lambda (obj)
 					    (mark-for-update)
 					    (toggle-hide testnum))))) ;; (iup:attribute obj "TITLE"))))
 	  (vector-set! lftcol testnum labl)
@@ -546,11 +547,11 @@
        ((>= keynum nkeys) 
 	(vector-set! header runnum keyvec)
 	(set! hdrlst (cons (apply iup:vbox (reverse res)) hdrlst))
 	(loop (+ runnum 1) 0 (make-vector nkeys) '()))
        (else
-	(let ((labl  (iup:label "" #:size "60x15" #:fontsize "10"))) ;; #:expand "HORIZONTAL"
+	(let ((labl  (iup:label "" #:size "60x15" #:fontsize "10" #:expand "HORIZONTAL"))) ;; #:expand "HORIZONTAL"
 	  (vector-set! keyvec keynum labl)
 	  (loop runnum (+ keynum 1) keyvec (cons labl res))))))
     ;; By here the hdrlst contains a list of vboxes containing nkeys labels
     (let loop ((runnum  0)
 	       (testnum 0)
@@ -564,11 +565,11 @@
 	(loop (+ runnum 1) 0 (make-vector ntests) '()))
        (else
 	(let* ((button-key (mkstr runnum testnum))
 	       (butn       (iup:button "" ;; button-key 
 				       #:size "60x15" 
-				       ;; #:expand "HORIZONTAL"
+				       #:expand "HORIZONTAL"
 				       #:fontsize "10" 
 				       #:action (lambda (x)
 						  (let* ((toolpath (car (argv)))
 							 (buttndat (hash-table-ref *buttondat* button-key))
 							 (test-id  (db:test-get-id (vector-ref buttndat 3)))