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