Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -5,11 +5,11 @@
 SRCFILES = common.scm items.scm launch.scm \
            ods.scm runconfig.scm server.scm configf.scm \
            db.scm keys.scm margs.scm megatest-version.scm \
            process.scm runs.scm tasks.scm tests.scm genexample.scm \
 	   fs-transport.scm http-transport.scm \
-           client.scm gutils.scm synchash.scm daemon.scm mt.scm
+           client.scm gutils.scm synchash.scm daemon.scm mt.scm dcommon.scm
 
 GUISRCF  = dashboard-tests.scm dashboard-guimonitor.scm 
 
 OFILES   = $(SRCFILES:%.scm=%.o)
 GOFILES  = $(GUISRCF:%.scm=%.o)

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -29,10 +29,12 @@
 (declare (uses process))
 (declare (uses launch))
 (declare (uses runs))
 (declare (uses dashboard-tests))
 (declare (uses dashboard-guimonitor))
+(declare (uses dcommon))
+
 ;; (declare (uses dashboard-main))
 (declare (uses megatest-version))
 (declare (uses mt))
 
 (include "common_records.scm")
@@ -556,10 +558,16 @@
 		      (if have-room (+ llx boxw gapx) xtorig) ;; have room, 
 		      (if have-room lly (+ lly boxh gapy))
 		      (if have-room (+ urx boxw gapx) (+ xtorig boxw))
 		      (if have-room ury (+ ury boxh gapy)))))))))
 
+;;======================================================================
+;; R U N   C O N T R O L S
+;;======================================================================
+;;
+;; A gui for launching tests
+;;
 (define (dashboard:run-controls)
   (let* ((targets       (make-hash-table))
 	 (runconf-targs (common:get-runconfig-targets))
 	 (test-records  (make-hash-table))
 	 (test-names    (tests:get-valid-tests *toppath* '()))
@@ -628,10 +636,23 @@
 ;;      )
 ;;     ;; The command log monitor
 ;;     (iup:tabs
 ;;      ;; log monitor
 ;;      )))
+
+;;======================================================================
+;; S U M M A R Y 
+;;======================================================================
+;;
+;; General info about the run(s) and megatest area
+(define (dashboard:summary)
+  (let ((rawconfig        (read-config (conc *toppath* "/megatest.config") #f 'return-string)))
+    (iup:vbox
+     (iup:hbox 
+      (dcommon:general-info)
+      (dcommon:keys-matrix rawconfig))
+     (dcommon:section-matrix rawconfig "setup" "Varname" "Value"))))
    
 ;;======================================================================
 ;; R U N S 
 ;;======================================================================
 
@@ -809,25 +830,29 @@
 	  (vector-set! testvec testnum butn)
 	  (loop runnum (+ testnum 1) testvec (cons butn res))))))
     ;; now assemble the hdrlst and bdylst and kick off the dialog
     (iup:show
      (iup:dialog 
-      #:title "Megatest dashboard"
-      (let ((tabs (iup:tabs
-		   (iup:vbox
-		    (apply iup:hbox 
-			   (cons (apply iup:vbox lftlst)
-				 (list 
-				  (iup:vbox
-				   ;; the header
-				   (apply iup:hbox (reverse hdrlst))
-				   (apply iup:hbox (reverse bdylst))))))
-		    controls)
-		   (dashboard:run-controls)
-		   )))
-	(iup:attribute-set! tabs "TABTITLE0" "Runs")
-	(iup:attribute-set! tabs "TABTITLE1" "Run Control")
+      #:title (conc "Megatest dashboard " *toppath*)
+      #:menu (dcommon:main-menu)
+      (let* ((runs-view (iup:vbox
+			 (apply iup:hbox 
+				(cons (apply iup:vbox lftlst)
+				      (list 
+				       (iup:vbox
+					;; the header
+					(apply iup:hbox (reverse hdrlst))
+					(apply iup:hbox (reverse bdylst))))))
+			 controls))
+	     (tabs (iup:tabs
+		    (dashboard:summary)
+		    runs-view
+		    (dashboard:run-controls)
+		    )))
+	(iup:attribute-set! tabs "TABTITLE0" "Summary")
+	(iup:attribute-set! tabs "TABTITLE1" "Runs")
+	(iup:attribute-set! tabs "TABTITLE2" "Run Control")
 	tabs)))
      (vector keycol lftcol header runsvec)))
 
 (if (or (args:get-arg "-rows")
 	(get-environment-variable "DASHBOARDROWS" ))
@@ -840,21 +865,23 @@
 (define *tim* (iup:timer))
 (define *ord* #f)
 (iup:attribute-set! *tim* "TIME" 300)
 (iup:attribute-set! *tim* "RUN" "YES")
 
-;; Move this stuff to db.scm FIXME
+;; Move this stuff to db.scm? I'm not sure that is the right thing to do...
 ;;
 (define *last-db-update-time* (file-modification-time (conc *toppath* "/megatest.db")))
-(define (db:been-changed)
+
+(define (dashboard:been-changed)
   (> (file-modification-time (conc *toppath* "/megatest.db")) *last-db-update-time*))
-(define (db:set-db-update-time)
+
+(define (dashboard:set-db-update-time)
   (set! *last-db-update-time* (file-modification-time (conc *toppath* "/megatest.db"))))
 
-(define (run-update x)
+(define (dashboard:run-update x)
   (update-buttons uidat *num-runs* *num-tests*)
-  ;; (if (db:been-changed)
+  ;; (if (dashboard:been-changed)
   (begin
     (update-rundat (hash-table-ref/default *searchpatts* "runname" "%") *num-runs*
 		   (hash-table-ref/default *searchpatts* "test-name" "%/%")
 		   ;; (hash-table-ref/default *searchpatts* "item-name" "%")
 		   (let ((res '()))
@@ -862,11 +889,11 @@
 				 (if (not (equal? key "runname"))
 				     (let ((val (hash-table-ref/default *searchpatts* key #f)))
 				       (if val (set! res (cons (list key val) res))))))
 			       *dbkeys*)
 		     res))
-    ; (db:set-db-update-time)
+    ; (dashboard:set-db-update-time)
     ))
 
 (cond 
  ((args:get-arg "-run")
   (let ((runid (string->number (args:get-arg "-run"))))
@@ -891,9 +918,9 @@
  (else
   (set! uidat (make-dashboard-buttons *num-runs* *num-tests* *dbkeys*))
   (iup:callback-set! *tim*
 		     "ACTION_CB"
 		     (lambda (x)
-		       (run-update x)))))
+		       (dashboard:run-update x)))))
 		       ;(print x)))))
 
 (iup:main-loop)

Index: newdashboard.scm
==================================================================
--- newdashboard.scm
+++ newdashboard.scm
@@ -1,7 +1,7 @@
 ;;======================================================================
-;; Copyright 2006-2012, Matthew Welland.
+;; Copyright 2006-2013, Matthew Welland.
 ;; 
 ;;  This program is made available under the GNU GPL version 2.0 or
 ;;  greater. See the accompanying file COPYING for details.
 ;; 
 ;;  This program is distributed WITHOUT ANY WARRANTY; without even the
@@ -22,10 +22,11 @@
 (declare (uses megatest-version))
 (declare (uses gutils))
 (declare (uses db))
 (declare (uses server))
 (declare (uses synchash))
+(declare (uses dcommon))
 
 (include "common_records.scm")
 (include "db_records.scm")
 (include "key_records.scm")
 
@@ -169,25 +170,12 @@
 ;; mtest is actually the megatest.config file
 ;;
 (define (mtest window-id)
   (let* ((curr-row-num     0)
 	 (rawconfig        (read-config (conc *toppath* "/megatest.config") #f 'return-string))
-	 (keys-matrix      (iup:matrix
-		            #:expand "VERTICAL"
-		            ;; #:scrollbar "YES"
-		            #:numcol 1
-		            #:numlin 20
-		            #:numcol-visible 1
-		            #:numlin-visible 5
-		            #:click-cb (lambda (obj lin col status)
-					 (print "obj: " obj " lin: " lin " col: " col " status: " status))))
-	 (setup-matrix     (iup:matrix
-		            #:expand "YES"
-		            #:numcol 1
-		            #:numlin 5
-		            #:numcol-visible 1
-		            #:numlin-visible 3))
+	 (keys-matrix      (dcommon:keys-matrix rawconfig))
+	 (setup-matrix     (dcommon:section-matrix rawconfig "setup" "Varname" "Value"))
 	 (jobtools-matrix  (iup:matrix
 			    #:expand "YES"
 			    #:numcol 1
 			    #:numlin 5
 			    #:numcol-visible 1
@@ -209,28 +197,17 @@
 			    #:numcol 1
 			    #:numlin 20
 			    #:numcol-visible 1
 			    #:numlin-visible 8))
 	 )
-    (iup:attribute-set! keys-matrix "0:0" "Field Num")
-    (iup:attribute-set! keys-matrix "0:1" "Field Name")
-    (iup:attribute-set! keys-matrix "WIDTH1" "100")
     (iup:attribute-set! disks-matrix "0:0" "Disk Name")
     (iup:attribute-set! disks-matrix "0:1" "Disk Path")
     (iup:attribute-set! disks-matrix "WIDTH1" "120")
     (iup:attribute-set! disks-matrix "WIDTH0" "100")
     (iup:attribute-set! disks-matrix "ALIGNMENT1" "ALEFT")
     (iup:attribute-set! disks-matrix "FIXTOTEXT" "C1")
     (iup:attribute-set! disks-matrix "RESIZEMATRIX" "YES")
-    ;; fill in keys
-    (set! curr-row-num 1)
-    (for-each 
-     (lambda (var)
-       (iup:attribute-set! keys-matrix (conc curr-row-num ":0") curr-row-num)
-       (iup:attribute-set! keys-matrix (conc curr-row-num ":1") var)
-       (set! curr-row-num (+ 1 curr-row-num))) ;; (config-lookup *configdat* "fields" var)))
-     (configf:section-vars rawconfig "fields"))
 
     ;; fill in existing info
     (for-each 
      (lambda (mat fname)
        (set! curr-row-num 1)
@@ -897,11 +874,11 @@
 (define (newdashboard)
   (let* ((data     (make-hash-table))
 	 (keys     (cdb:remote-run db:get-keys #f))
 	 (runname  "%")
 	 (testpatt "%")
-	 (keypatts (map (lambda (k)(list (vector-ref k 0) "%")) keys))
+	 (keypatts (map (lambda (k)(list k "%")) keys))
 	 (states   '())
 	 (statuses '())
 	 (nextmintime (current-milliseconds))
 	 (my-window-id *current-window-id*))
     (set! *current-window-id* (+ 1 *current-window-id*))