Overview
| Comment: | Added example hard-coded level for runtype |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | multi-area-dboard |
| Files: | files | file ages | folders |
| SHA1: |
36205402a339ebddcf3f926619c71ec7 |
| User & Date: | mrwellan on 2017-02-10 06:28:39 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-10
| ||
| 06:28 | Added example hard-coded level for runtype Closed-Leaf check-in: 36205402a3 user: mrwellan tags: multi-area-dboard | |
|
2017-02-09
| ||
| 22:02 | Added label widget for target selection back (but not fully wired up yet) check-in: d3f4ebaa66 user: matt tags: multi-area-dboard | |
Changes
Modified dashboard.scm from [7f48160ca3] to [504d2b9be5].
| ︙ | ︙ | |||
1672 1673 1674 1675 1676 1677 1678 |
;; (if (not existing)
(begin
(hash-table-set! (dboard:tabdat-run-keys tabdat) run-id run-path)
;; (iup:attribute-set! (dboard:tabdat-runs-matrix tabdat)
;; (conc rownum ":" colnum) col-name)
;; (hash-table-set! runid-to-col run-id (list colnum run-record))
;; Here we update the tests treebox and tree keys
| | | 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 |
;; (if (not existing)
(begin
(hash-table-set! (dboard:tabdat-run-keys tabdat) run-id run-path)
;; (iup:attribute-set! (dboard:tabdat-runs-matrix tabdat)
;; (conc rownum ":" colnum) col-name)
;; (hash-table-set! runid-to-col run-id (list colnum run-record))
;; Here we update the tests treebox and tree keys
(tree:add-node tb "Areas" (cons "smoketest" (cons area-name run-path))) ;; (append key-vals (list run-name))
;; userdata: (conc "run-id: " run-id))))
(hash-table-set! (dboard:tabdat-path-run-ids tabdat) run-path run-id)
;; (set! colnum (+ colnum 1))
))))
run-ids)))
(define (dashboard:tests-ht->tests-dat tests-ht)
|
| ︙ | ︙ | |||
2055 2056 2057 2058 2059 2060 2061 | (lambda (obj id state) (debug:catch-and-dump (lambda () ;; (print "obj: " obj ", id: " id ", state: " state) (let* ((run-path (tree:node->path obj id)) (path-len (length run-path)) (area-name (if (> path-len 1)(cadr run-path) #f)) | > | | | 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 |
(lambda (obj id state)
(debug:catch-and-dump
(lambda ()
;; (print "obj: " obj ", id: " id ", state: " state)
(let* ((run-path (tree:node->path obj id))
(path-len (length run-path))
(area-name (if (> path-len 1)(cadr run-path) #f))
(run-type (if (> path-len 2)(caddr run-path) #f))
(run-id (if (> path-len 3)
(tree-path->run-id tabdat (cdddr run-path))
#f)))
(dboard:tabdat-area-name-set! tabdat area-name)
(if (number? run-id)
(begin
(dboard:tabdat-prev-run-id-set!
tabdat
(dboard:tabdat-curr-run-id tabdat))
|
| ︙ | ︙ |