29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
+
|
(declare (uses tasks))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
;; tdb is the tasks database (monitor.db)
(define (control-panel db tdb keys)
(let* ((var-params (make-hash-table)) ;; register all the widgets here for querying on run, rollup, remove?
(key-params (make-hash-table))
(monitordat '()) ;; list of monitor records
(keyentries (iup:frame
#:title "Keys"
(apply
|
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
-
+
|
;; (tasks:process-queue db tdb monitordbpath)
(tasks:monitors-update tdb)
(tasks:reset-stuck-tasks tdb)
(set! monitorsdat (tasks:get-monitors tdb))
(set! next-touch (+ (current-seconds) 10))
)))))
(topdialog #f))
(set! topdialog (iup:dialog
(set! topdialog (iup:vbox ;; iup:dialog
#:close_cb (lambda (a)(exit))
#:title "Run Controls"
(iup:vbox
(iup:hbox keyentries othervars)
controls
(let ((tabtop (iup:tabs
(iup:vbox
|
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
|
-
+
-
+
+
|
; (iup:frame
; #:title "Monitors"
; monitors)
; (iup:frame
; #:title "Actions"
; actions))))
(iup:show topdialog)
;; (iup:show topdialog)
(iup:callback-set! *tim* "ACTION_CB"
(lambda (x)
(refreshdat)
(if *exit-started*
(set! *exit-started* 'ok))))))
(set! *exit-started* 'ok))))
topdialog))
(define (main-window setuptab fsltab collateraltab toolstab)
(iup:show
(iup:dialog #:title "FSL Power Window" #:size "290x190" ; #:expand "YES"
(let ((tabtop (iup:tabs setuptab collateraltab fsltab toolstab)))
(iup:attribute-set! tabtop "TABTITLE0" "Setup")
(iup:attribute-set! tabtop "TABTITLE1" "Collateral")
|