123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
(topdialog #f))
(set! topdialog (iup:dialog
#:close_cb (lambda (a)(exit))
#:title "Run Controls"
(iup:vbox
(iup:hbox keyentries othervars)
controls
(let ((tabtop (iup:tabs monitors actions)))
(iup:attribute-set! tabtop "TABTITLE0" "Monitors")
(iup:attribute-set! tabtop "TABTITLE1" "Actions")
tabtop)
)))
; (iup:frame
; #:title "Monitors"
; monitors)
|
|
>
>
>
>
>
>
>
>
>
>
|
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
(topdialog #f))
(set! topdialog (iup:dialog
#:close_cb (lambda (a)(exit))
#:title "Run Controls"
(iup:vbox
(iup:hbox keyentries othervars)
controls
(let ((tabtop (iup:tabs
monitors
(iup:vbox
(let* ((tb (iup:textbox #:expand "HORIZONTAL"))
(bt (iup:button "Remove tasks by id"
#:action (lambda (obj)
(let ((val (iup:attribute tb "VALUE")))
(tasks:remove-queue-entries tdb val)))))
(lb (iup:label "(comma separated)")))
(iup:hbox bt tb lb))
actions))))
(iup:attribute-set! tabtop "TABTITLE0" "Monitors")
(iup:attribute-set! tabtop "TABTITLE1" "Actions")
tabtop)
)))
; (iup:frame
; #:title "Monitors"
; monitors)
|