Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -156,20 +156,20 @@
    (iup:dialog
     (iup:vbox 
      (iup:label msg #:margin "40x40")))))
 
 (define (iuplistbox-fill-list lb items . default)
-  (let ((i 1)
+  (let ((i             1)
 	(selected-item (if (null? default) #f (car default))))
-    (iup:attribute-set! lb "VALUE" (if selected-item selected-item ""))
     (for-each (lambda (item)
 		(iup:attribute-set! lb (number->string i) item)
 		(if selected-item
 		    (if (equal? selected-item item)
 			(iup:attribute-set! lb "VALUE" item))) ;; (number->string i))))
 		(set! i (+ i 1)))
 	      items)
+    (iup:attribute-set! lb "VALUE" (if selected-item selected-item ""))
     i))
 
 (define (pad-list l n)(append l (make-list (- n (length l)))))
 
 (define (colors-similar? color1 color2)
@@ -462,13 +462,13 @@
 	       (lbs     '()))
       (let* ((lb (let ((lb (list-ref key-listboxes indx)))
 		   (if lb
 		       lb
 		       (iup:listbox 
-			#:size "x10" 
+			;; #:size "x10" 
 			#:fontsize "10"
-			#:expand "VERTICAL"
+			#:expand "YES" ;; "VERTICAL"
 			;; #:dropdown "YES"
 			#:editbox "YES"
 			#:action action-proc
 			))))
 	     ;; loop though all the targets and build the list for this dropdown
@@ -486,10 +486,33 @@
 	    (loop (car remkeys)
 		  (cdr remkeys)
 		  (append refvals (list selected-value))
 		  (+ indx 1)
 		  (append lbs (list lb))))))))
+
+;; Make a vertical list of toggles using items, when toggled call proc with the conc'd string 
+;; interspersed with commas
+;;
+(define (dashboard:text-list-toggle-box items proc)
+  (let ((alltgls (make-hash-table)))
+    (apply iup:vbox
+	   (map (lambda (item)
+		  (iup:toggle 
+		   item
+		   #:expand "YES"
+		   #:action (lambda (obj tstate)
+			      (if (eq? tstate 0)
+				  (hash-table-delete! alltgls item)
+				  (hash-table-set! alltgls item #t))
+			      (let ((all (hash-table-keys alltgls)))
+				(proc all)))))
+		items))))
+
+;; Extract the various bits of data from *data* and create the command line equivalent that will be displayed
+;;
+(define (dashboard:update-run-command)
+  (print "Updated!!"))
 
 (define (dashboard:draw-tests cnv xadj yadj test-draw-state sorted-testnames)
   (canvas-clear! cnv)
   (canvas-font-set! cnv "Courier New, -10")
   (let-values (((sizex sizey sizexmm sizeymm) (canvas-size cnv))
@@ -559,35 +582,94 @@
     (tests:get-full-data test-names test-records '())
     (set! sorted-testnames (tests:sort-by-priority-and-waiton test-records))
     
     ;; refer to *keys*, *dbkeys* for keys
     (iup:vbox
+     ;; The command line display/exectution control
      (iup:hbox
-       ;; Target and action
-      (iup:frame
-       #:title "Target"
-       (iup:vbox
-        ;; Target selectors
-        (apply iup:hbox
-	       (let* ((dat      (dashboard:update-target-selector key-listboxes action-proc: update-keyvals))
-		      (key-lb   (car dat))
-		      (combos   (cadr dat)))
-		 (set! key-listboxes key-lb)
-		 combos))))
-      (iup:frame
-       #:title "Tests and Tasks"
-       (iup:vbox
+      (iup:label "Run on" #:size "40x")
+      (iup:radio 
+       (iup:hbox
+	(iup:toggle "Local" #:size "40x")
+	(iup:toggle "Server" #:size "40x")))
+      (iup:textbox 
+       #:value "megatest -xyz"
+       #:expand "HORIZONTAL")
+      (iup:button "Execute" #:size "50x"))
+     (iup:split
+       ;; Target, testpatt, state and status input boxes
+      (iup:vbox
+       ;; Command to run
+       (iup:frame
+	#:title "Set the action to take"
+	(iup:hbox
+	 (iup:label "Command to run" #:expand "HORIZONTAL" #:size "70x")
+	 (let ((lb (iup:listbox #:expand "HORIZONTAL"
+				#:dropdown "YES")))
+	   (iuplistbox-fill-list lb '("-runtests" "-remove-runs" "-set-state-status") "-runtests")
+	   lb)))
+       (iup:frame
+	#:title "Selectors that determine which tests will be operated on"
+	(iup:vbox
+	 ;; Text box for test patterns
+	 (iup:frame
+	  #:title "Test patterns (one per line)"
+	  (iup:textbox #:action (lambda (val a b)
+				  (dboard:data-set-test-patts!
+				   *data*
+				   (dboard:lines->test-patt b)))
+		       #:value (dboard:test-patt->lines
+				(dboard:data-get-test-patts *data*))
+		       #:expand "YES"
+		       #:multiline "YES"))
+	 (iup:frame
+	  #:title "Target"
+	  ;; Target selectors
+	  (apply iup:hbox
+		 (let* ((dat      (dashboard:update-target-selector key-listboxes action-proc: update-keyvals))
+			(key-lb   (car dat))
+			(combos   (cadr dat)))
+		   (set! key-listboxes key-lb)
+		   combos)))
+	 (iup:hbox
+	  ;; Text box for STATES
+	  (iup:frame
+	   #:title "States"
+	   (dashboard:text-list-toggle-box 
+	    '("COMPLETED" "RUNNING" "STUCK" "INCOMPLETE" "LAUNCHED" "REMOTEHOSTSTART" "KILLED")
+	    (lambda (all)
+	      (dboard:data-set-states! *data* (string-intersperse all ","))
+	      (dashboard:update-run-command))))
+	  ;; Text box for STATES
+	  (iup:frame
+	   #:title "States"
+	   (dashboard:text-list-toggle-box 
+	    '("PASS" "FAIL" "n/a" "CHECK" "WAIVED" "SKIP" "DELETED" "STUCK/DEAD")
+	    (lambda (all)
+	      (dboard:data-set-statuses! *data* (string-intersperse all ","))
+	      (dashboard:update-run-command))))))))
+      (iup:split
+       #:orientation "HORIZONTAL"
+       (iup:frame
+	#:title "Tests and Tasks"
 	(iup:canvas #:action (make-canvas-action
 			      (lambda (cnv xadj yadj)
 				;; (print "cnv: " cnv " x: " x " y: " y)
 				(dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)))
 		    #:size "150x150"
 		    #:expand "YES"
 		    #:scrollbar "YES"
 		    #:posx "0.5"
-		    #:posy "0.5")))))))
-
+		    #:posy "0.5"))
+       (iup:frame
+	#:title "Logs" ;; To be replaced with tabs
+	(let ((logs-tb (iup:textbox #:expand "YES"
+				    #:multiline "YES")))
+	  (dboard:data-set-logs-textbox! *data* logs-tb)
+	  logs-tb))
+       )))))
+  
 
 ;; (trace dashboard:populate-target-dropdown
 ;;        common:list-is-sublist)
 ;; 
 ;;       ;; key1 key2 key3 ...

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -11,10 +11,11 @@
 
 (use format)
 (require-library iup)
 (import (prefix iup iup:))
 (use canvas-draw)
+(use regex)
 
 (declare (unit dcommon))
 
 (declare (uses megatest-version))
 (declare (uses gutils))
@@ -47,10 +48,15 @@
 (define (dboard:data-get-path-test-ids vec)    (vector-ref  vec 7))
 (define (dboard:data-get-updaters      vec)    (vector-ref  vec 8))
 (define (dboard:data-get-path-run-ids  vec)    (vector-ref  vec 9))
 (define (dboard:data-get-curr-run-id   vec)    (vector-ref  vec 10))
 (define (dboard:data-get-runs-tree     vec)    (vector-ref  vec 11))
+;; For test-patts convert #f to ""
+(define (dboard:data-get-test-patts    vec)    
+  (let ((val (vector-ref  vec 12)))(if val val "")))
+(define (dboard:data-get-states        vec)    (vector-ref vec 12))
+(define (dboard:data-get-statuses      vec)    (vector-ref vec 13))
 
 (define (dboard:data-set-runs!          vec val)(vector-set! vec 0 val))
 (define (dboard:data-set-tests!         vec val)(vector-set! vec 1 val))
 (define (dboard:data-set-runs-matrix!   vec val)(vector-set! vec 2 val))
 (define (dboard:data-set-tests-tree!    vec val)(vector-set! vec 3 val))
@@ -59,11 +65,18 @@
 ;; (define (dboard:data-set-test-details!  vec val)(vector-set! vec 6 val))
 (define (dboard:data-set-path-test-ids! vec val)(vector-set! vec 7 val))
 (define (dboard:data-set-updaters!      vec val)(vector-set! vec 8 val))
 (define (dboard:data-set-path-run-ids!  vec val)(vector-set! vec 9 val))
 (define (dboard:data-set-curr-run-id!   vec val)(vector-set! vec 10 val))
-(define (dboard:data-set-runs-tree!     vec val)(vector-set! vec 12 val))
+(define (dboard:data-set-runs-tree!     vec val)(vector-set! vec 11 val))
+;; For test-patts convert "" to #f 
+(define (dboard:data-set-test-patts!    vec val)
+  (vector-set! vec 12 (if (equal? val "") #f val)))
+(define (dboard:data-set-states!        vec val)(vector-set! vec 12 val))
+(define (dboard:data-set-statuses!      vec val)(vector-set! vec 13 val))
+(define (dboard:data-set-logs-textbox!  vec val)(vector-set! vec 14 val))
+
 
 (dboard:data-set-run-keys! *data* (make-hash-table))
 
 ;; List of test ids being viewed in various panels
 (dboard:data-set-curr-test-ids! *data* (make-hash-table))
@@ -71,10 +84,23 @@
 ;; Look up test-ids by (key1 key2 ... testname [itempath])
 (dboard:data-set-path-test-ids! *data* (make-hash-table))
 
 ;; Look up run-ids by ??
 (dboard:data-set-path-run-ids! *data* (make-hash-table))
+
+;;======================================================================
+;; TARGET AND PATTERN MANIPULATIONS
+;;======================================================================
+
+;; Convert to and from list of lines (for a text box)
+;; "," => "\n"
+(define (dboard:test-patt->lines test-patt)
+  (string-substitute (regexp ",") "\n" test-patt))
+
+(define (dboard:lines->test-patt lines)
+  (string-substitute (regexp "\n") "," lines))
+
 
 ;;======================================================================
 ;; P R O C E S S   R U N S
 ;;======================================================================