169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
(iup:show topdialog)
(iup:callback-set! *tim* "ACTION_CB"
(lambda (x)
(refreshdat)
(if *exit-started*
(set! *exit-started* 'ok))))))
(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")
(iup:attribute-set! tabtop "TABTITLE2" "Fossil")
(iup:attribute-set! tabtop "TABTITLE3" "Tools")
tabtop))))
;; BUG: Remember to re-instate this!!!!
;; (on-exit (lambda ()
;; (let ((tdb (tasks:open-db)))
;; ;; (print "On-exit called")
;; (tasks:remove-monitor-record tdb)
;; (sqlite3:finalize! tdb))))
|
|
|
|
|
|
|
|
|
|
|
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
(iup:show topdialog)
(iup:callback-set! *tim* "ACTION_CB"
(lambda (x)
(refreshdat)
(if *exit-started*
(set! *exit-started* 'ok))))))
;; (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")
;; (iup:attribute-set! tabtop "TABTITLE2" "Fossil")
;; (iup:attribute-set! tabtop "TABTITLE3" "Tools")
;; tabtop))))
;; BUG: Remember to re-instate this!!!!
;; (on-exit (lambda ()
;; (let ((tdb (tasks:open-db)))
;; ;; (print "On-exit called")
;; (tasks:remove-monitor-record tdb)
;; (sqlite3:finalize! tdb))))
|