Overview
| Comment: | yada |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | remote-run-capability |
| Files: | files | file ages | folders |
| SHA1: |
c997a36b7c196a6d23fcac2b10c69b8d |
| User & Date: | mrwellan on 2012-12-19 16:53:05 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-01-08
| ||
| 11:07 | Added/modified stuff for mockup check-in: ff1b962889 user: mrwellan tags: remote-run-capability | |
|
2012-12-19
| ||
| 16:53 | yada check-in: c997a36b7c user: mrwellan tags: remote-run-capability | |
|
2012-12-17
| ||
| 13:06 | Merged gui monitor, job launching stuff all into a single gui Closed-Leaf check-in: ff53dae2a1 user: mrwellan tags: new-gui | |
Changes
Modified dashboard-guimonitor.scm from [04b2273746] to [2698f99901].
| ︙ | ︙ | |||
107 108 109 110 111 112 113 | (megatestdbpath (conc *toppath* "/megatest.db")) (modtime (max (file-modification-time megatestdbpath) (file-modification-time monitordbpath)))) ;; do stuff here when the db is updated by some other process (if (> modtime lastmodtime) (let ((tlst (tasks:get-tasks tdb '() '())) (mlst (tasks:get-monitors tdb))) | | | | | | | | > | | | > | 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 |
(megatestdbpath (conc *toppath* "/megatest.db"))
(modtime (max (file-modification-time megatestdbpath)
(file-modification-time monitordbpath))))
;; do stuff here when the db is updated by some other process
(if (> modtime lastmodtime)
(let ((tlst (tasks:get-tasks tdb '() '()))
(mlst (tasks:get-monitors tdb)))
;; (set! tasksdat tlst)
;; (set! monitorsdat mlst)
;; (iup:attribute-set! monitors "VALUE" (tasks:monitors->text-table mlst))
;; (iup:attribute-set! actions "VALUE" (tasks:tasks->text tlst))
;; (tasks:process-queue db tdb)
(set! lastmodtime (max (file-modification-time megatestdbpath)
(file-modification-time monitordbpath)))
;; (tasks:reset-stuck-tasks tdb)))
))
;; stuff to do every 10 seconds
(if (> (current-seconds) next-touch)
(begin
;; (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:vbox ;; iup:dialog
#:close_cb (lambda (a)(exit))
#:title "Run Controls"
(iup:vbox
|
| ︙ | ︙ |