Megatest

Diff
Login

Differences From Artifact [a421d98c79]:

To Artifact [af16f05103]:


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))