112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
(newstatus currstatus)
(newstate currstate)
(self #f))
;; (test-set-status! db run-id test-name state status itemdat)
(set! self
(iup:dialog
(iup:vbox
(iup:hbox
(iup:frame (iup:label run-key))
(iup:frame (iup:label (conc "TESTNAME:\n" testfullname) #:expand "YES")))
(iup:frame #:title "Actions" #:expand "YES"
(iup:hbox ;; the actions box
(iup:button "View Log" #:action viewlog #:expand "YES")
|
>
|
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
(newstatus currstatus)
(newstate currstate)
(self #f))
;; (test-set-status! db run-id test-name state status itemdat)
(set! self
(iup:dialog
#:title testfullname
(iup:vbox
(iup:hbox
(iup:frame (iup:label run-key))
(iup:frame (iup:label (conc "TESTNAME:\n" testfullname) #:expand "YES")))
(iup:frame #:title "Actions" #:expand "YES"
(iup:hbox ;; the actions box
(iup:button "View Log" #:action viewlog #:expand "YES")
|