Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm @@ -1434,11 +1434,10 @@ (graph-dat (hash-table-ref/default graph-cell-table graph-cell #f)) (graph-flag (dboard:graph-dat-flag graph-dat))) (if graph-flag (dboard:graph-dat-flag-set! graph-dat #f) (dboard:graph-dat-flag-set! graph-dat #t)) - (print "Toggling graph, need to work on updaters") (if (not (dboard:tabdat-running-layout tabdat)) (begin (dashboard:run-times-tab-run-data-updater commondat tabdat tab-num) (dboard:tabdat-last-data-update-set! tabdat (current-seconds)) (thread-start! (make-thread @@ -1688,11 +1687,11 @@ (hash-table-set! cell-lookup key test-id) (if (not (equal? (iup:attribute run-matrix key) (cadr value))) (begin (set! changed #t) (iup:attribute-set! run-matrix key (cadr value)) - (print "RA=> value" (car value)) + ;; (print "RA=> value" (car value)) (iup:attribute-set! run-matrix (conc "BGCOLOR" key) (car value)))))) matrix-content) ;; Col labels - do after setting Cell contents so they are accounted for in the size calc. @@ -2968,11 +2967,12 @@ flag: #t cell: graph-cell ))) (hash-table-set! graph-matrix-table fieldn graph-dat) (hash-table-set! graph-cell-table graph-cell graph-dat) - (print "Graph data " graph-matrix-row " " graph-matrix-col " " fieldn " " graph-color " " graph-color-rgb " ") + ;; (print "Graph data " graph-matrix-row " " graph-matrix-col " " fieldn " " graph-color " " graph-color-rgb " ") + ;; (print "Graph data " graph-matrix-row " " graph-matrix-col " " fieldn " " graph-color " " graph-color-rgb " ") (set! changed #t) (iup:attribute-set! graph-matrix (conc graph-matrix-row ":" graph-matrix-col) fieldn) (iup:attribute-set! graph-matrix (conc "BGCOLOR" (conc graph-matrix-row ":" graph-matrix-col)) graph-color-rgb) (if (> graph-matrix-col 10) (begin @@ -2988,11 +2988,10 @@ (yscale (/ delta-y (if (zero? deltaval) 1 deltaval))) (yfunc (lambda (y)(+ lly (* yscale (- y minval))))) ;; (lambda (y)(* (+ y yoff) yscale)))) (graph-dat (hash-table-ref graph-matrix-table fieldn)) (graph-color (dboard:graph-dat-color graph-dat)) (graph-flag (dboard:graph-dat-flag graph-dat))) - (print "Value of " fieldn "graph is " graph-flag) (if graph-flag (begin (vg:add-obj-to-comp cmp (vg:make-text-obj (- llx 10)(yfunc maxval) (conc maxval)))