Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -95,14 +95,31 @@
 ;; ease debugging by loading ~/.dashboardrc
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
   (if (file-exists? debugcontrolf)
       (load debugcontrolf)))
 
-(define *dbdir* (db:dbfile-path #f))
+(define *runremote* #f)
+(define *data* (make-vector 25 #f))
+
+(dboard:data-set-run-keys! *data* (make-hash-table))
+
+;; List of test ids being viewed in various panels
+(dboard:data-set-curr-test-ids! *data* (make-hash-table))
+
+;; Look up test-ids by (key1 key2 ... testname [itempath])
+(dboard:data-set-path-test-ids! *data* (make-hash-table))
+
+;; Look up run-ids by ??
+(dboard:data-set-path-run-ids! *data* (make-hash-table))
+
+(dboard:data-set-updaters! *data* (make-hash-table))
+
+(define *other* (make-hash-table))
+(define *dbdir* (db:dbfile-path #f *area-dat*))
 (define *dbstruct-local*  (make-dbr:dbstruct path:  *dbdir*
 					     local: #t))
-(define *db-file-path* (db:dbfile-path 0))
+(define *db-file-path* (db:dbfile-path 0 *area-dat*))
 
 ;; HACK ALERT: this is a hack, please fix.
 (define *read-only* (not (file-read-access? *db-file-path*)))
 
 (debug:setup)
@@ -595,18 +612,18 @@
 
 ;; Main Panel
 (define (main-panel window-id)
   (iup:dialog
    #:title "Megatest Control Panel"
-   #:menu (dcommon:main-menu)
+   #:menu (dcommon:main-menu *other*)
    #:shrink "YES"
    (let ((tabtop (iup:tabs 
-		  (runs window-id)
-		  (tests window-id)
-		  (runcontrol window-id)
-		  (mtest window-id) 
-		  (rconfig window-id)
+		  (runs       window-id )
+		  (tests      window-id )
+		  (runcontrol window-id )
+		  (mtest      window-id *area-dat*) 
+		  (rconfig    window-id )
 		  )))
      (iup:attribute-set! tabtop "TABTITLE0" "Runs")
      (iup:attribute-set! tabtop "TABTITLE1" "Tests")
      (iup:attribute-set! tabtop "TABTITLE2" "Run Control")
      (iup:attribute-set! tabtop "TABTITLE3" "megatest.config") 
@@ -614,11 +631,11 @@
      tabtop)))
 
 (define *current-window-id* 0)
 
 (define (newdashboard data)
-  (let* ((keys     (db:get-keys dbstruct))
+  (let* ((keys     (db:get-keys *dbstruct-local* *area-dat*))
 	 (runname  "%")
 	 (testpatt "%")
 	 (keypatts (map (lambda (k)(list k "%")) keys))
 	 (states   '())
 	 (statuses '())

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -198,23 +198,23 @@
 	 (get-details-sig (conc (client:get-signature) " get-test-details"))
 
 	 ;; test-ids to get and display are indexed on window-id in curr-test-ids hash
 	 (test-ids        (hash-table-values (dboard:data-get-curr-test-ids *data*)))
 	 ;; run-id is #f in next line to send the query to server 0
- 	 (run-changes     (synchash:client-get 'db:get-runs get-runs-sig (length keypatts) data #f runname #f #f keypatts))
+ 	 (run-changes     (synchash:client-get *area-dat* 'db:get-runs get-runs-sig (length keypatts) data #f runname #f #f keypatts))
 	 (tests-detail-changes (if (not (null? test-ids))
-				   (synchash:client-get 'db:get-test-info-by-ids get-details-sig 0  data #f test-ids)
+				   (synchash:client-get *area-dat* 'db:get-test-info-by-ids get-details-sig 0  data #f test-ids)
 				   '()))
 
 	 ;; Now can calculate the run-ids
 	 (run-hash    (hash-table-ref/default data get-runs-sig #f))
 	 (run-ids     (if run-hash (filter number? (hash-table-keys run-hash)) '()))
 
 	 (all-test-changes (let ((res (make-hash-table)))
 			     (for-each (lambda (run-id)
 					 (if (> run-id 0)
-					     (hash-table-set! res run-id (synchash:client-get 'db:get-tests-for-run-mindata get-tests-sig 0 data run-id 1 testpatt states statuses #f))))
+					     (hash-table-set! res run-id (synchash:client-get *area-dat* 'db:get-tests-for-run-mindata get-tests-sig 0 data run-id 1 testpatt states statuses #f))))
 				       run-ids)
 			     res))
 	 (runs-hash    (hash-table-ref/default data get-runs-sig #f))
 	 (header       (hash-table-ref/default runs-hash "header" #f))
 	 (run-ids      (sort (filter number? (hash-table-keys runs-hash))

Index: synchash.scm
==================================================================
--- synchash.scm
+++ synchash.scm
@@ -62,12 +62,12 @@
 ;; (cdb:remote-run db:get-num-runs #f "%")
 ;; (cdb:remote-run db:get-runs #f runnamepatt numruns *start-run-offset* keypatts)
 ;;
 ;; keynum => the field to use as the unique key (usually 0 but can be other field)
 ;;
-(define (synchash:client-get proc synckey keynum synchash run-id . params)
-  (let* ((data   (rmt:synchash-get run-id proc synckey keynum params))
+(define (synchash:client-get area-dat proc synckey keynum synchash run-id . params)
+  (let* ((data   (rmt:synchash-get run-id proc synckey keynum params area-dat))
 	 (newdat (car data))
 	 (removs (cadr data))
 	 (myhash (hash-table-ref/default synchash synckey #f)))
     (if (not myhash)
 	(begin