Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -211,11 +211,11 @@
   ((item-test-names  '())                : list)        ;; list of itemized tests
   ((run-keys          (make-hash-table)) : hash-table)
   (runs-matrix        #f)                               ;; used in newdashboard
   ((start-run-offset   0)                : number)      ;; left-right slider value
   ((start-test-offset  0)                : number)      ;; up-down slider value
-  ((runs-btn-height    (or (configf:lookup *configdat* "dashboard" "btn-height") "x14")) : string)  ;; was 12
+  ((runs-btn-height    (or (configf:lookup *configdat* "dashboard" "btn-height") "x16")) : string)  ;; was 12
   ((runs-btn-fontsz    (or (configf:lookup *configdat* "dashboard" "btn-fontsz") "10")) : string)   ;; was 8
   ((runs-cell-width    (or (configf:lookup *configdat* "dashboard" "cell-width") "60")) : string)   ;; was 50
   ((all-test-names     '())              : list)
   
   ;; Canvas and drawing data
@@ -1503,11 +1503,11 @@
       (let* ((cnv-obj (iup:canvas 
 		       ;; #:size "500x400"
 		       #:expand "YES"
 		       #:scrollbar "YES"
 		       #:posx "0.5"
-		       #:posy "0.5"
+		       ;;#:posy "0.5"
 		       #:action (make-canvas-action
 				  (lambda (c xadj yadj)
 				    (debug:catch-and-dump
 				     (lambda ()
 				       (if (not (dboard:tabdat-cnv tabdat))
@@ -2524,11 +2524,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 (conc cell-width btn-height)  #:fontsize btn-fontsz #:expand "NO"))) ;; #:expand "HORIZONTAL" "60x15" 
+	(let ((labl  (iup:label "" #:size (conc cell-width btn-height)  #:fontsize btn-fontsz #:expand "HORIZONTAL"))) ;; #:expand "HORIZONTAL" "60x15" 
 	  (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)
@@ -2543,11 +2543,11 @@
        (else
 	(let* ((button-key (mkstr runnum testnum))
 	       (butn       (iup:button
 			    "" ;; button-key 
 			    #:size (conc cell-width btn-height )
-			    #:expand "NO"
+			    #:expand "HORIZONTAL"
 			    #:fontsize btn-fontsz
 			    #:button-cb
 			    (lambda (obj a pressed x y btn . rem)
 			      ;; (print "pressed= " pressed " x= " x " y= " y " rem=" rem " btn=" btn " string? " (string? btn))
 			      (if  (substring-index "3" btn)
@@ -3080,11 +3080,11 @@
                                                           (let* ((val    (vector-ref hed 2))
                                                                  (newmin (if (< val min) val min))
                                                                  (newmax (if (> val max) val max))
                                                                  (newres (cons val res)))
                                                             (if (null? tal)
-                                                                (values (reverse res) newmin newmax)
+                                                                (values (reverse res) (- newmin 2) (+ newmax 2))
                                                                 (loop (car tal)(cdr tal) newres newmin newmax)))))))
                   (if (not (hash-table-exists? graph-matrix-table fieldn))
                       (begin
                         (let* ((graph-color-rgb (vg:generate-color-rgb))
                                (graph-color (vg:iup-color->number graph-color-rgb))