@@ -738,11 +738,12 @@
       ;; (print "originx: " originx " originy: " originy)
       ;; (canvas-origin-set! cnv 0 (- (/ sizey 2)))
       (if (hash-table-ref/default tests-draw-state 'first-time #t)
 	  (begin
 	    (hash-table-set! tests-draw-state 'first-time #f)
-	    (hash-table-set! tests-draw-state 'scalef 8)
+	    (hash-table-set! tests-draw-state 'scalef 1)
+	    (hash-table-set! tests-draw-state 'dotscale 60)
 	    (hash-table-set! tests-draw-state 'tests-info (make-hash-table))
 	    (hash-table-set! tests-draw-state 'selected-tests (make-hash-table))
 	    ;; set these 
 	    (hash-table-set! tests-draw-state 'test-browse-xoffset 20) ;; (- 0 (* (/ sizex 2) (* 8 xadj))))
 	    (hash-table-set! tests-draw-state 'test-browse-yoffset 20) ;; (- 0 (* (/ sizey 2) (* 8 (- 1 yadj)))))))
@@ -775,11 +776,12 @@
 			     (if updater-for-runs (updater-for-runs))
 			     (dashboard:update-run-command))))
 	 (tests-draw-state (make-hash-table)) ;; use for keeping state of the test canvas
 	 (test-patterns-textbox  #f))
     (hash-table-set! tests-draw-state 'first-time #t)
-    (hash-table-set! tests-draw-state 'scalef 8)
+    ;; (hash-table-set! tests-draw-state 'scalef 1)
+    ;; (hash-table-set! tests-draw-state 'dotscale 60)
     (tests:get-full-data test-names test-records '() all-tests-registry)
     (set! sorted-testnames (tests:sort-by-priority-and-waiton test-records))
     
     ;; refer to *keys*, *dbkeys* for keys
     (iup:vbox
@@ -932,20 +934,27 @@
 					(updater xadj yadj)
 					(set! the-cnv cnv)
 					))
 			    ;; Following doesn't work 
 			    #:wheel-cb (lambda (obj step x y dir) ;; dir is 4 for up and 5 for down. I think.
-					 (let ((xadj last-xadj)
-					       (yadj (+ last-yadj (if (> step 0)
-								      -0.01
-								      0.01))))
+					 (let ((scalef (hash-table-ref tests-draw-state 'scalef)))
+					   ;; (debug:print 0 "step=" step ", dir=" dir ", scalef=" scalef ", x=" x ", y=" y)
+					   ;; (let (;; (xadj last-xadj)
+					   ;; (yadj (+ last-yadj (if (> step 0)
+					   ;;		      -0.01
+					   ;;			      0.01))))
+					   (hash-table-set! tests-draw-state 'scalef (+ scalef
+											(if (> step 0)
+											    0.01
+											    -0.01)))
+
 					   ;; (print "step: " step " x: " x " y: " y " dir: \"" dir "\"")
 					   ;; (print "the-cnv: " the-cnv " obj: " obj " xadj: " xadj " yadj: " yadj " dir: " dir)
 					   (if the-cnv
-					       (dashboard:draw-tests the-cnv xadj yadj tests-draw-state sorted-testnames test-records))
-					   (set! last-xadj xadj)
-					   (set! last-yadj yadj)
+					       (dashboard:draw-tests the-cnv last-xadj last-yadj tests-draw-state sorted-testnames test-records))
+					   ;; (set! last-xadj xadj)
+					   ;; (set! last-yadj yadj)
 					   ))
 			    ;; #:size "50x50"
 			    #:expand "YES"
 			    #:scrollbar "YES"
 			    #:posx "0.5"