Differences From Artifact [61c5e670c0]:
- File dashboard.scm — part of check-in [e0d44ae25e] at 2013-07-10 20:39:48 on branch dev — Server control panel done (user: mrwellan, size: 51107) [annotate] [blame] [check-ins using]
To Artifact [f215c11c57]:
- File dashboard.scm — part of check-in [1695ea179a] at 2013-07-11 13:03:22 on branch dev — Added runtimelim, changed kill to simply use built-in process-signal on top process, several minor bug fixes, changed run browser for summary page to start collapsed (user: mrwellan, size: 51131) [annotate] [blame] [check-ins using] [more...]
| ︙ | |||
916 917 918 919 920 921 922 923 924 925 926 927 928 929 | 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 |
| ︙ |