916
917
918
919
920
921
922
923
924
925
926
927
928
929
|
;; (define (tests window-id)
(define (dashboard:one-run)
(let* ((tb (iup:treebox
#:value 0
#:name "Runs"
#:expand "YES"
#: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
|
>
|
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
|
;; (define (tests window-id)
(define (dashboard:one-run)
(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
|