438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
|
(db-targets (vector-ref db-target-dat 1))
(tests (make-hash-table))
(action "-runtests")
(cmdln "")
(runlogs (make-hash-table)))
;; refer to *keys*, *dbkeys* for keys
(print "db-targets: " db-targets)
(iup:vbox
(iup:hbox
;; Target and action
(iup:vbox
;; Target selectors
(apply iup:hbox
(map
(lambda (key)
(print "Label key=" key)
(iup:label key #:size "x15" #:fontsize "10" #:expand "HORIZONTAL"))
header)))
;; key1 key2 key3 ...
;; target entry (wild cards allowed)
;; The action
(iup:hbox
;; label Action | action selector
))
;; Test/items selector
(iup:hbox
;; tests
;; items
))
;; The command line
(iup:hbox
;; commandline entry
;; GO button
)
;; The command log monitor
(iup:tabs
;; log monitor
)))
;;======================================================================
;; R U N S
;;======================================================================
(define (make-dashboard-buttons nruns ntests keynames)
(let* ((nkeys (length keynames))
|
|
|
|
|
|
|
|
|
>
>
>
|
>
>
>
>
>
>
>
>
|
>
>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<
>
|
|
|
|
|
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
|
(db-targets (vector-ref db-target-dat 1))
(tests (make-hash-table))
(action "-runtests")
(cmdln "")
(runlogs (make-hash-table)))
;; refer to *keys*, *dbkeys* for keys
(print "db-targets: " db-targets)
(iup:vbox
(iup:hbox
;; Target and action
(iup:vbox
;; Target selectors
(apply iup:hbox
(map
(lambda (key)
(print "Label key=" key)
(let ((lb (iup:listbox
key
#:size "x15"
#:fontsize "10"
#:expand "YES"
#:value "1"
#:dropdown "YES"
)))
(let loop ((count 1))
(iup:attribute-set!
lb count
(db:get-value-by-header row header field)
header)))
))))
;; ;; key1 key2 key3 ...
;; ;; target entry (wild cards allowed)
;;
;; ;; The action
;; (iup:hbox
;; ;; label Action | action selector
;; ))
;; ;; Test/items selector
;; (iup:hbox
;; ;; tests
;; ;; items
;; ))
;; ;; The command line
;; (iup:hbox
;; ;; commandline entry
;; ;; GO button
;; )
;; ;; The command log monitor
;; (iup:tabs
;; ;; log monitor
;; )))
;;======================================================================
;; R U N S
;;======================================================================
(define (make-dashboard-buttons nruns ntests keynames)
(let* ((nkeys (length keynames))
|