Overview
| Comment: | Fixed launching of viewscreen causing hesitation on cleanrunexecute |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | run-mgr |
| Files: | files | file ages | folders |
| SHA1: |
d2a7fb2fe4379518c982c16e3b294a2a |
| User & Date: | matt on 2017-02-16 22:06:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-18
| ||
| 22:15 | Added a simple crontab-like function for time based triggers check-in: 27f026b730 user: matt tags: run-mgr | |
|
2017-02-16
| ||
| 22:06 | Fixed launching of viewscreen causing hesitation on cleanrunexecute check-in: d2a7fb2fe4 user: matt tags: run-mgr | |
| 21:52 | Fixed minor breakage from previous commit check-in: c5853b67b1 user: matt tags: run-mgr | |
Changes
Modified dashboard-tests.scm from [0388c35774] to [48afb7d0be].
| ︙ | ︙ | |||
43 44 45 46 47 48 49 |
(define (dtests:get-pre-command #!key (default-override #f))
(let ((cfg-ovrd (configf:lookup *configdat* "dashboard" "pre-command")))
(or cfg-ovrd default-override "viewscreen "))) ;; "xterm -geometry 180x20 -e \"")))
(define (dtests:get-post-command #!key (default-override #f))
(let ((cfg-ovrd (configf:lookup *configdat* "dashboard" "post-command")))
| | | 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
(define (dtests:get-pre-command #!key (default-override #f))
(let ((cfg-ovrd (configf:lookup *configdat* "dashboard" "pre-command")))
(or cfg-ovrd default-override "viewscreen "))) ;; "xterm -geometry 180x20 -e \"")))
(define (dtests:get-post-command #!key (default-override #f))
(let ((cfg-ovrd (configf:lookup *configdat* "dashboard" "post-command")))
(or cfg-ovrd default-override " &"))) ;; ";echo Press any key to continue;bash -c 'read -n 1 -s'\" &")))
(define (test-info-panel testdat store-label widgets)
(iup:frame
#:title "Test Info" ; #:expand "YES"
(iup:hbox ; #:expand "YES"
(apply iup:vbox ; #:expand "YES"
|
| ︙ | ︙ |