Overview
| Comment: | Correct a misconversion from common:file-exists? to file-exists? |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-modularization |
| Files: | files | file ages | folders |
| SHA1: |
8abfd3775131b06db3b745f1c67a3b9a |
| User & Date: | mrwellan on 2018-03-28 09:48:52 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-04-02
| ||
| 11:36 | Updated couple license headers, removed some junk files check-in: 8f16c92785 user: mrwellan tags: v1.65-modularization | |
|
2018-03-28
| ||
| 09:48 | Correct a misconversion from common:file-exists? to file-exists? check-in: 8abfd37751 user: mrwellan tags: v1.65-modularization | |
|
2018-03-27
| ||
| 15:45 | Merged v1.65-moularization into v1.65 check-in: 992c83b80d user: mrwellan tags: v1.65-modularization | |
Changes
Modified dashboard-tests.scm from [05e36e5a09] to [e283071bef].
| ︙ | ︙ | |||
253 254 255 256 257 258 259 | ))))) ;; if there is a submegatest create a button to launch dashboard in that area ;; (define (submegatest-panel dbstruct keydat testdat runname testconfig) (let* ((test-run-dir (db:test-get-rundir testdat)) (subarea (subrun:get-runarea test-run-dir)) | | | 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 |
)))))
;; if there is a submegatest create a button to launch dashboard in that area
;;
(define (submegatest-panel dbstruct keydat testdat runname testconfig)
(let* ((test-run-dir (db:test-get-rundir testdat))
(subarea (subrun:get-runarea test-run-dir))
(area-exists (and subarea (file-exists? subarea)))) ;; silent: #t))))
(if subarea
(iup:frame
#:title "Megatest Run Info" ; #:expand "YES"
(iup:button
"Launch Dashboard"
#:action (lambda (obj)
(subrun:launch-dashboard test-run-dir))))
|
| ︙ | ︙ |