Differences From Artifact [929e1f3c0c]:
- File dashboard.scm — part of check-in [8b35992868] at 2016-10-18 23:25:38 on branch v1.62 — Replaced apply max with common:max in few places (user: matt, size: 147832) [annotate] [blame] [check-ins using]
To Artifact [1d05b40be7]:
- File dashboard.scm — part of check-in [5ff16368ff] at 2016-10-27 15:21:46 on branch v1.62 — Run tab resize fixed (user: ritikaag, size: 147856) [annotate] [blame] [check-ins using] [more...]
| ︙ | ︙ | |||
1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 |
))
(tb
(iup:treebox
#:value 0
#:name "Runs"
#:expand "YES"
#:addexpanded "NO"
#:selection-cb
(lambda (obj id state)
(debug:catch-and-dump
(lambda ()
(let* ((run-path (tree:node->path obj id))
(run-id (tree-path->run-id tabdat (cdr run-path))))
;; (dboard:tabdat-view-changed-set! tabdat #t) ;; ?? done below when run-id is a number
| > | 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 |
))
(tb
(iup:treebox
#:value 0
#:name "Runs"
#:expand "YES"
#:addexpanded "NO"
#:size "10x"
#:selection-cb
(lambda (obj id state)
(debug:catch-and-dump
(lambda ()
(let* ((run-path (tree:node->path obj id))
(run-id (tree-path->run-id tabdat (cdr run-path))))
;; (dboard:tabdat-view-changed-set! tabdat #t) ;; ?? done below when run-id is a number
|
| ︙ | ︙ |