@@ -143,33 +143,35 @@
 ;;       (hash-table-set! args:arg-hash "-use-db-cache" #t)));;;)
 ;;)
 
 ;; data common to all tabs goes here
 ;;
-(defstruct dboard:commondat
-  ((curr-tab-num 0) : number)
-  please-update  
-  tabdats
-  update-mutex
-  updaters 
-  updating
-  uidat ;; needs to move to tabdat at some time
-  hide-not-hide-tabs
-  target
-  )
-
-(define (dboard:commondat-make)
-  (make-dboard:commondat
-   curr-tab-num:         0
-   tabdats:              (make-hash-table)
-   please-update:        #t
-   update-mutex:         (make-mutex)
-   updaters:             (make-hash-table)
-   updating:             #f
-   hide-not-hide-tabs:   #f
-   target:               ""
-   ))
+;; Moved to dcommon.scm
+;;
+;; (defstruct dboard:commondat
+;;   ((curr-tab-num 0) : number)
+;;   please-update  
+;;   tabdats
+;;   update-mutex
+;;   updaters 
+;;   updating
+;;   uidat ;; needs to move to tabdat at some time
+;;   hide-not-hide-tabs
+;;   target
+;;   )
+;;
+;; (define (dboard:commondat-make)
+;;   (make-dboard:commondat
+;;    curr-tab-num:         0
+;;    tabdats:              (make-hash-table)
+;;    please-update:        #t
+;;    update-mutex:         (make-mutex)
+;;    updaters:             (make-hash-table)
+;;    updating:             #f
+;;    hide-not-hide-tabs:   #f
+;;    target:               ""
+;;    ))
 
 ;;======================================================================
 ;; buttons color using image
 ;;======================================================================
 
@@ -212,39 +214,17 @@
 	;; (iup:attribute-set! img1 "2" "255 0 0")
 	(hash-table-set! images name img1)
 	name)))
 
 
-;; RA => returns the tabdat stored at hashkey passed in commondat-tabdats table (e.g. 0 gives summary)
-;;
-(define (dboard:common-get-tabdat commondat #!key (tab-num #f))
-  (let* ((tnum (or tab-num
-		   (dboard:commondat-curr-tab-num commondat)
-		   0)) ;; tab-num value is curr-tab-num value in passed commondat
-	 (ht   (dboard:commondat-tabdats commondat))
-	 (res  (hash-table-ref/default ht tnum #f)))
-    (or res
-	(let ((new-tabdat  (dboard:tabdat-make-data)))
-	  (hash-table-set! ht tnum new-tabdat)
-	  new-tabdat))))
-
-;; RA => sets the tabdat passed to the hashkey at commondat:tabdats hash table
-;;
-(define (dboard:common-set-tabdat! commondat tabnum tabdat)
-  (hash-table-set!
-   (dboard:commondat-tabdats commondat)
-   tabnum
-   tabdat))
-
 ;; gets and calls updater list based on curr-tab-num
 ;;
 (define (dboard:common-run-curr-updaters commondat #!key (tab-num #f))
   ;; (sync-db-to-tmp (dboard:common-get-tabdat commondat tab-num: tab-num)) ;; no longer applies
 
   ;; maybe need sleep here?
 
-  
   (if (dboard:common-get-tabdat commondat tab-num: tab-num) ;; only update if there is a tabdat
       (let* ((tnum     (or tab-num (dboard:commondat-curr-tab-num commondat)))
 	     (updaters (hash-table-ref/default (dboard:commondat-updaters commondat)
 					       tnum
 					       '())))