Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1424,16 +1424,19 @@
 	     ;;       (iup:split
 	     ;;        #:value 300
 
 	     ;; Target, testpatt, state and status input boxes
 	     ;;
-	     (iup:vbox
-	      ;; Command to run, placed over the top of the canvas
-	      (dcommon:command-action-selector commondat tabdat tab-num: tab-num)
-              (dboard:runs-tree-browser commondat tabdat)
-	      (dcommon:command-runname-selector commondat tabdat tab-num: tab-num)
-	      (dcommon:command-testname-selector commondat tabdat update-keyvals))
+	     (iup:split
+	      #:orientation "HORIZONTAL"
+	      (iup:vbox
+	       ;; Command to run, placed over the top of the canvas
+	       (dcommon:command-action-selector commondat tabdat tab-num: tab-num)
+	       (dboard:runs-tree-browser commondat tabdat))
+	      (iup:vbox
+	       (dcommon:command-runname-selector commondat tabdat tab-num: tab-num)
+	       (dcommon:command-testname-selector commondat tabdat update-keyvals)))
 	     ;;  key-listboxes))
 	     (dcommon:command-tests-tasks-canvas tabdat test-records sorted-testnames tests-draw-state))))
 	   (tb (dboard:tabdat-runs-tree tabdat)))
       (dboard:commondat-add-updater 
        commondat 

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -1150,28 +1150,29 @@
 ;;  (apply iup:hbox
 ;; 	   (let* ((dat      (dashboard:update-target-selector tabdat action-proc: update-keyvals))
 ;; 		  (key-lb   (car dat))
 ;; 		  (combos   (cadr dat)))
 ;; 	     combos)))
-   (iup:hbox
-    ;; Text box for STATES
-    (iup:frame
-     #:title "States"
-     (dashboard:text-list-toggle-box 
-      ;; Move these definitions to common and find the other useages and replace!
-      (map cadr *common:std-states*) ;; '("COMPLETED" "RUNNING" "STUCK" "INCOMPLETE" "LAUNCHED" "REMOTEHOSTSTART" "KILLED")
-      (lambda (all)
-	(dboard:tabdat-states-set! tabdat all)
-	(dashboard:update-run-command tabdat))))
-    ;; Text box for STATES
-    (iup:frame
-     #:title "Statuses"
-     (dashboard:text-list-toggle-box 
-      (map cadr *common:std-statuses*) ;; '("PASS" "FAIL" "n/a" "CHECK" "WAIVED" "SKIP" "DELETED" "STUCK/DEAD")
-      (lambda (all)
-	(dboard:tabdat-statuses-set! tabdat all)
-	(dashboard:update-run-command tabdat)))))))
+   ;; (iup:hbox
+   ;;  ;; Text box for STATES
+   ;;  (iup:frame
+   ;;   #:title "States"
+   ;;   (dashboard:text-list-toggle-box 
+   ;;    ;; Move these definitions to common and find the other useages and replace!
+   ;;    (map cadr *common:std-states*) ;; '("COMPLETED" "RUNNING" "STUCK" "INCOMPLETE" "LAUNCHED" "REMOTEHOSTSTART" "KILLED")
+   ;;    (lambda (all)
+   ;;      (dboard:tabdat-states-set! tabdat all)
+   ;;      (dashboard:update-run-command tabdat))))
+   ;;  ;; Text box for STATES
+   ;;  (iup:frame
+   ;;   #:title "Statuses"
+   ;;   (dashboard:text-list-toggle-box 
+   ;;    (map cadr *common:std-statuses*) ;; '("PASS" "FAIL" "n/a" "CHECK" "WAIVED" "SKIP" "DELETED" "STUCK/DEAD")
+   ;;    (lambda (all)
+   ;;      (dboard:tabdat-statuses-set! tabdat all)
+   ;;      (dashboard:update-run-command tabdat)))))
+   ))
 
 (define (dcommon:command-tests-tasks-canvas tabdat test-records sorted-testnames tests-draw-state)
   (iup:frame
    #:title "Tests and Tasks"
    (let* ((updater #f)