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 | 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 |
︙ | |||
2055 2056 2057 2058 2059 2060 2061 | 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)) |
︙ |