646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
|
;; General info about the run(s) and megatest area
(define (dashboard:summary)
(let ((rawconfig (read-config (conc *toppath* "/megatest.config") #f 'return-string)))
(iup:vbox
(iup:hbox
(dcommon:general-info)
(dcommon:keys-matrix rawconfig))
(dcommon:section-matrix rawconfig "setup" "Varname" "Value"))))
;;======================================================================
;; R U N S
;;======================================================================
(define (make-dashboard-buttons nruns ntests keynames)
(let* ((nkeys (length keynames))
|
|
>
|
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
|
;; General info about the run(s) and megatest area
(define (dashboard:summary)
(let ((rawconfig (read-config (conc *toppath* "/megatest.config") #f 'return-string)))
(iup:vbox
(iup:hbox
(dcommon:general-info)
(dcommon:keys-matrix rawconfig))
(dcommon:section-matrix rawconfig "setup" "Varname" "Value")
(dcommon:run-stats))))
;;======================================================================
;; R U N S
;;======================================================================
(define (make-dashboard-buttons nruns ntests keynames)
(let* ((nkeys (length keynames))
|