Differences From Artifact [41e907e532]:
- File tree.scm — part of check-in [8d86e61bbb] at 2014-08-22 16:53:20 on branch v1.60 — More of datashare working (user: mrwellan, size: 4177) [annotate] [blame] [check-ins using]
To Artifact [6b600655f5]:
- File tree.scm — part of check-in [dfe733bf8a] at 2014-10-09 00:01:36 on branch refactor-sqlite3-calls — Added snipped of example code in comment to tree.scm (user: matt, size: 4962) [annotate] [blame] [check-ins using] [more...]
| ︙ | ︙ | |||
111 112 113 114 115 116 117 |
path))
(newpath (append trimpath (list node-title))))
(if (>= currnode nodenum)
newpath
(loop (+ currnode 1)
newpath)))))
| > > > > > > > > > > > > > > > > > > > | 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 |
path))
(newpath (append trimpath (list node-title))))
(if (>= currnode nodenum)
newpath
(loop (+ currnode 1)
newpath)))))
#|
(let* ((tb (iup:treebox
#:value 0
#:name "Runs"
#:expand "YES"
#:addexpanded "NO"
#:selection-cb
(lambda (obj id state)
;; (print "obj: " obj ", id: " id ", state: " state)
(let* ((run-path (tree:node->path obj id))
(run-id (tree-path->run-id (cdr run-path))))
(if run-id
(begin
(dboard:data-set-curr-run-id! *data* run-id)
(dashboard:update-run-summary-tab)))
;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
))))
|#
|