@@ -2423,59 +2423,16 @@
 (iup:attribute-set! *tim* "TIME" (or (configf:lookup *configdat* "dashboard" "poll-interval") "1000"))
 (iup:attribute-set! *tim* "RUN" "YES")
 
 (define *last-recalc-ended-time* 0)
 
-(define (dashboard:recalc modtime please-update-buttons last-db-update-time)
-  (or please-update-buttons
-      (and ;; (> (current-milliseconds)(+ *last-recalc-ended-time* 150)) ;; can't use this - it needs to be tab specific
-	   (> modtime (- last-db-update-time 3)) ;; add three seconds of margin
-	   (> (current-seconds)(+ last-db-update-time 1)))))
-
 ;; (define *monitor-db-path* #f)
 (define *last-monitor-update-time* 0)
 
 ;; Force creation of the db in case it isn't already there.
 ;; (tasks:open-db)
 
-(define (dashboard:get-youngest-run-db-mod-time dbdir)
-  (handle-exceptions
-   exn
-   (begin
-     (debug:print 2 *default-log-port* "WARNING: error in accessing databases in get-youngest-run-db-mod-time: " ((condition-property-accessor 'exn 'message) exn) " db-dir="dbdir)
-     (current-seconds)) ;; something went wrong - just print an error and return current-seconds
-   (common:max (map (lambda (filen)
-		      (file-modification-time filen))
-		    (glob (conc dbdir "/*.db*"))))))
-
-(define (dboard:get-last-db-update tabdat context)
-  (hash-table-ref/default (dboard:tabdat-last-db-update tabdat) context 0))
-
-(define (dboard:set-last-db-update! tabdat context newtime)
-  (hash-table-set! (dboard:tabdat-last-db-update tabdat) context newtime))
-
-;; DOES NOT WORK RELIABLY WITH /tmp WAL mode files. Timestamps only change when the db
-;; is closed (I think). If db dir starts with /tmp always return true
-;;
-(define (dashboard:database-changed? commondat tabdat #!key (context-key 'default))
-  (let* ((run-update-time (current-seconds))
-	 (dbdir           (dboard:tabdat-dbdir tabdat))
-	 (modtime         (dashboard:get-youngest-run-db-mod-time dbdir))
-	 (recalc          (dashboard:recalc modtime 
-					    (dboard:commondat-please-update commondat) 
-					    (dboard:get-last-db-update tabdat context-key))))
-    ;; (dboard:tabdat-last-db-update tabdat))))
-    (if recalc 
-	(dboard:set-last-db-update! tabdat context-key run-update-time))
-    (dboard:commondat-please-update-set! commondat #f)
-    recalc))
-
-;; point inside line
-;;
-(define-inline (dashboard:px-between px lx1 lx2)
-  (and (< lx1 px)(> lx2 px)))
-
 ;;Not reference anywhere
 ;;
 ;; can a bar be placed in row "rownum" covering x1 to x2 without overlapping with existing 
 ;; bars? Use num-rows to check that a block will fit from rownum to (+ rownum num-rows)
 ;;