67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
#:expand "HORIZONTAL"
#:action (lambda (obj)
(tasks:add-from-params tdb "run" keys key-params var-params)
(print "Launch Run")))
(iup:button "Remove"
#:expand "HORIZONTAL"
#:action (lambda (obj)
(print "Remove Run")))))
(iup:frame
#:title "Misc"
(iup:hbox
(iup:button "Quit"
#:expand "HORIZONTAL"
#:action (lambda (obj)
(sqlite3:finalize! db)
|
|
>
>
>
>
>
>
>
|
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#:expand "HORIZONTAL"
#:action (lambda (obj)
(tasks:add-from-params tdb "run" keys key-params var-params)
(print "Launch Run")))
(iup:button "Remove"
#:expand "HORIZONTAL"
#:action (lambda (obj)
(print "Remove Run")
(tasks:add-from-params tdb "remove" keys key-params var-params)
))
(iup:button "Rollup"
#:expand "HORIZONTAL"
#:action (lambda (obj)
(print "Rollup Run")
(tasks:add-from-params tdb "rollup" keys key-params var-params)))))
(iup:frame
#:title "Misc"
(iup:hbox
(iup:button "Quit"
#:expand "HORIZONTAL"
#:action (lambda (obj)
(sqlite3:finalize! db)
|
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
(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)
; (iup:frame
; #:title "Actions"
|
<
|
>
>
|
|
|
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
(set! topdialog (iup:dialog
#:close_cb (lambda (a)(exit))
#:title "Run Controls"
(iup:vbox
(iup:hbox keyentries othervars)
controls
(let ((tabtop (iup:tabs
(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)
monitors
)))
(iup:attribute-set! tabtop "TABTITLE0" "Actions")
(iup:attribute-set! tabtop "TABTITLE1" "Monitors")
tabtop)
)))
; (iup:frame
; #:title "Monitors"
; monitors)
; (iup:frame
; #:title "Actions"
|