Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -261,19 +261,34 @@
 ;; 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))
 	 (subarea           (subrun:get-runarea test-run-dir))
-	 (area-exists       (and subarea (common:file-exists? subarea silent: #t))))
-    (if subarea
-	(iup:frame 
-	 #:title "Megatest Run Info" ; #:expand "YES"
-	 (iup:button
-	  "Launch Dashboard"
-	  #:action (lambda (obj)
-                     (subrun:launch-dashboard test-run-dir))))
-	(iup:vbox))))
+	 (area-exists       (and subarea (common:file-exists? subarea silent: #t)))
+	 (target            #f)
+	 (runname           #f)
+	 (cmd-parts-file (conc test-run-dir "/subrun-command-parts.sexp")))
+    (if (file-exists? cmd-parts-file) ;; existance of this file is sufficient to *try* opening a dashboard
+	(let* ((cmd-parts      (if (file-exists? cmd-parts-file)
+				   (with-input-from-file cmd-parts-file
+				     read)
+				   '()))
+	       (target         (alist-ref "-target" cmd-parts equal?))
+	       (runname        (alist-ref "-runname" cmd-parts equal?))
+	       (run-area       (alist-ref "-startdir" cmd-parts equal?)))
+	  (iup:frame 
+	   #:title "Megatest Run Info" ; #:expand "YES"
+	   (iup:vbox
+	    (iup:button
+	     "Launch Dashboard"
+	     #:action (lambda (obj)
+			(subrun:launch-dashboard test-run-dir)))
+	    (iup:button
+	     "Launch Dashboard+Filter"
+	     #:action (lambda (obj)
+			(subrun:launch-dashboard test-run-dir target: target runname: runname))))))
+	(iup:vbox ))))
 
 ;; use a global for setting the buttons colors
 ;;                           state status teststeps
 (define *state-status* (vector #f #f #f))
 (define (update-state-status-buttons testdat)

Index: subrun.scm
==================================================================
--- subrun.scm
+++ subrun.scm
@@ -43,15 +43,17 @@
   (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)
+(define (subrun:launch-dashboard test-run-dir #!key (target #f)(runname #f))
   (if (subrun:subrun-test-initialized? test-run-dir)
-      (let* ((subarea (subrun:get-runarea test-run-dir)))
+      (let* ((subarea (subrun:get-runarea test-run-dir))
+	     (params  (conc (if target (conc " -target " target) "")
+			    (if runname (conc " -runname " runname) ""))))
         (if (and subarea (common:file-exists? subarea))
-            (system (conc "cd " subarea ";env -i PATH=$PATH DISPLAY=$DISPLAY HOME=$HOME USER=$USER dashboard &"))))))
+            (system (conc "cd " subarea ";env -i PATH=$PATH DISPLAY=$DISPLAY HOME=$HOME USER=$USER nbfake dashboard " params))))))
 
 (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)
@@ -209,11 +211,14 @@
                          (cons "-log" logfile)
                          (map (lambda (item)
                                 (if (equal? (car item) "-testpatt")
                                     (cons "-testpatt" testpatt)
                                     item))
-                                switch-alist-pre))))
+                              switch-alist-pre))))
+    (with-output-to-file "subrun-command-parts.sexp"
+      (lambda ()
+	(pp switch-alist)))
     switch-alist))
     ;; note - get precmd from subrun section
     ;;   apply to submegatest commands
 
 (define (subrun:get-log-path test-run-dir log-prefix)