Megatest

Check-in [56bd54e48e]
Login
Overview
Comment:Pulled in fix for dashboard launching
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63
Files: files | file ages | folders
SHA1: 56bd54e48edb656b1665cdc0aaf4567864e584cb
User & Date: matt on 2017-02-17 20:48:54
Other Links: branch diff | manifest | tags
Context
2017-02-22
13:53
merged in read-only support check-in: 46372e7493 user: bjbarcla tags: v1.63
12:35
merged v1.63 Closed-Leaf check-in: a0e40d2621 user: bjbarcla tags: v1.63-readonly
2017-02-20
07:03
Merged first version of mtutil into v1.64 Closed-Leaf check-in: 45b3d258d9 user: matt tags: v1.64-defunct
2017-02-17
20:48
Pulled in fix for dashboard launching check-in: 56bd54e48e user: matt tags: v1.63
2017-02-16
07:54
Bump version to v1.6308 check-in: c0783292db user: mrwellan tags: v1.63, v1.6308
Changes

Modified dashboard-tests.scm from [0388c35774] to [48afb7d0be].

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"







|







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"