Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -64,10 +64,13 @@
 Usage: dashboard [options]
   -h                    : this help
   -test run-id,test-id  : control test identified by testid
   -skip-version-check   : skip the version check
   -use-db-cache         : access database via cache 
+  -target T             : prefill target filter with given target pattern
+  -runname R            : prefill runname filter with given runname pattern
+  -testpatt P           : prefill testpatt filter with given testpatt              
 
 Misc
   -rows R         : set number of rows
   -cols C         : set number of columns
 "))
@@ -86,10 +89,13 @@
                         "-xterm"
 			"-debug"
 			"-host" 
 			"-transport"
                         "-start-dir"
+			"-target"   ;; use as filter
+			"-runname"  ;; use as filter
+			"-testpatt" ;; use as filter
 			) 
 		 (list  "-h"
 			"-use-server"
 			"-guimonitor"
 			"-main"
@@ -1519,29 +1525,28 @@
  ;; #:title "Logs" ;; To be replaced with tabs
  ;; (let ((logs-tb (iup:textbox #:expand "YES"
  ;;				   #:multiline "YES")))
  ;;	 (dboard:tabdat-logs-textbox-set! tabdat logs-tb)
  ;;	 logs-tb))
+
+(define (dboard:runs-tree-txtbox-change tabdat val a b)
+  (if b (dboard:tabdat-target-set! tabdat
+				   (string-split b "/")))
+  (dashboard:update-run-command tabdat))
 
 ;; browse runs as a tree. Used in both "Runs" tab and
 ;; in the runs control panel.
 ;;
 (define (dboard:runs-tree-browser commondat tabdat)
   (let* ((txtbox (iup:textbox
 		  #:action (lambda (val a b)
 			     (debug:catch-and-dump
 			      (lambda ()
-				;; for the Runs view we put the list
-				;; of keyvals into tabdat target for
-				;; the Run Controls we put then update
-				;; the run-command
-				(if b (dboard:tabdat-target-set! tabdat
-								 (string-split b "/")))
-				(dashboard:update-run-command tabdat))
+				(dboard:runs-tree-txtbox-change tabdat val a b))
 			      "command-testname-selector tb action"))
 		  #:value (dboard:test-patt->lines
-			   (dboard:tabdat-test-patts-use tabdat))
+			       (dboard:tabdat-test-patts-use tabdat))
 		  #:expand "HORIZONTAL"
 		  ;; #:size "10x30"
 		  ))
 	 (tb
           (iup:treebox
@@ -1582,10 +1587,20 @@
                       (debug:print-error 5 *default-log-port* "tree-path->run-id returned non-number " run-id))))
               "treebox"))
            ;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
            )))
     (dboard:tabdat-runs-tree-set! tabdat tb)
+    (if (args:get-arg "-target") ;; 
+	(let ((target (args:get-arg "-target")))
+	  ;;(thread-start!
+	  ;; (make-thread
+	  ;;   (lambda ()
+	      ;; (thread-sleep! 1)
+	      (iup:attribute-set! txtbox value: target)
+	      (dboard:runs-tree-txtbox-change tabdat #f #f target))
+	;; "redraw on start"))))
+	)
     (iup:detachbox
      (iup:vbox 
       txtbox
       tb
       ))))