Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -28,10 +28,11 @@
 (declare (uses gutils))
 (declare (uses rmt))
 (declare (uses ezsteps))
 ;; (declare (uses sdb))
 ;; (declare (uses filedb))
+(declare (uses subrun))
 
 (include "common_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
 
@@ -244,25 +245,19 @@
 
 ;; if there is a submegatest create a button to launch dashboard in that area
 ;;
 (define (submegatest-panel dbstruct keydat testdat runname testconfig)
   (let* ((test-run-dir      (db:test-get-rundir testdat))
-	 (subrun-tconf-file (conc test-run-dir "/testconfig.subrun"))
-	 (subrun-tconf      (if (file-exists? subrun-tconf-file)
-				(configf:read-alist subrun-tconf-file)
-				(make-hash-table)))
-	 (subarea           (or (configf:lookup testconfig "setup" "submegatest")
-				(configf:lookup subrun-tconf "subrun" "run-area")))
-	 (area-exists (and subarea (common:file-exists? subarea))))
-    ;; (debug:print-info 0 *default-log-port* "Megatest subarea=" subarea ", area-exists=" area-exists)
+	 (subarea           (subrun:get-runarea test-run-dir))
+	 (area-exists       (and subarea (common:file-exists? subarea))))
     (if subarea
 	(iup:frame 
 	 #:title "Megatest Run Info" ; #:expand "YES"
 	 (iup:button
 	  "Launch Dashboard"
 	  #:action (lambda (obj)
-		     (system (conc "cd " subarea ";env -i PATH=$PATH DISPLAY=$DISPLAY HOME=$HOME USER=$USER dashboard &")))))
+                     (subrun:launch-dashboard test-run-dir))))
 	(iup:vbox))))
 
 ;; use a global for setting the buttons colors
 ;;                           state status teststeps
 (define *state-status* (vector #f #f #f))

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -32,11 +32,11 @@
 (declare (uses dashboard-tests))
 (declare (uses dashboard-guimonitor))
 (declare (uses tree))
 (declare (uses dcommon))
 (declare (uses vg))
-
+(declare (uses subrun))
 ;; (declare (uses dashboard-main))
 (declare (uses megatest-version))
 (declare (uses mt))
 
 (include "common_records.scm")
@@ -2455,10 +2455,19 @@
        (conc "megatest -set-state-status KILLREQ,n/a -target " target
              " -runname " runname
              " -testpatt " item-test-path 
              " -state RUNNING,REMOTEHOSTSTART,LAUNCHED,NOT_STARTED"))))
 
+   (let* ((rundir    (db:test-get-rundir      test-info))
+          (has-subrun (subrun:subrun-test-initialized? rundir)))
+       (if has-subrun
+           (iup:menu-item
+            "Launch subrun dashboard"
+            #:action
+            (lambda (obj)
+              (subrun:launch-dashboard rundir)))
+           (iup:vbox)))
    
    (iup:menu-item
     "Run"
     (iup:menu              
      (iup:menu-item
@@ -2567,10 +2576,13 @@
 	       (cmd (conc (if (string-search editor-rx editor)
 			      (conc "xterm -e " editor)
 			      editor)
 			  " " tconfig " &")))
 	  (system cmd))))
+
+     
+     
      ))))
 
 (define (make-dashboard-buttons commondat) ;;  runs-sum-dat new-view-dat)
   (let* ((stats-dat       (dboard:tabdat-make-data))
 	 (runs-dat        (dboard:tabdat-make-data))

Index: subrun.scm
==================================================================
--- subrun.scm
+++ subrun.scm
@@ -35,10 +35,16 @@
   (if (and (common:file-exists? (conc test-run-dir "/subrun-area") )
            (common:file-exists? (conc test-run-dir "/testconfig.subrun") ))
       #t
       #f))
 
+(define (subrun:launch-dashboard test-run-dir)
+  (if (subrun:subrun-test-initialized? test-run-dir)
+      (let* ((subarea (subrun:get-runarea test-run-dir)))
+        (if (and subarea (common:file-exists? subarea))
+            (system (conc "cd " subarea ";env -i PATH=$PATH DISPLAY=$DISPLAY HOME=$HOME USER=$USER dashboard &"))))))
+
 (define (subrun:subrun-removed? test-run-dir)
   (if (subrun:subrun-test-initialized? test-run-dir)
       (let ((flagfile (conc test-run-dir "/subrun.removed")))
         (if (common:file-exists? flagfile)
             #t
@@ -100,10 +106,20 @@
          (run-wait #t)
          (cmd      (conc "megatest -run "switches" "
                          (if run-wait "-run-wait " ""))))
     cmd))
 
+
+(define (subrun:get-runarea test-run-dir)
+  (if (subrun:subrun-test-initialized? test-run-dir)
+      (let* ((info-alist (subrun:selector+log-alist
+                          test-run-dir
+                          "foo"))
+             (run-area   (if (list? info-alist)
+                             (alist-ref "-start-dir" info-alist equal? #f)
+                             #f)))
+        run-area)))
 
 (define (subrun:selector+log-alist test-run-dir log-prefix)
   (let* ((switch-def-alist (common:get-param-mapping flavor: 'config))
          (subrunfile   (conc test-run-dir "/testconfig.subrun" ))
          (subrundata   (with-input-from-file subrunfile read))