Index: dashboard-tests-inc.scm
==================================================================
--- dashboard-tests-inc.scm
+++ dashboard-tests-inc.scm
@@ -1000,6 +1000,29 @@
 			    states-str
 			    statuses-str
 			    )))
       (else (set! full-cmd " no valid command ")))
     (iup:attribute-set! cmd-tb "VALUE" full-cmd)))
+
+(define (iuplistbox-fill-list lb items #!key (selected-item #f))
+  (let ((i 1))
+    (for-each (lambda (item)
+		(iup:attribute-set! lb (number->string i) item)
+		(if selected-item
+		    (if (equal? selected-item item)
+			(iup:attribute-set! lb "VALUE" i))) ;; (number->string i))))
+		(set! i (+ i 1)))
+	      items)
+    ;; (iup:attribute-set! lb "VALUE" (if selected-item selected-item ""))
+    i))
+
+;; if tab-num passed in then use it, otherwise look in commondat at curr-tab-num
+;; adds the updater passed in the updaters list at that hashkey
+;;
+(define (dboard:commondat-add-updater commondat updater #!key (tab-num #f))
+  (let* ((tnum          (or tab-num
+			     (dboard:commondat-curr-tab-num commondat)))
+	 (curr-updaters (hash-table-ref/default (dboard:commondat-updaters commondat) tnum '())))
+    (hash-table-set! (dboard:commondat-updaters commondat)
+		     tnum
+		     (cons updater curr-updaters))))
 

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -179,34 +179,10 @@
 ;;     (begin
 ;;       (debug:print-info 0 *default-log-port* "Forcing db-cache mode due to read-only access to megatest.db")
 ;;       (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
-  )
-
-(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
-   ))
-
 ;; 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)
@@ -239,21 +215,10 @@
 	 (lambda (updater)
 	   ;; (debug:print 3 *default-log-port* "Running " updater)
 	   (updater))
 	 updaters))))
 
-;; if tab-num passed in then use it, otherwise look in commondat at curr-tab-num
-;; adds the updater passed in the updaters list at that hashkey
-;;
-(define (dboard:commondat-add-updater commondat updater #!key (tab-num #f))
-  (let* ((tnum          (or tab-num
-			     (dboard:commondat-curr-tab-num commondat)))
-	 (curr-updaters (hash-table-ref/default (dboard:commondat-updaters commondat) tnum '())))
-    (hash-table-set! (dboard:commondat-updaters commondat)
-		     tnum
-		     (cons updater curr-updaters))))
-
 ;; register tabdat with BBpp
 ;; this is used by BBpp (Brandon's pretty printer) to convert dboard:tabdat into a composition of lists that pp will handle
 (hash-table-set! *BBpp_custom_expanders_list* TABDAT:
                  (cons dboard:tabdat?
                        (lambda (tabdat-item)
@@ -286,51 +251,10 @@
   (dboard:tabdat-keys-set! tabdat (rmt:get-keys))
   (dboard:tabdat-dbkeys-set! tabdat (append (dboard:tabdat-keys tabdat) (list "runname")))
   (dboard:tabdat-tot-runs-set! tabdat (rmt:get-num-runs "%"))
   )
 
-;; RADT => Matrix defstruct addition
-(defstruct dboard:graph-dat
-    ((id           #f) : string)
-    ((color        #f) : vector)
-    ((flag         #t) : boolean)
-    ((cell         #f) : number)
-    )
-
-;; data for runs, tests etc. was used in run summary?
-;;
-(defstruct dboard:runsdat
-  ;; new system
-  runs-index    ;; target/runname => colnum
-  tests-index   ;; testname/itempath => rownum
-  matrix-dat    ;; vector of vectors rows/cols
-  )
-
-(define (dboard:runsdat-make-init)
-  (make-dboard:runsdat
-   runs-index: (make-hash-table)
-   tests-index: (make-hash-table)
-   matrix-dat: (make-sparse-array)))
-
-;; used to keep the rundata from rmt:get-tests-for-run
-;; in sync. 
-;;
-(defstruct dboard:rundat
-  run
-  tests-drawn    ;; list of id's already drawn on screen
-  tests-notdrawn ;; list of id's NOT already drawn
-  rowsused       ;; hash of lists covering what areas used - replace with quadtree
-  hierdat        ;; put hierarchial sorted list here
-  tests          ;; hash of id => testdat
-  ((tests-by-name (make-hash-table)) : hash-table) ;; hash of testfullname => testdat
-  key-vals
-  ((last-update   0)                 : number)    ;; last query to db got records from before last-update
-  ((last-db-time  0)                 : number)    ;; last timestamp on megatest.db
-  ((data-changed  #f)                : boolean)   
-  ((run-data-offset  0)              : number)      ;; get only 100 items per call, set back to zero when received less than 100 items
-  (db-path #f))
-
 ;; register dboard:rundat with BBpp
 ;; this is used by BBpp (Brandon's pretty printer) to convert dboard:rundat into a composition of lists that pp will handle
 (hash-table-set! *BBpp_custom_expanders_list* RUNDAT:
                  (cons dboard:rundat?
                        (lambda (tabdat-item)
@@ -417,22 +341,10 @@
 (define-inline (dboard:uidat-get-header  vec)(vector-ref vec 2))
 (define-inline (dboard:uidat-get-runsvec vec)(vector-ref vec 3))
 
 (if (get-environment-variable "MT_RUN_AREA_HOME")(change-directory (get-environment-variable "MT_RUN_AREA_HOME")))
 
-(define (iuplistbox-fill-list lb items #!key (selected-item #f))
-  (let ((i 1))
-    (for-each (lambda (item)
-		(iup:attribute-set! lb (number->string i) item)
-		(if selected-item
-		    (if (equal? selected-item item)
-			(iup:attribute-set! lb "VALUE" i))) ;; (number->string i))))
-		(set! i (+ i 1)))
-	      items)
-    ;; (iup:attribute-set! lb "VALUE" (if selected-item selected-item ""))
-    i))
-
 (define (pad-list l n)(append l (make-list (- n (length l)))))
 
 (define (dboard:compare-tests test1 test2)
   (let* ((test-name1  (db:test-get-testname  test1))
 	 (item-path1  (db:test-get-item-path test1))

Index: dcommon-inc.scm
==================================================================
--- dcommon-inc.scm
+++ dcommon-inc.scm
@@ -24,10 +24,75 @@
 
 ;;======================================================================
 ;; C O M M O N   D A T A   S T R U C T U R E
 ;;======================================================================
 ;; 
+;; 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
+  )
+
+(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
+   ))
+
+;; RADT => Matrix defstruct addition
+(defstruct dboard:graph-dat
+    ((id           #f) : string)
+    ((color        #f) : vector)
+    ((flag         #t) : boolean)
+    ((cell         #f) : number)
+    )
+
+;; data for runs, tests etc. was used in run summary?
+;;
+(defstruct dboard:runsdat
+  ;; new system
+  runs-index    ;; target/runname => colnum
+  tests-index   ;; testname/itempath => rownum
+  matrix-dat    ;; vector of vectors rows/cols
+  )
+
+(define (dboard:runsdat-make-init)
+  (make-dboard:runsdat
+   runs-index: (make-hash-table)
+   tests-index: (make-hash-table)
+   matrix-dat: (make-sparse-array)))
+
+;; used to keep the rundata from rmt:get-tests-for-run
+;; in sync. 
+;;
+(defstruct dboard:rundat
+  run
+  tests-drawn    ;; list of id's already drawn on screen
+  tests-notdrawn ;; list of id's NOT already drawn
+  rowsused       ;; hash of lists covering what areas used - replace with quadtree
+  hierdat        ;; put hierarchial sorted list here
+  tests          ;; hash of id => testdat
+  ((tests-by-name (make-hash-table)) : hash-table) ;; hash of testfullname => testdat
+  key-vals
+  ((last-update   0)                 : number)    ;; last query to db got records from before last-update
+  ((last-db-time  0)                 : number)    ;; last timestamp on megatest.db
+  ((data-changed  #f)                : boolean)   
+  ((run-data-offset  0)              : number)      ;; get only 100 items per call, set back to zero when received less than 100 items
+  (db-path #f))
+
 
 ;;======================================================================
 ;; D O T F I L E
 ;;======================================================================
 
@@ -429,11 +494,11 @@
           (debug:print 2 "ERROR: No test data found for test " test-id ", exiting")
           (exit 1))
         (let*
             ((rundir        (if testdat 
                                 (db:test-get-rundir testdat)
-                                logfile))
+                                (current-directory))) ;; logfile))
              (testfullname  (if testdat (db:test-get-fullname testdat) "Gathering data ..."))
              (xterm      (lambda ()
                            (if (directory-exists? rundir)
                                (let* ((shell (if (get-environment-variable "SHELL") 
                                                  (conc "-e " (get-environment-variable "SHELL"))

Index: env-inc.scm
==================================================================
--- env-inc.scm
+++ env-inc.scm
@@ -64,14 +64,14 @@
 	(for-each-row
 	 (lambda (row)
 	   (let ((var  (car row))
 		 (val  (cadr row)))
 	     (hash-table-set! result var 
-			      (if (and (hash-table-ref/default results var #f)
+			      (if (and (hash-table-ref/default result var #f)
 				       (assoc var paths)) ;; this var is a path and there is a previous path
 				  (let ((sep (cadr (assoc var paths))))
-				    (env:merge-path-envvar sep (hash-table-ref results var) val))
+				    (env:merge-path-envvar sep (hash-table-ref result var) val))
 				  val)))))
 	(sql db "SELECT var,val FROM envvars WHERE context=?")
 	context))
      contexts)
     result))

Index: megamod.scm
==================================================================
--- megamod.scm
+++ megamod.scm
@@ -55,10 +55,11 @@
  (prefix dbi dbi:)
  (prefix nanomsg nmsg:)
  (prefix sqlite3 sqlite3:)
  call-with-environment-variables
  canvas-draw
+ canvas-draw-iup
  csv
  csv-xml
  data-structures
  directory-utils
  dot-locking