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,64 @@
   ;; (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)
+		 (iup:label key #:size "x15" #:fontsize "10" #:expand "HORIZONTAL"))
+	       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 +654,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
@@ -582,10 +582,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)