142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
(iup:label "STATUS:" #:size "30x")
(let ((lb (iup:listbox #:action (lambda (val a b c)
(set! newstatus a))
#:editbox "YES"
#:value currstatus
#:expand "YES")))
(iuplistbox-fill-list lb
(list "PASS" "FAIL" "n/a")
currstatus)
lb)))
(iup:hbox (iup:label "Comment:")
(iup:textbox #:action (lambda (val a b)
(set! currcomment b))
#:value currcomment
#:expand "YES"))
|
|
|
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
(iup:label "STATUS:" #:size "30x")
(let ((lb (iup:listbox #:action (lambda (val a b c)
(set! newstatus a))
#:editbox "YES"
#:value currstatus
#:expand "YES")))
(iuplistbox-fill-list lb
(list "PASS" "WARN" "FAIL" "CHECK" "n/a")
currstatus)
lb)))
(iup:hbox (iup:label "Comment:")
(iup:textbox #:action (lambda (val a b)
(set! currcomment b))
#:value currcomment
#:expand "YES"))
|
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
|
(teststate (db:test-get-state test))
(teststart (db:test-get-event_time test))
(runtime (db:test-get-run_duration test))
(buttontxt (if (equal? teststate "COMPLETED") teststatus teststate))
(button (vector-ref columndat rown))
(color (case (string->symbol teststate)
((COMPLETED)
(if (equal? teststatus "PASS") "70 249 73" "223 33 49")) ;; greenish redish
((LAUNCHED) "101 123 142")
((CHECK) "255 100 50")
((REMOTEHOSTSTART) "50 130 195")
((RUNNING) "9 131 232")
((KILLREQ) "39 82 206")
((KILLED) "234 101 17")
(else "192 192 192")))
|
|
>
>
>
>
|
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
|
(teststate (db:test-get-state test))
(teststart (db:test-get-event_time test))
(runtime (db:test-get-run_duration test))
(buttontxt (if (equal? teststate "COMPLETED") teststatus teststate))
(button (vector-ref columndat rown))
(color (case (string->symbol teststate)
((COMPLETED)
(if (equal? teststatus "PASS")
"70 249 73"
(if (equal? teststatus "WARN")
"255 172 13"
"223 33 49"))) ;; greenish orangeish redish
((LAUNCHED) "101 123 142")
((CHECK) "255 100 50")
((REMOTEHOSTSTART) "50 130 195")
((RUNNING) "9 131 232")
((KILLREQ) "39 82 206")
((KILLED) "234 101 17")
(else "192 192 192")))
|