@@ -23,10 +23,13 @@ (include "common_records.scm") (include "db_records.scm") (include "key_records.scm") +;; yes, this is non-ideal +(define dashboard:update-summary-tab #f) + ;;====================================================================== ;; D A T A T A B L E S ;;====================================================================== ;; Table of keys @@ -164,10 +167,11 @@ (row-num (cadr (assoc row-name row-indices))) (col-num (cadr (assoc col-name col-indices)))) (iup:attribute-set! stats-matrix (conc row-num ":" col-num) value))) run-stats))))) (updater) + (set! dashboard:update-summary-tab updater) (iup:attribute-set! stats-matrix "WIDTHDEF" "40") (iup:vbox (iup:label "Run statistics" #:expand "HORIZONTAL") stats-matrix)))