@@ -1020,19 +1020,28 @@
 				 (dashboard:run-times-tab-updater commondat tab-num))))
     (dboard:tabdat-drawing-set! tabdat drawing)
     (dboard:commondat-add-updater commondat run-times-tab-updater tab-num: tab-num)
     (iup:vbox
      (let* ((cnv-obj (iup:canvas 
-		     #:size "500x400"
+		     ;; #:size "500x400"
 		     #:expand "YES"
 		     #:scrollbar "YES"
 		     #:posx "0.5"
 		     #:posy "0.5"
 		     #:action (make-canvas-action
 			       (lambda (c xadj yadj)
 				 (if (not (dboard:tabdat-cnv tabdat))
-				     (dboard:tabdat-cnv-set! tabdat c)))))))
+				     (dboard:tabdat-cnv-set! tabdat c))))
+		     #:wheel-cb (lambda (obj step x y dir) ;; dir is 4 for up and 5 for down. I think.
+				  (let* ((drawing (dboard:tabdat-drawing tabdat))
+					 (scalex  (vg:drawing-scalex drawing)))
+				    (vg:drawing-scalex-set! drawing
+							    (+ scalex
+							       (if (> step 0)
+								   (* scalex 0.01)
+								   (* scalex -0.01))))))
+		     )))
        cnv-obj))))
 
 ;;======================================================================
 ;; S U M M A R Y 
 ;;======================================================================
@@ -1638,12 +1647,12 @@
 			       (map (lambda (x)		
 				      (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 tabdat)
-										   (update-search commondat tabdat x val))))))
+										   (mark-for-update runs-dat)
+										   (update-search commondat runs-dat x val))))))
 					(set! i (+ i 1))
 					res))
 				    keynames)))))
     (let loop ((testnum  0)
 	       (res      '()))
@@ -1896,11 +1905,11 @@
 (define (dashboard:run-times-tab-updater commondat tab-num)
   ;; each test is an object in the run component
   ;; each run is a component
   ;; all runs stored in runslib library
   (let ((tabdat        (dboard:common-get-tabdat commondat tab-num: tab-num))
-	(canvas-margin 20)
+	(canvas-margin 10)
 	(start-row     0)) ;; each run starts in this row
     (if tabdat
 	(let* ((row-height 20)
 	       (drawing    (dboard:tabdat-drawing tabdat))
 	       (runslib    (vg:get/create-lib drawing "runslib"))) ;; creates and adds lib