@@ -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)