470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
|
iup:hbox
(map (lambda (status)
(iup:toggle status #:action (lambda (obj val)
(set! *last-db-update-time* 0)
(if (eq? val 1)
(hash-table-set! *status-ignore-hash* status #t)
(hash-table-delete! *status-ignore-hash* status)))))
'("PASS" "FAIL" "WARN" "CHECK" "WAIVED" "STUCK/DEAD")))
(apply
iup:hbox
(map (lambda (state)
(iup:toggle state #:action (lambda (obj val)
(set! *last-db-update-time* 0)
(if (eq? val 1)
(hash-table-set! *state-ignore-hash* state #t)
|
|
|
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
|
iup:hbox
(map (lambda (status)
(iup:toggle status #:action (lambda (obj val)
(set! *last-db-update-time* 0)
(if (eq? val 1)
(hash-table-set! *status-ignore-hash* status #t)
(hash-table-delete! *status-ignore-hash* status)))))
'("PASS" "FAIL" "WARN" "CHECK" "WAIVED" "STUCK/DEAD" "n/a")))
(apply
iup:hbox
(map (lambda (state)
(iup:toggle state #:action (lambda (obj val)
(set! *last-db-update-time* 0)
(if (eq? val 1)
(hash-table-set! *state-ignore-hash* state #t)
|