Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -142,10 +142,36 @@
 ;; '(print (string-intersperse (map cadr (hash-table-ref/default (read-config "megatest.config" \#f \#t) "disks" '"'"'("none" ""))) "\n"))'
 (define (common:get-disks)
   (hash-table-ref/default 
    (read-config "megatest.config" #f #t)
    "disks" '("none" "")))
+
+;;======================================================================
+;; M I S C   L I S T S
+;;======================================================================
+
+;; items in lista are matched value and position in listb
+;; return the remaining items in listb or #f
+;;
+(define (common:list-is-sublist lista listb)
+  (if (null? lista)
+      listb ;; all items in listb are "remaining"
+      (if (> (length lista)(length listb)) 
+	  #f
+	  (let loop ((heda (car lista))
+		     (tala (cdr lista))
+		     (hedb (car listb))
+		     (talb (cdr listb)))
+	    (if (equal? heda hedb)
+		(if (null? tala) ;; we are done
+		    talb
+		    (loop (car tala)
+			  (cdr tala)
+			  (car talb)
+			  (cdr talb)))
+		#f)))))
+      
 
 ;;======================================================================
 ;; System stuff
 ;;======================================================================
 

Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -475,11 +475,13 @@
 											      (db:test-data-get-comment  x)))
 										    (open-run-close db:read-test-data #f test-id "%")))
 									      "\n")))
 							       (if (not (equal? currval newval))
 								   (iup:attribute-set! test-data "VALUE" newval ))))) ;; "TITLE" newval)))))
-					  test-data)))))
+					  test-data))
+				       ;;(dashboard:run-controls)
+				       )))
 				 (iup:attribute-set! tabs "TABTITLE0" "Steps")
 				 (iup:attribute-set! tabs "TABTITLE1" "Test Data")
 				 tabs))))
 	    (iup:show self)
 	    (iup:callback-set! *tim* "ACTION_CB"

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -15,10 +15,11 @@
 
 (use canvas-draw)
 
 (use sqlite3 srfi-1 posix regex regex-case srfi-69)
 (import (prefix sqlite3 sqlite3:))
+(use trace)
 
 (declare (uses common))
 (declare (uses margs))
 (declare (uses keys))
 (declare (uses items))
@@ -422,12 +423,148 @@
   ;; (print "Setting search for " x " to " val)
   (hash-table-set! *searchpatts* x val))
 
 (define (mark-for-update)
   (set! *last-db-update-time* 0)
-  (set! *delayed-update* 1)
-  )
+  (set! *delayed-update* 1))
+
+;;======================================================================
+;; R U N C O N T R O L
+;;======================================================================
+
+;; target populating logic
+;;  
+;; lb            = <vector curr-label-object next-label-object>
+;; field         = target field name for this dropdown
+;; referent-vals = selected value in the left dropdown
+;; targets       = list of targets to use to build the dropdown
+;; 
+;; each node is chained: key1 -> key2 -> key3
+;;
+;; must select values from only apropriate targets
+;;   a b c
+;;   a d e
+;;   a b f
+;;        a/b => c f
+;;
+(define (dashboard:populate-target-dropdown lb referent-vals targets)
+  ;; is the current value in the new list? choose new default if not
+  (let* ((remvalues  (map (lambda (row)
+			    (common:list-is-sublist referent-vals (vector->list row)))
+			  targets))
+	 (values     (delete-duplicates (map car (filter list? remvalues))))
+	 (sel-valnum (iup:attribute lb "VALUE"))
+	 (sel-val    (iup:attribute lb sel-valnum))
+	 (val-num    1))
+    ;; first check if the current value is in the new list, otherwise replace with 
+    ;; first value from values
+    (iup:attribute-set! lb "REMOVEITEM" "ALL")
+    (for-each (lambda (val)
+		;; (iup:attribute-set! lb "APPENDITEM" val)
+		(iup:attribute-set! lb (conc val-num) val)
+		(if (equal? sel-val val)
+		    (iup:attribute-set! lb "VALUE" val-num))
+		(set! val-num (+ val-num 1)))
+	      values)
+    (let ((val (iup:attribute lb "VALUE")))
+      (if val
+	  val
+	  (let ((newval (car values)))
+	    (iup:attribute-set! lb "VALUE" newval)
+	    newval)))))
+
+(define (dashboard:update-target-selector key-lbs #!key (action-proc #f))
+  (let* ((db-target-dat (open-run-close db:get-targets #f))
+	 (header        (vector-ref db-target-dat 0))
+	 (db-targets    (vector-ref db-target-dat 1))
+	 (key-listboxes (if key-lbs key-lbs (make-list (length header) #f))))
+    (let loop ((key     (car header))
+	       (remkeys (cdr header))
+	       (refvals '())
+	       (indx    0)
+	       (lbs     '()))
+      (let* ((lb (let ((lb (list-ref key-listboxes indx)))
+		   (if lb
+		       lb
+		       (iup:listbox 
+			#:size "x15" 
+				    #:fontsize "10"
+				    #:expand "YES"
+				    ;; #:dropdown "YES"
+				    #:editbox "YES"
+				    #:action action-proc
+				    ))))
+	     ;; loop though all the targets and build the list for this dropdown
+	     (selected-value (dashboard:populate-target-dropdown lb refvals db-targets)))
+	(if (null? remkeys)
+	    ;; return a list of the listbox items and an iup:hbox with the labels and listboxes
+	    (let ((listboxes (append lbs (list lb))))
+	      (list listboxes
+		    (map (lambda (htxt lb)
+			   (iup:vbox
+			    (iup:label htxt)
+			    lb))
+			 header
+			 listboxes)))
+	    (loop (car remkeys)
+		  (cdr remkeys)
+		  (append refvals (list selected-value))
+		  (+ indx 1)
+		  (append lbs (list lb))))))))
+
+(define (dashboard:run-controls)
+  (let* ((targets       (make-hash-table))
+	 (runconf-targs (common:get-runconfig-targets))
+	 (tests         (make-hash-table))
+	 (action        "-runtests")
+	 (cmdln         "")
+	 (runlogs       (make-hash-table))
+	 (key-listboxes #f)
+	 (update-keyvals (lambda (obj b c d)
+			   (print "obj: " obj ", b " b ", c " c ", d " d)
+			   (dashboard:update-target-selector key-listboxes))))
+    ;; refer to *keys*, *dbkeys* for keys
+    (iup:vbox
+     (iup:hbox
+       ;; Target and action
+      (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)))))))
+
+(trace dashboard:populate-target-dropdown
+       common:list-is-sublist)
+
+;;       ;; key1 key2 key3 ...
+;;       ;; target entry (wild cards allowed)
+;;       
+;;       ;; The action
+;;       (iup:hbox
+;;        ;; label Action | action selector
+;;        ))
+;;      ;; Test/items selector
+;;      (iup:hbox
+;;       ;; tests
+;;       ;; items
+;;       ))
+;;     ;; The command line
+;;     (iup:hbox
+;;      ;; commandline entry
+;;      ;; GO button
+;;      )
+;;     ;; The command log monitor
+;;     (iup:tabs
+;;      ;; log monitor
+;;      )))
+   
+;;======================================================================
+;; R U N S 
+;;======================================================================
 
 (define (make-dashboard-buttons nruns ntests keynames)
   (let* ((nkeys   (length keynames))
 	 (runsvec (make-vector nruns))
 	 (header  (make-vector nruns))
@@ -602,20 +739,26 @@
 	  (loop runnum (+ testnum 1) testvec (cons butn res))))))
     ;; now assemble the hdrlst and bdylst and kick off the dialog
     (iup:show
      (iup:dialog 
       #:title "Megatest dashboard"
-      (iup:vbox
-	(apply iup:hbox 
-	       (cons (apply iup:vbox lftlst)
-		     (list 
-		      (iup:vbox
-		       ;; the header
-		       (apply iup:hbox (reverse hdrlst))
-		       (apply iup:hbox (reverse bdylst))))))
-       controls)))
-    (vector keycol lftcol header runsvec)))
+      (let ((tabs (iup:tabs
+		   (iup:vbox
+		    (apply iup:hbox 
+			   (cons (apply iup:vbox lftlst)
+				 (list 
+				  (iup:vbox
+				   ;; the header
+				   (apply iup:hbox (reverse hdrlst))
+				   (apply iup:hbox (reverse bdylst))))))
+		    controls)
+		   (dashboard:run-controls)
+		   )))
+	(iup:attribute-set! tabs "TABTITLE0" "Runs")
+	(iup:attribute-set! tabs "TABTITLE1" "Run Control")
+	tabs)))
+     (vector keycol lftcol header runsvec)))
 
 (if (or (args:get-arg "-rows")
 	(get-environment-variable "DASHBOARDROWS" ))
     (begin
         (set! *num-tests* (string->number (or (args:get-arg "-rows")

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -506,10 +506,11 @@
 	 "SELECT fieldname,fieldtype FROM keys ORDER BY id DESC;")
 	(set! *db-keys* res)
 	(debug:print-info 11 "db:get-keys END (cache miss)")
 	res)))
 
+;; 
 (define (db:get-value-by-header row header field)
   (debug:print-info 4 "db:get-value-by-header row: " row " header: " header " field: " field)
   (if (null? header) #f
       (let loop ((hed (car header))
 		 (tal (cdr header))
@@ -582,10 +583,31 @@
      db
      qrystr
      )
     (debug:print-info 11 "db:get-runs END qrystr: " qrystr " keypatts: " keypatts " offset: " offset " limit: " count)
     (vector header res)))
+
+;; Get all targets from the db
+;;
+(define (db:get-targets db)
+  (let* ((res       '())
+	 (keys       (db:get-keys db))
+	 (header     (map key:get-fieldname keys))
+	 (keystr     (keys->keystr keys))
+	 (qrystr     (conc "SELECT " keystr " FROM runs;"))
+	 (seen       (make-hash-table)))
+    (sqlite3:for-each-row
+     (lambda (a . x)
+       (let ((targ (cons a x)))
+	 (if (not (hash-table-ref/default seen targ #f))
+	     (begin
+	       (hash-table-set! seen targ #t)
+	       (set! res (cons (apply vector targ) res))))))
+     db
+     qrystr)
+    (debug:print-info 11 "db:get-targets END qrystr: " qrystr )
+    (vector header res)))
 
 ;; just get count of runs
 (define (db:get-num-runs db runpatt)
   (let ((numruns 0))
     (debug:print-info 11 "db:get-num-runs START " runpatt)

Index: margs.scm
==================================================================
--- margs.scm
+++ margs.scm
@@ -17,12 +17,12 @@
       (hash-table-ref/default args:arg-hash arg #f)
       (hash-table-ref/default args:arg-hash arg (car default))))
 
 (define (args:get-arg-from ht arg . default)
   (if (null? default)
-      (hash-table-ref/default ht arg #f))
-      (hash-table-ref/default ht arg (car default)))
+      (hash-table-ref/default ht arg #f)
+      (hash-table-ref/default ht arg (car default))))
 
 (define (args:usage . args)
   (if (> (length args) 0)
       (apply print "ERROR: " args))
   (if (string? help)
@@ -34,11 +34,12 @@
 (define (args:get-args args params switches arg-hash num-needed)
   (let* ((numargs (length args))
 	 (adj-num-needed (if num-needed (+ num-needed 2) #f)))
     (if (< numargs (if adj-num-needed adj-num-needed 2))
 	(if (>= num-needed 1)
-	    (args:usage "No arguments provided"))
+	    (args:usage "No arguments provided")
+	    '())
 	(let loop ((arg (cadr args))
 		   (tail (cddr args))
 		   (remargs '()))
 	  (cond 
 	   ((member arg params) ;; args with params