Overview
Comment: | tree enabled. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-real-new-runs-view |
Files: | files | file ages | folders |
SHA1: |
4f948bab9ee4262eead62c4daab171bf |
User & Date: | matt on 2021-02-15 22:05:36 |
Other Links: | branch diff | manifest | tags |
Context
2021-02-17
| ||
22:50 | basic widgets in place check-in: 1893d712b7 user: matt tags: v1.65-real-new-runs-view | |
2021-02-15
| ||
22:05 | tree enabled. check-in: 4f948bab9e user: matt tags: v1.65-real-new-runs-view | |
21:46 | New runs view check-in: 6401245dc8 user: matt tags: v1.65-real-new-runs-view | |
Changes
Modified dashboard-new-runs-view.scm from [bca8e9de51] to [d8b00d8358].
︙ | |||
47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 | + - + - + - - - - + - | (lambda (runrec) (let* ((run-id (simple-run-id runrec)) (full-targ-runname (conc (simple-run-target runrec) "/" (simple-run-runname runrec)))) (debug:print 0 *default-log-port* "Update run " run-id) (sparse-vector-set! (dboard:rdat-runs rdat) run-id runrec) (hash-table-set! (dboard:rdat-targ-runid rdat) full-targ-runname run-id) (tree:add-node tb "Runs" (string-split full-targ-runname "/")) )) data) numruns)) ;;====================================================================== ;; The "new" runs browser, this one sets up the view and registers the ;; updater ;; (define (dashboard:runs-browse commondat tabdat #!key (tab-num 5)) (let* ((rdat (make-dboard:rdat))) (dboard:commondat-add-updater commondat (lambda () |
︙ |
Modified dashboard.scm from [8ae05c9fa2] to [33886fa835].
︙ | |||
1825 1826 1827 1828 1829 1830 1831 | 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 | - + + | (define (tree-path->run-id tabdat path) (if (not (null? path)) (hash-table-ref/default (dboard:tabdat-path-run-ids tabdat) path #f) #f)) (define (new-tree-path->run-id rdat path) (if (not (null? path)) |
︙ |