Megatest

								  (+ scalex
								     (if (> step 0)
									 (* scalex  0.02)
									 (* scalex -0.02))))))
				      "wheel-cb"))
		       )))
	cnv-obj)
      (let* ((hb1 (iup:hbox))
             (buttondat (dboard:tabdat-graph-button-dat tabdat)))
             ;; (b1 (iup:button "testbutton")))
        (dboard:tabdat-graph-button-box-set! tabdat hb1)
      (let* ((hb1 (iup:hbox (iup:button "Checking"))))
        (dboard:tabdat-graph-button-box-set! tabdat hb1)
        hb1)
      ;; (let* ((hb2 (iup:hbox))
      ;;        (b1 (iup:button "Checking")))
      ;;   (dboard:tabdat-graph-button-box-set! tabdat hb2)
        (for-each
         (lambda (buttondat)
           (let* ((b1 (iup:button "buttondat-graph-name")))
           (iup:child-add! b1 hb1))))
        hb1)
      ;;   (iup:child-add! b1 hb2)
      ;;   hb2)
      ))))

;;======================================================================
;; R U N
;;======================================================================
;;
;; display and manage a single run at a time

  (let* ((dwg      (dboard:tabdat-drawing tabdat))
	 (lib      (vg:get/create-lib dwg "runslib"))
	 (cnv      (dboard:tabdat-cnv tabdat))
	 (dur      (- tstart tend)) ;; time duration
	 (cmp      (vg:get-component dwg "runslib" compname))
	 (cfg      (configf:get-section *configdat* "graph"))
	 (stdcolor (vg:rgb->number 120 130 140))
	 (delta-y  (- uly lly)))
	 (delta-y  (- uly lly))
         (hb1      (dboard:tabdat-graph-button-box tabdat)))
    (vg:add-obj-to-comp
     cmp 
     (vg:make-rect-obj llx lly ulx uly))
    (vg:add-obj-to-comp
     cmp
     (vg:make-text-obj (- (tfn tstart) 10)(- lly 10)(seconds->year-week/day-time tstart)))
    (let*-values (((span timeunit time-blk first timesym) (common:find-start-mark-and-mark-delta tstart tend)))

			    (vg:make-text-obj (- smark 1)(- lly 10) label))))
		     (if (< mark (- tend time-blk))
			 (loop (+ mark time-blk)(+ count 1))))))
    (for-each 
     (lambda (cf)
       (let* ((alldat  (dboard:graph-read-data (cadr cf) tstart tend)))
	 (if alldat
             ;; RA => generate canvas
	     (for-each
	      (lambda (fieldn)
		(let* ((dat     (hash-table-ref alldat fieldn))
		       (vals    (map (lambda (x)(vector-ref x 2)) dat))
                       (buttondat (tabdat-graph-button-dat)))
                       (buttondat (dboard:tabdat-graph-button-dat tabdat)))
                  (if (not (hash-table-exists? buttondat fieldn))
                      (let* ((b1 (iup:button fieldn)))
                        (hash-table-set! buttondat fieldn b1)
                        (print "fieldn is " fieldn "hb1: " hb1)
                        (iup:child-add! b1 hb1)))

                  ;; (print "graph-button-dat in runtimes is " (dboard:tabdat-graph-button-dat tabdat))
                  ;; (print "fieldn alldat dat vals buttondat " fieldn alldat dat vals buttondat)
                  ;; Check if the dat is already added in the buttondat table; if not add it
		  (if (not (null? vals))
		      (let* ((maxval   (apply max vals))
			     (minval   (min 0 (apply min vals)))
			     (yoff     (- minval lly)) ;;  minval))
			     (deltaval (- maxval minval))
			     (yscale   (/ delta-y (if (zero? deltaval) 1 deltaval)))

			;; 	  (stval (tfn tval))
			;; 	  (syval (yfunc yval)))
			;;      (vg:add-obj-to-comp
			;;       cmp 
			;;       (vg:make-rect-obj (- stval 2) lly (+ stval 2)(+ lly (* yval yscale))
			;; 			fill-color: stdcolor))))
			;;  dat)
			))
                  (iup:redraw hb1 #:children? #t)
			)))) ;; for each data point in the series
                  (iup:refresh hb1))) ;; for each data point in the series
	      (hash-table-keys alldat)))))
     cfg)))

	 
;; run times tab
;;
(define (dashboard:run-times-tab-layout-updater commondat tabdat tab-num)
  ;; each test is an object in the run component
  ;; each run is a component
  ;; all runs stored in runslib library