Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -67,12 +67,11 @@
   -test run-id test-id  : open a test control panel on this test
   -skip-version-check   : skip the version check
   -rows R         : set number of rows
   -cols C         : set number of columns
   -start-dir dir  : start dashboard in the given directory
-  -target target   : filter runs tab to given target.
-  -run-name name  : filter runs tab to given run name.
+  -target-run target[/run-name]   : filter runs tab to given target/run-name.
   -debug  n[,n]   : set debug level(s) e.g. -debug 4 or -debug 0,9
   -repl           : Start a chicken scheme interpreter
 "
 ))
 
@@ -84,12 +83,11 @@
 		 (list  "-rows"
 			"-cols"
 			"-test" ;; given a run id and test id, open only a test control panel on that test..
 			"-debug"
                         "-start-dir"
-                        "-target"
-                        "-run-name"
+                        "-target-run"
 			) 
                  ;; switches (don't take arguments)
 		 (list  "-h"
 			"-skip-version-check"
 			"-repl"
@@ -1428,21 +1426,21 @@
       ((run)
        (set! full-cmd (conc full-cmd 
 			    " -run"
 			    " -testpatt "
 			    test-patt
-			    " -target "
+			    " -target-run "
 			    target
 			    " -runname "
 			    run-name
 			    " -clean-cache"
 			    )))
       ((remove-runs)
        (set! full-cmd (conc full-cmd
 			    " -remove-runs -runname "
 			    run-name
-			    " -target " 
+			    " -target-run " 
 			    target
 			    " -testpatt "
 			    test-patt
 			    states-str
 			    statuses-str
@@ -1681,11 +1679,11 @@
 			      ;;  NAMEid from IupTree to avoid
 			      ;;  conflict with the common attribute
 			      ;;  NAME. Use the TITLEid attribute."
            #:expand "YES"
            #:addexpanded "YES"
-           #:size "10x"
+           ;; #:size "10x"
            #:selection-cb
            (lambda (obj id state)
              (debug:catch-and-dump
               (lambda ()
                 (let* ((run-path (tree:node->path obj id))
@@ -2979,14 +2977,14 @@
       #:title (conc "Megatest dashboard " (current-user-name) ":" *toppath*)
       #:menu (dcommon:main-menu)
       (let* ((runs-view (iup:vbox
 			 (iup:split
 			  #:orientation "VERTICAL" ;; "HORIZONTAL"
-			  #:value 100
+			  #:value 250
 			  (dboard:runs-tree-browser commondat runs-dat)
 			  (iup:split
-			   #:value 100
+			   #:value 200
 			   ;; left most block, including row names
 			   (apply iup:vbox lftlst)
 			   ;; right hand block, including cells
 			   (iup:vbox
 			    #:expand "YES"
@@ -3037,20 +3035,22 @@
 						 (let* ((tab-num (dboard:commondat-curr-tab-num commondat))
 							(tabdat  (dboard:common-get-tabdat commondat tab-num: tab-num)))
 						   (dboard:commondat-please-update-set! commondat #t)
 						   (dboard:tabdat-layout-update-ok-set! tabdat #t)))
 					       "tabchangepos"))
-			  (dashboard:summary commondat stats-dat tab-num: 0)
 			  runs-view
+			  (dashboard:summary commondat stats-dat tab-num: 1)
 			  ;; (make-runs-view commondat runs2-dat 2)
 			  (dashboard:runs-summary commondat onerun-dat tab-num: 2)
 			  (dashboard:run-controls commondat runcontrols-dat tab-num: 3)
 			  (dashboard:run-times commondat runtimes-dat tab-num: 4)
-			  additional-views)))
+			  additional-views))
+             (target-run (args:get-arg "-target-run"))
+             )
 	;; (set! (iup:callback tabs tabchange-cb:) (lambda (a b c)(print "SWITCHED TO TAB: " a " " b " " c)))
-	(iup:attribute-set! tabs "TABTITLE0" "Summary")
-	(iup:attribute-set! tabs "TABTITLE1" "Runs")
+	(iup:attribute-set! tabs "TABTITLE0" "Runs")
+	(iup:attribute-set! tabs "TABTITLE1" "Summary")
 	;; (iup:attribute-set! tabs "TABTITLE2" "Runs2")
 	(iup:attribute-set! tabs "TABTITLE2" "Run Summary")
 	(iup:attribute-set! tabs "TABTITLE3" "Run Control")
 	(iup:attribute-set! tabs "TABTITLE4" "Run Times")
 	;; (iup:attribute-set! tabs "TABTITLE3" "New View")
@@ -3064,12 +3064,16 @@
 	
 	(iup:attribute-set! tabs "BGCOLOR" "190 190 190")
 	;; make the iup tabs object available (for changing color for example)
 	(dboard:commondat-hide-not-hide-tabs-set! commondat tabs)
 	;; now set up the tabdat lookup
-	(dboard:common-set-tabdat! commondat 0 stats-dat)
-	(dboard:common-set-tabdat! commondat 1 runs-dat)
+	;; (dboard:common-set-tabdat! commondat 0 stats-dat)
+        
+        (if target-run
+          (dboard:tabdat-target-set! runs-dat (string-split target-run "/"))
+        )
+	(dboard:common-set-tabdat! commondat 0 runs-dat)
 	;;(dboard:common-set-tabdat! commondat 2 runs2-dat)
 	(dboard:common-set-tabdat! commondat 2 onerun-dat)
 	(dboard:common-set-tabdat! commondat 3 runcontrols-dat)
 	(dboard:common-set-tabdat! commondat 4 runtimes-dat)
 
@@ -3851,18 +3855,18 @@
 	(dboard:commondat-uidat-set! commondat (make-dashboard-buttons commondat))
 	(dboard:commondat-curr-tab-num-set! commondat 0)
 	(dboard:commondat-add-updater 
 	 commondat 
 	 (lambda ()
-	   (dashboard:runs-tab-updater commondat 1))
-	 tab-num: 1)
+	   (dashboard:runs-tab-updater commondat 0))
+	 tab-num: 0)
         ;; may not want this alive (manually merged it from v1.66)
-	(dboard:commondat-add-updater 
-	 commondat 
-	 (lambda ()
-	   (dashboard:runs-tab-updater commondat 1))
-	 tab-num: 2)
+	;; (dboard:commondat-add-updater 
+	;;  commondat 
+	;;  (lambda ()
+	   ;;  (dashboard:runs-tab-updater commondat 1))
+	;; tab-num: 2)
 	(iup:callback-set! *tim*
 			   "ACTION_CB"
 			   (lambda (time-obj)
 			     (let ((update-is-running #f))
 			     (mutex-lock! (dboard:commondat-update-mutex commondat))