Overview
| Comment: | Added label widget for target selection back (but not fully wired up yet) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | multi-area-dboard |
| Files: | files | file ages | folders |
| SHA1: |
d3f4ebaa660f4ea7f476cba008d2442d |
| User & Date: | matt on 2017-02-09 22:02:19 |
| 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 | |
|
2017-02-07
| ||
| 22:08 | Begin another attempt at multi-area dashboard check-in: 09ec9e3bbe user: matt tags: multi-area-dboard | |
Changes
Modified dashboard.scm from [9a3edcf290] to [7f48160ca3].
| ︙ | ︙ | |||
1368 1369 1370 1371 1372 1373 1374 | ;; #:value 300 ;; Target, testpatt, state and status input boxes ;; (iup:vbox ;; Command to run, placed over the top of the canvas (dcommon:command-action-selector commondat tabdat tab-num: tab-num) | > | > > > > > | 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 |
;; #:value 300
;; Target, testpatt, state and status input boxes
;;
(iup:vbox
;; Command to run, placed over the top of the canvas
(dcommon:command-action-selector commondat tabdat tab-num: tab-num)
(let ((targ-control (iup:tabs
(dboard:runs-tree-browser commondat tabdat)
(let ((dat (dashboard:update-target-selector tabdat)))
(apply iup:hbox (cadr dat))))))
(iup:attribute-set! targ-control "TABTITLE0" "Tree")
(iup:attribute-set! targ-control "TABTITLE1" "Sel")
targ-control)
(dcommon:command-runname-selector commondat tabdat tab-num: tab-num)
(dcommon:command-testname-selector commondat tabdat update-keyvals))
;; key-listboxes))
(dcommon:command-tests-tasks-canvas tabdat test-records sorted-testnames tests-draw-state))))
(tb (dboard:tabdat-runs-tree tabdat)))
(dboard:commondat-add-updater
commondat
|
| ︙ | ︙ | |||
2025 2026 2027 2028 2029 2030 2031 |
(dboard:tabdat-runs-summary-mode-buttons-set! tabdat summary-buttons)
;; maybe wrap in a frame
(let ((res (iup:vbox summary-buttons-hbox xor-runname-labels-hbox )))
(dboard:runs-summary-control-panel-updater tabdat)
res
)))
| < < | 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 |
(dboard:tabdat-runs-summary-mode-buttons-set! tabdat summary-buttons)
;; maybe wrap in a frame
(let ((res (iup:vbox summary-buttons-hbox xor-runname-labels-hbox )))
(dboard:runs-summary-control-panel-updater tabdat)
res
)))
;;======================================================================
;; R U N
;;======================================================================
;;
;; display and manage a single run at a time
|
| ︙ | ︙ |