460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
|
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
|
-
+
+
+
+
|
(+ 1 (apply max rownums))))
(hash-table-set! testname-to-row fullname rownum)
;; create the label
(iup:attribute-set! *runs-matrix* (conc rownum ":" 0) dispname)
))
;; set the cell text and color
;; (debug:print 2 "rownum:colnum=" rownum ":" colnum ", state=" status)
(iup:attribute-set! *runs-matrix* (conc rownum ":" colnum) status)
(iup:attribute-set! *runs-matrix* (conc rownum ":" colnum)
(if (string=? state "COMPLETED")
status
state))
(iup:attribute-set! *runs-matrix* (conc "BGCOLOR" rownum ":" colnum) (gutils:get-color-for-state-status state status))
))
tests)))
run-ids)
(iup:attribute-set! *runs-matrix* "REDRAW" "ALL")
;; (debug:print 2 "run-changes: " run-changes)
|