Megatest

Diff
Login

Differences From Artifact [d5889ea640]:

To Artifact [0bd9fdefce]:


28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
28
29
30
31
32
33
34


35
36
37
38
39
40
41







-
-








(use canvas-draw)

(use sqlite3 srfi-1 posix regex regex-case srfi-69)
(import (prefix sqlite3 sqlite3:))

(declare (unit dashboard-guimonitor))
;; (declare (uses common))
(declare (uses keys))
(declare (uses commonmod))
(import commonmod)

(include "run_records.scm")

(define (control-panel db tdb keys)
  (let* ((var-params (make-hash-table)) ;; register all the widgets here for querying on run, rollup, remove?