Overview
| Comment: | Dashboard tabs only update if active to save cycles |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dev |
| Files: | files | file ages | folders |
| SHA1: |
c59a49651e206dfd85183ed0e7ecc1a9 |
| User & Date: | mrwellan on 2013-07-03 17:26:28 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-07-06
| ||
| 18:10 | Merged kind-db-access back to development check-in: 11aea778da user: matt tags: dev | |
|
2013-07-03
| ||
| 21:24 | Partial fix of balanced db access with new tabs check-in: a68eb8288b user: matt tags: dev, kind-db-access | |
| 17:26 | Dashboard tabs only update if active to save cycles check-in: c59a49651e user: mrwellan tags: dev | |
| 17:22 | Dashboard tabs only update if active to save cycles check-in: f84e5af141 user: mrwellan tags: dev | |
Changes
Modified dashboard.scm from [8221068fa2] to [758017a52f].
| ︙ | |||
893 894 895 896 897 898 899 900 901 902 903 904 905 906 | 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 | + |
(> (file-modification-time (conc *toppath* "/megatest.db")) *last-db-update-time*))
(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" "%")
(let ((res '()))
(for-each (lambda (key)
|
| ︙ |
Modified dcommon.scm from [26cee9e3e3] to [771ef77c06].
| ︙ | |||
21 22 23 24 25 26 27 28 29 30 31 32 33 34 | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | + + + | (declare (uses db)) (declare (uses synchash)) (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 (define (dcommon:keys-matrix rawconfig) (let* ((curr-row-num 1) |
| ︙ | |||
162 163 164 165 166 167 168 169 170 171 172 173 174 175 | 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 | + |
(col-name (cadr entry))
(value (caddr entry))
(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)))
;; The main menu
(define (dcommon:main-menu)
|
| ︙ |