Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm @@ -2533,11 +2533,12 @@ (cnv (dboard:tabdat-cnv tabdat))) (print "allruns: " allruns) (let*-values (((sizex sizey sizexmm sizeymm) (canvas-size cnv)) ((originx originy) (canvas-origin cnv)) ((calc-y) (lambda (rownum) - (- sizey (* rownum row-height))))) + ;; (- sizey + (* rownum row-height)))) ;; (print "allruns: " allruns) (let runloop ((rundat (car allruns)) (runtal (cdr allruns)) (run-num 1) (doneruns '()))