Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm @@ -895,10 +895,11 @@ (define (dashboard:set-db-update-time) (set! *last-db-update-time* (file-modification-time (conc *toppath* "/megatest.db")))) (define (dashboard:run-update x) (case *current-tab-number* + ((0) (dashboard:update-summary-tab)) ((1) ;; The runs table is active (update-buttons uidat *num-runs* *num-tests*) (update-rundat (hash-table-ref/default *searchpatts* "runname" "%") *num-runs* (hash-table-ref/default *searchpatts* "test-name" "%/%") ;; (hash-table-ref/default *searchpatts* "item-name" "%") Index: dcommon.scm ================================================================== --- dcommon.scm +++ dcommon.scm @@ -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)))