Overview
| Comment: | restored previous default pre-command and post-command same as old xterm, with new dashboard.use-viewscreen option to turn back on |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-viewscreen-optional |
| Files: | files | file ages | folders |
| SHA1: |
2f6825c738be3a9d276e65d43975278b |
| User & Date: | bjbarcla on 2017-02-13 17:45:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-08-29
| ||
| 12:04 | Merged in missing viewscreen fix check-in: a5ed8f0caa user: mrwellan tags: v1.65 | |
|
2017-02-13
| ||
| 17:45 | restored previous default pre-command and post-command same as old xterm, with new dashboard.use-viewscreen option to turn back on Closed-Leaf check-in: 2f6825c738 user: bjbarcla tags: v1.63-viewscreen-optional | |
|
2017-02-10
| ||
| 15:16 | Added some brief info on wildcards in runconfigs to the user manual check-in: 39f84a3f86 user: mrwellan tags: v1.63 | |
Changes
Modified dashboard-tests.scm from [0388c35774] to [2f9df8bb8d].
| ︙ | ︙ | |||
38 39 40 41 42 43 44 | ;;====================================================================== ;; C O M M O N ;;====================================================================== (define *dashboard-comment-share-slot* #f) (define (dtests:get-pre-command #!key (default-override #f)) | > > > > | | > > > > > > | | | 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
;;======================================================================
;; C O M M O N
;;======================================================================
(define *dashboard-comment-share-slot* #f)
(define (dtests:get-pre-command #!key (default-override #f))
(let* ((orig-pre-command "export CMD='")
(viewscreen-pre-command "viewscreen ")
(use-viewscreen (configf:lookup *configdat* "dashboard" "use-viewscreen"))
(default-pre-command (if use-viewscreen viewscreen-pre-command orig-pre-command))
(cfg-ovrd (configf:lookup *configdat* "dashboard" "pre-command")))
(or cfg-ovrd default-override default-pre-command))) ;; "xterm -geometry 180x20 -e \""))
(define (dtests:get-post-command #!key (default-override #f))
(let* ((orig-post-command (conc "';xterm -geometry 180x20 -e \"(echo; echo -n START:;date +ww%U.%w-$H:%M:%S;echo;echo $CMD;echo;$CMD)|&"
"tee -a runlog-`date +ww%U.%w-%H:%M`.log;echo Press any key to continue;bash -c 'read -n 1 -s'\" &"))
(viewscreen-post-command "")
(use-viewscreen (configf:lookup *configdat* "dashboard" "use-viewscreen"))
(default-post-command (if use-viewscreen viewscreen-post-command orig-post-command))
(cfg-ovrd (configf:lookup *configdat* "dashboard" "post-command")))
(or cfg-ovrd default-override default-post-command))) ;; ";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"
|
| ︙ | ︙ |