Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -475,11 +475,12 @@
 											      (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
@@ -422,12 +422,77 @@
   ;; (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
+;;======================================================================
+
+(define (dashboard:run-controls)
+  (let* ((targets       (make-hash-table))
+	 (runconf-targs (common:get-runconfig-targets))
+	 (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))
+	 (tests         (make-hash-table))
+	 (action        "-runtests")
+	 (cmdln         "")
+	 (runlogs       (make-hash-table)))
+    ;; refer to *keys*, *dbkeys* for keys
+    (print "db-targets: " db-targets)
+     (iup:vbox
+      (iup:hbox
+       ;; Target and action
+      (iup:vbox
+        ;; Target selectors
+        (apply iup:hbox
+	       (map 
+		(lambda (key)
+		  (print "Label key=" key)
+		  (let ((lb (iup:listbox 
+			     key 
+			     #:size "x15" 
+			     #:fontsize "10"
+			     #:expand "YES"
+			     #:value "1"
+			     #:dropdown "YES"
+			     )))
+		    (let loop ((count 1))
+		      (iup:attribute-set!
+		       lb count 
+		       (db:get-value-by-header row header field)
+		header)))
+))))
+
+;;       ;; 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 +667,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)