177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
(on-exit (lambda ()
(let ((tdb (tasks:open-db)))
;; (print "On-exit called")
(tasks:remove-monitor-record tdb)
(sqlite3:finalize! tdb))))
(define (gui-monitor db)
(let ((keys (get-keys db))
(tdb (tasks:open-db)))
(tasks:register-monitor db tdb) ;;; let the other monitors know we are here
(control-panel db tdb keys)
;(tasks:remove-monitor-record db)
;(sqlite3:finalize! db)
))
|
|
|
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
(on-exit (lambda ()
(let ((tdb (tasks:open-db)))
;; (print "On-exit called")
(tasks:remove-monitor-record tdb)
(sqlite3:finalize! tdb))))
(define (gui-monitor db)
(let ((keys (rdb:get-keys db))
(tdb (tasks:open-db)))
(tasks:register-monitor db tdb) ;;; let the other monitors know we are here
(control-panel db tdb keys)
;(tasks:remove-monitor-record db)
;(sqlite3:finalize! db)
))
|