238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
|
(iup:vbox ; #:expand "YES"
;; The run and test info
(iup:hbox ; #:expand "YES"
(run-info-panel keydat testdat runname)
(test-info-panel testdat store-label widgets))
(host-info-panel testdat store-label)
;; The controls
(iup:frame #:title "Actions" ; #:expand "HORIZONTAL"
(iup:hbox ; #:expand "HORIZONTAL" ;; the actions box
(iup:button "View Log" #:action viewlog #:expand "YES")
(iup:button "Start Xterm" #:action xterm #:expand "YES")))
(set-fields-panel test-id testdat))))
(iup:show self)
;; Now start keeping the gui updated from the db
(let loop ((i 0))
(thread-sleep! 0.1)
(refreshdat) ;; update from the db here
;(thread-suspend! other-thread)
|
|
|
>
|
>
|
|
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
|
(iup:vbox ; #:expand "YES"
;; The run and test info
(iup:hbox ; #:expand "YES"
(run-info-panel keydat testdat runname)
(test-info-panel testdat store-label widgets))
(host-info-panel testdat store-label)
;; The controls
(iup:frame #:title "Actions"
(iup:hbox
(iup:vbox
(iup:button "View Log" #:action viewlog #:expand "HORIZONTAL"))
(iup:vbox
(iup:button "Start Xterm" #:action xterm #:expand "YES"))))
(set-fields-panel test-id testdat))))
(iup:show self)
;; Now start keeping the gui updated from the db
(let loop ((i 0))
(thread-sleep! 0.1)
(refreshdat) ;; update from the db here
;(thread-suspend! other-thread)
|