Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -1,11 +1,11 @@
 FILES=$(glob *.scm)
 
 megatest: common.scm configf.scm db.scm keys.scm launch.scm megatest.scm process.scm runs.scm gui.scm
 	csc megatest.scm 
 
-dashboard: megatest dashboard.scm 
+dashboard: megatest dashboard.scm dashboard-tests.scm
 	csc dashboard.scm
 
 $(PREFIX)/bin/megatest : megatest
 	@echo Installing to PREFIX=$(PREFIX), use ^C to cancel and change
 	sleep 5

ADDED   dashboard-tests.scm
Index: dashboard-tests.scm
==================================================================
--- /dev/null
+++ dashboard-tests.scm
@@ -0,0 +1,110 @@
+;;======================================================================
+;; Copyright 2006-2011, Matthew Welland.
+;; 
+;;  This program is made available under the GNU GPL version 2.0 or
+;;  greater. See the accompanying file COPYING for details.
+;; 
+;;  This program is distributed WITHOUT ANY WARRANTY; without even the
+;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+;;  PURPOSE.
+;;======================================================================
+
+;;======================================================================
+;;
+;;======================================================================
+(define (examine-test db test-id) ;; run-id run-key origtest)
+  (let* ((testdat   (db:get-test-data-by-id db test-id))
+	 (run-id    (if testdat (db:test-get-run_id testdat) #f))
+	 (rundat    (if testdat (db:get-run-info db run-id)))
+	 (teststeps (if testdat (db:get-steps-for-test db test-id))))
+    (cond
+     ((not testdat)(begin (print "ERROR: bad test info for " test-id)(exit 1)))
+     ((not rundat)(begin (print "ERROR: found test info but there is a problem with the run info for " run-id)(exit 1)))
+     (else
+      (let* ((widgets      (make-hash-table)) ;; put the widgets to update in this hashtable
+	     (logfile      (conc (db:test-get-rundir testdat) "/" (db:test-get-final_logf testdat)))
+	     (viewlog      (lambda (x)
+			     (if (file-exists? logfile)
+				 (system (conc "firefox " logfile "&"))
+				 (message-window (conc "File " logfile " not found")))))
+	     (xterm        (lambda (x)
+			     (if (directory-exists? rundir)
+				 (let ((shell (if (get-environment-variable "SHELL") 
+						  (conc "-e " (get-environment-variable "SHELL"))
+						  "")))
+				   (system (conc "cd " rundir 
+						 ";xterm -T \"" (string-translate testfullname "()" "  ") "\" " shell "&")))
+				 (message-window  (conc "Directory " rundir " not found")))))
+	     (self         #f))
+	
+	  (hash-table-set! widgets "testdat" testdat)
+	  (hash-table-set! widgets "rundat"  rundat)
+	  
+	  ;;  (test-set-status! db run-id test-name state status itemdat)
+	  (set! self 
+		(iup:dialog
+		 #:title "testfullname"
+		 (iup:hbox ;; Need a full height box for all the test steps
+		  (iup:vbox
+		   (iup:hbox 
+		    (iup:frame (iup:label "BLAH (was run-key)")))))))
+	  (iup:show self)
+	  )))))
+
+;;
+;;		    (iup:frame (iup:label (conc "TESTNAME:\n" testfullname) #:expand "YES")))
+;;		   (iup:frame #:title "Actions" #:expand "YES"
+;;			      (iup:hbox ;; the actions box
+;;			       (iup:button "View Log"    #:action viewlog  #:expand "YES")
+;;			       (iup:button "Start Xterm" #:action xterm  #:expand "YES")))
+;;		   (iup:frame #:title "Set fields"
+;;			      (iup:vbox
+;;			       (iup:hbox 
+;;				(iup:vbox ;; the state
+;;				 (iup:label "STATE:" #:size "30x")
+;;				 (let ((lb (iup:listbox #:action (lambda (val a b c)
+;;								   ;; (print val " a: " a " b: " b " c: " c)
+;;								   (set! newstate a))
+;;							#:editbox "YES"
+;;							#:expand "YES")))
+;;				   (iuplistbox-fill-list lb
+;;							 (list "COMPLETED" "NOT_STARTED" "RUNNING" "REMOTEHOSTSTART" "KILLED" "KILLREQ")
+;;							 currstate)
+;;				   lb))
+;;				(iup:vbox ;; the status
+;;				 (iup:label "STATUS:" #:size "30x")
+;;				 (let ((lb (iup:listbox #:action (lambda (val a b c)
+;;								   (set! newstatus a))
+;;							#:editbox "YES"
+;;							#:value currstatus
+;;							#:expand "YES")))
+;;				   (iuplistbox-fill-list lb
+;;							 (list "PASS" "WARN" "FAIL" "CHECK" "n/a")
+;;							 currstatus)
+;;				   lb)))
+;;			       (iup:hbox (iup:label "Comment:")
+;;					 (iup:textbox #:action (lambda (val a b)
+;;								 (set! currcomment b))
+;;						      #:value currcomment 
+;;						      #:expand "YES"))
+;;			       (iup:button "Apply"
+;;					   #:expand "YES"
+;;					   #:action (lambda (x)
+;;						      (test-set-status! *db* run-id testname newstate newstatus itempath currcomment)))
+;;			       (iup:hbox (iup:button "Apply and close"
+;;						     #:expand "YES"
+;;						     #:action (lambda (x)
+;;								(hash-table-delete! *examine-test-dat* testkey)
+;;								(test-set-status! *db* run-id testname newstate newstatus itempath currcomment)
+;;								(iup:destroy! self)))
+;;					 (iup:button "Cancel and close"
+;;						     #:expand "YES"
+;;						     #:action (lambda (x)
+;;								(hash-table-delete! *examine-test-dat* testkey)
+;;								(iup:destroy! self))))
+;;			       )))
+;;		  (iup:hbox ;; the test steps are tracked here
+;;		   (let ((stepsdat (iup:label "Test steps ........................................." #:expand "YES")))
+;;		     (hash-table-set! widgets "Test Steps" stepsdat)
+;;		     stepsdat)
+;;		   ))))

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -26,27 +26,32 @@
 (include "configf.scm")
 (include "process.scm")
 (include "launch.scm")
 (include "runs.scm")
 (include "gui.scm")
+(include "dashboard-tests.scm")
 
 (define help "
 Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
-  version 0.1
+  version 0.2
   license GPL, Copyright Matt Welland 2011
 
 Usage: dashboard [options]
   -h              : this help
+  -run runid      : control run identified by runid
+  -test testid    : control test identified by testid
 
 Misc
   -rows N         : set number of rows
 ")
 
 ;; process args
 (define remargs (args:get-args 
 		 (argv)
 		 (list  "-rows"
+			"-run"
+			"-test"
 			) 
 		 (list  "-h"
 		       )
 		 args:arg-hash
 		 0))
@@ -100,125 +105,10 @@
 	      items)
     i))
 
 (define (pad-list l n)(append l (make-list (- n (length l)))))
 
-(define (examine-test button-key) ;; run-id run-key origtest)
-  (let ((buttondat     (hash-table-ref/default *buttondat* button-key #f)))
-    ;; (print "buttondat: " buttondat)
-    (if (and buttondat
-	     (vector buttondat)
-	     (vector-ref buttondat 0)
-	     (> (vector-ref buttondat 0) 0)
-	     (vector? (vector-ref buttondat 3))
-	     (> (vector-ref (vector-ref buttondat 3) 0) 0))
-	(let* ((run-id       (vector-ref buttondat 0))
-	       (origtest     (vector-ref buttondat 3))
-	       (run-key      (vector-ref buttondat 4))
-	       (test         (db:get-test-info *db*
-					       run-id
-					       (db:test-get-testname  origtest)
-					       (db:test-get-item-path origtest)))
-	       (rundir       (db:test-get-rundir test))
-	       (test-id      (db:test-get-id     test))
-	       (testname     (db:test-get-testname   test))
-	       (itempath     (db:test-get-item-path test))
-	       (testfullname (runs:test-get-full-path test))
-	       (testkey      (list test-id testname itempath testfullname))
-	       (widgets      (make-hash-table)) ;; put the widgets to update in this hashtable
-	       (currstatus   (db:test-get-status test))
-	       (currstate    (db:test-get-state  test))
-	       (currcomment  (db:test-get-comment test))
-	       (host         (db:test-get-host test))
-	       (cpuload      (db:test-get-cpuload test))
-	       (runtime      (db:test-get-run_duration test))
-	       (logfile      (conc (db:test-get-rundir test) "/" (db:test-get-final_logf test)))
-	       (viewlog      (lambda (x)
-			       (if (file-exists? logfile)
-				   (system (conc "firefox " logfile "&"))
-				   (message-window (conc "File " logfile " not found")))))
-	       (xterm        (lambda (x)
-			       (if (directory-exists? rundir)
-				   (let ((shell (if (get-environment-variable "SHELL") 
-						    (conc "-e " (get-environment-variable "SHELL"))
-						    "")))
-				     (system (conc "cd " rundir 
-						   ";xterm -T \"" (string-translate testfullname "()" "  ") "\" " shell "&")))
-				   (message-window  (conc "Directory " rundir " not found")))))
-	       (newstatus    currstatus)
-	       (newstate     currstate)
-	       (self         #f))
-
-	  (hash-table-set! *examine-test-dat* testkey widgets)
-	  
-	  ;;  (test-set-status! db run-id test-name state status itemdat)
-	  (set! self 
-		(iup:dialog
-		 #:title testfullname
-		 (iup:hbox ;; Need a full height box for all the test steps
-		  (iup:vbox
-		   (iup:hbox 
-		    (iup:frame (iup:label run-key))
-		    (iup:frame (iup:label (conc "TESTNAME:\n" testfullname) #:expand "YES")))
-		   (iup:frame #:title "Actions" #:expand "YES"
-			      (iup:hbox ;; the actions box
-			       (iup:button "View Log"    #:action viewlog  #:expand "YES")
-			       (iup:button "Start Xterm" #:action xterm  #:expand "YES")))
-		   (iup:frame #:title "Set fields"
-			      (iup:vbox
-			       (iup:hbox 
-				(iup:vbox ;; the state
-				 (iup:label "STATE:" #:size "30x")
-				 (let ((lb (iup:listbox #:action (lambda (val a b c)
-								   ;; (print val " a: " a " b: " b " c: " c)
-								   (set! newstate a))
-							#:editbox "YES"
-							#:expand "YES")))
-				   (iuplistbox-fill-list lb
-							 (list "COMPLETED" "NOT_STARTED" "RUNNING" "REMOTEHOSTSTART" "KILLED" "KILLREQ" "CHECK")
-							 currstate)
-				   lb))
-				(iup:vbox ;; the status
-				 (iup:label "STATUS:" #:size "30x")
-				 (let ((lb (iup:listbox #:action (lambda (val a b c)
-								   (set! newstatus a))
-							#:editbox "YES"
-							#:value currstatus
-							#:expand "YES")))
-				   (iuplistbox-fill-list lb
-							 (list "PASS" "WARN" "FAIL" "CHECK" "n/a")
-							 currstatus)
-				   lb)))
-			       (iup:hbox (iup:label "Comment:")
-					 (iup:textbox #:action (lambda (val a b)
-								 (set! currcomment b))
-						      #:value currcomment 
-						      #:expand "YES"))
-			       (iup:button "Apply"
-					   #:expand "YES"
-					   #:action (lambda (x)
-						      (test-set-status! *db* run-id testname newstate newstatus itempath currcomment)))
-			       (iup:hbox (iup:button "Apply and close"
-						     #:expand "YES"
-						     #:action (lambda (x)
-								(hash-table-delete! *examine-test-dat* testkey)
-								(test-set-status! *db* run-id testname newstate newstatus itempath currcomment)
-								(iup:destroy! self)))
-					 (iup:button "Cancel and close"
-						     #:expand "YES"
-						     #:action (lambda (x)
-								(hash-table-delete! *examine-test-dat* testkey)
-								(iup:destroy! self))))
-			       )))
-		  (iup:hbox ;; the test steps are tracked here
-		   (let ((stepsdat (iup:label "Test steps ........................................." #:expand "YES")))
-		     (hash-table-set! widgets "Test Steps" stepsdat)
-		     stepsdat)
-		   ))))
-	  (iup:show self)
-	  ))))
-
 (define (colors-similar? color1 color2)
   (let* ((c1 (map string->number (string-split color1)))
 	 (c2 (map string->number (string-split color2)))
 	 (delta (map (lambda (a b)(abs (- a b))) c1 c2)))
     (null? (filter (lambda (x)(> x 3)) delta))))
@@ -470,11 +360,14 @@
 	       (butn       (iup:button "" ;; button-key 
 				       #:size "60x15" 
 				       ;; #:expand "HORIZONTAL"
 				       #:fontsize "10" 
 				       #:action (lambda (x)
-						  (examine-test button-key)))))
+						  (let* ((toolpath (car (argv)))
+							 (cmd  (conc toolpath " -test " testnum "&")))
+						    (print "Launching " cmd)
+						    (system cmd))))))
 	  (hash-table-set! *buttondat* button-key (vector 0 "100 100 100" button-key #f #f)) 
 	  (vector-set! testvec testnum butn)
 	  (loop runnum (+ testnum 1) testvec (cons butn res))))))
     ;; now assemble the hdrlst and bdylst and kick off the dialog
     (iup:show
@@ -497,11 +390,11 @@
         (set! *num-tests* (string->number (or (args:get-arg "-rows")
 					      (get-environment-variable "DASHBOARDROWS"))))
 	(update-rundat "%" *num-runs* "%" "%"))
     (set! *num-tests* (min (max (update-rundat "%" *num-runs* "%" "%") 8) 20)))
 
-(set! uidat (make-dashboard-buttons *num-runs* *num-tests* dbkeys))
+(define uidat #f)
 ;; (megatest-dashboard)
 
 (define (run-update other-thread)
   (let loop ((i 0))
     (thread-sleep! 0.1)
@@ -511,10 +404,32 @@
 		   (hash-table-ref/default *searchpatts* "test-name" "%")
 		   (hash-table-ref/default *searchpatts* "item-name" "%"))
     (thread-resume! other-thread)
     (loop (+ i 1))))
 
-(define th2 (make-thread iup:main-loop))
-(define th1 (make-thread (run-update th2)))
-(thread-start! th1)
-(thread-start! th2)
-(thread-join! th2)
+(define *job* #f)
+
+(cond 
+ ((args:get-arg "-run")
+  (let ((runid (string->number (args:get-arg "-run"))))
+    (if runid
+	(set! *job* (lambda (thr)(examine-run *db* runid)))
+	(begin
+	  (print "ERROR: runid is not a number " (args:get-arg "-run"))
+	  (exit 1)))))
+ ((args:get-arg "-test")
+    (let ((testid (string->number (args:get-arg "-test"))))
+    (if testid
+	(set! *job* (lambda (thr)(examine-test *db* testid)))
+	(begin
+	  (print "ERROR: testid is not a number " (args:get-arg "-test"))
+	  (exit 1)))))
+ (else
+  (set! uidat (make-dashboard-buttons *num-runs* *num-tests* dbkeys))
+  (set! *job* (lambda (thr)(run-update thr)))))
+
+
+(let* ((th2 (make-thread iup:main-loop))
+       (th1 (make-thread (*job* th2))))
+  (thread-start! th1)
+  (thread-start! th2)
+  (thread-join! th2))

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -149,11 +149,11 @@
 
 ;; use this one for db-get-run-info
 (define-inline (db:get-row    vec)(vector-ref vec 1))
 
 ;; use (get-value-by-header (db:get-header runinfo)(db:get-row runinfo))
-(define (db-get-run-info db run-id)
+(define (db:get-run-info db run-id)
   (let* ((res      #f)
 	 (keys      (db-get-keys db))
 	 (remfields (list "id" "runname" "state" "status" "owner" "event_time"))
 	 (header    (append (map key:get-fieldname keys)
 			    remfields))
@@ -258,11 +258,22 @@
      db 
      "SELECT id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment FROM tests WHERE run_id=? AND testname=? AND item_path=?;"
      run-id testname item-path)
     res))
 
-;;
+;; Get test data using test_id
+(define (db:get-test-data-by-id db test-id)
+  (let ((res #f))
+    (sqlite3:for-each-row
+     (lambda (id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)
+       (set! res (vector id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)))
+     db 
+     "SELECT id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment FROM tests WHERE id=?;"
+     test-id)
+    res))
+
+
 (define (db:test-set-comment db run-id testname item-path comment)
   (sqlite3:execute 
    db 
    "UPDATE tests SET comment=? WHERE run_id=? AND testname=? AND item_path=?;"
      comment run-id testname item-path))
@@ -291,11 +302,12 @@
 (define-inline (db:step-set-stepname!       vec val)(vector-set! vec 2 val))
 (define-inline (db:step-set-state!          vec val)(vector-set! vec 3 val))
 (define-inline (db:step-set-status!         vec val)(vector-set! vec 4 val))
 (define-inline (db:step-set-event_time!     vec val)(vector-set! vec 5 val))
 
-(define (db-get-test-steps-for-run db test-id)
+;; db-get-test-steps-for-run
+(define (db:get-steps-for-test db test-id)
   (let ((res '()))
     (sqlite3:for-each-row 
      (lambda (id test-id stepname state status event-time)
        (set! res (cons (vector id test-id stepname state status event-time) res)))
      db

ADDED   dboard.scm
Index: dboard.scm
==================================================================
--- /dev/null
+++ dboard.scm
@@ -0,0 +1,524 @@
+;;======================================================================
+;; Copyright 2006-2011, Matthew Welland.
+;; 
+;;  This program is made available under the GNU GPL version 2.0 or
+;;  greater. See the accompanying file COPYING for details.
+;; 
+;;  This program is distributed WITHOUT ANY WARRANTY; without even the
+;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
+;;  PURPOSE.
+;;======================================================================
+
+(use format)
+(require-library iup)
+(import (prefix iup iup:))
+
+;; (use canvas-draw)
+
+(use sqlite3 srfi-1 posix regex regex-case srfi-69)
+
+(import (prefix sqlite3 sqlite3:))
+
+(include "margs.scm")
+(include "keys.scm")
+(include "items.scm")
+(include "db.scm")
+(include "configf.scm")
+(include "process.scm")
+(include "launch.scm")
+(include "runs.scm")
+(include "gui.scm")
+
+(define help "
+Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
+  version 0.2
+  license GPL, Copyright Matt Welland 2011
+
+Usage: dashboard [options]
+  -h              : this help
+
+Misc
+  -rows N         : set number of rows
+")
+
+;; process args
+(define remargs (args:get-args 
+		 (argv)
+		 (list  "-rows"
+			) 
+		 (list  "-h"
+		       )
+		 args:arg-hash
+		 0))
+
+(if (args:get-arg "-h")
+    (begin
+      (print help)
+      (exit)))
+
+(if (not (setup-for-run))
+    (begin
+      (print "Failed to find megatest.config, exiting") 
+      (exit 1)))
+
+(define *db* (open-db))
+
+(define toplevel #f)
+(define dlg      #f)
+(define max-test-num 0)
+(define *keys*   (get-keys   *db*))
+(define dbkeys   (map (lambda (x)(vector-ref x 0))
+		      (append *keys* (list (vector "runname" "blah")))))
+(define *header*       #f)
+(define *allruns*     '())
+(define *buttondat*    (make-hash-table)) ;; <run-id color text test run-key>
+(define *alltestnames* (make-hash-table)) ;; build a minimalized list of test names
+(define *alltestnamelst* '())
+(define *searchpatts*  (make-hash-table))
+(define *num-runs*      10)
+(define *num-tests*     15)
+(define *start-run-offset*  0)
+(define *start-test-offset* 0)
+(define *examine-test-dat* (make-hash-table))
+
+(define (message-window msg)
+  (iup:show
+   (iup:dialog
+    (iup:vbox 
+     (iup:label msg #:margin "40x40")))))
+
+(define (iuplistbox-fill-list lb items . default)
+  (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)
+    i))
+
+(define (pad-list l n)(append l (make-list (- n (length l)))))
+
+(define (examine-test button-key) ;; run-id run-key origtest)
+  (let ((buttondat     (hash-table-ref/default *buttondat* button-key #f)))
+    ;; (print "buttondat: " buttondat)
+    (if (and buttondat
+	     (vector buttondat)
+	     (vector-ref buttondat 0)
+	     (> (vector-ref buttondat 0) 0)
+	     (vector? (vector-ref buttondat 3))
+	     (> (vector-ref (vector-ref buttondat 3) 0) 0))
+	(let* ((run-id       (vector-ref buttondat 0))
+	       (origtest     (vector-ref buttondat 3))
+	       (run-key      (vector-ref buttondat 4))
+	       (test         (db:get-test-info *db*
+					       run-id
+					       (db:test-get-testname  origtest)
+					       (db:test-get-item-path origtest)))
+	       (rundir       (db:test-get-rundir test))
+	       (test-id      (db:test-get-id     test))
+	       (testname     (db:test-get-testname   test))
+	       (itempath     (db:test-get-item-path test))
+	       (testfullname (runs:test-get-full-path test))
+	       (testkey      (list test-id testname itempath testfullname))
+	       (widgets      (make-hash-table)) ;; put the widgets to update in this hashtable
+	       (currstatus   (db:test-get-status test))
+	       (currstate    (db:test-get-state  test))
+	       (currcomment  (db:test-get-comment test))
+	       (host         (db:test-get-host test))
+	       (cpuload      (db:test-get-cpuload test))
+	       (runtime      (db:test-get-run_duration test))
+	       (logfile      (conc (db:test-get-rundir test) "/" (db:test-get-final_logf test)))
+	       (viewlog      (lambda (x)
+			       (if (file-exists? logfile)
+				   (system (conc "firefox " logfile "&"))
+				   (message-window (conc "File " logfile " not found")))))
+	       (xterm        (lambda (x)
+			       (if (directory-exists? rundir)
+				   (let ((shell (if (get-environment-variable "SHELL") 
+						    (conc "-e " (get-environment-variable "SHELL"))
+						    "")))
+				     (system (conc "cd " rundir 
+						   ";xterm -T \"" (string-translate testfullname "()" "  ") "\" " shell "&")))
+				   (message-window  (conc "Directory " rundir " not found")))))
+	       (newstatus    currstatus)
+	       (newstate     currstate)
+	       (self         #f))
+
+	  (hash-table-set! *examine-test-dat* testkey widgets)
+	  
+	  ;;  (test-set-status! db run-id test-name state status itemdat)
+	  (set! self 
+		(iup:dialog
+		 #:title testfullname
+		 (iup:hbox ;; Need a full height box for all the test steps
+		  (iup:vbox
+		   (iup:hbox 
+		    (iup:frame (iup:label run-key))
+		    (iup:frame (iup:label (conc "TESTNAME:\n" testfullname) #:expand "YES")))
+		   (iup:frame #:title "Actions" #:expand "YES"
+			      (iup:hbox ;; the actions box
+			       (iup:button "View Log"    #:action viewlog  #:expand "YES")
+			       (iup:button "Start Xterm" #:action xterm  #:expand "YES")))
+		   (iup:frame #:title "Set fields"
+			      (iup:vbox
+			       (iup:hbox 
+				(iup:vbox ;; the state
+				 (iup:label "STATE:" #:size "30x")
+				 (let ((lb (iup:listbox #:action (lambda (val a b c)
+								   ;; (print val " a: " a " b: " b " c: " c)
+								   (set! newstate a))
+							#:editbox "YES"
+							#:expand "YES")))
+				   (iuplistbox-fill-list lb
+							 (list "COMPLETED" "NOT_STARTED" "RUNNING" "REMOTEHOSTSTART" "KILLED" "KILLREQ")
+							 currstate)
+				   lb))
+				(iup:vbox ;; the status
+				 (iup:label "STATUS:" #:size "30x")
+				 (let ((lb (iup:listbox #:action (lambda (val a b c)
+								   (set! newstatus a))
+							#:editbox "YES"
+							#:value currstatus
+							#:expand "YES")))
+				   (iuplistbox-fill-list lb
+							 (list "PASS" "WARN" "FAIL" "CHECK" "n/a")
+							 currstatus)
+				   lb)))
+			       (iup:hbox (iup:label "Comment:")
+					 (iup:textbox #:action (lambda (val a b)
+								 (set! currcomment b))
+						      #:value currcomment 
+						      #:expand "YES"))
+			       (iup:button "Apply"
+					   #:expand "YES"
+					   #:action (lambda (x)
+						      (test-set-status! *db* run-id testname newstate newstatus itempath currcomment)))
+			       (iup:hbox (iup:button "Apply and close"
+						     #:expand "YES"
+						     #:action (lambda (x)
+								(hash-table-delete! *examine-test-dat* testkey)
+								(test-set-status! *db* run-id testname newstate newstatus itempath currcomment)
+								(iup:destroy! self)))
+					 (iup:button "Cancel and close"
+						     #:expand "YES"
+						     #:action (lambda (x)
+								(hash-table-delete! *examine-test-dat* testkey)
+								(iup:destroy! self))))
+			       )))
+		  (iup:hbox ;; the test steps are tracked here
+		   (let ((stepsdat (iup:label "Test steps ........................................." #:expand "YES")))
+		     (hash-table-set! widgets "Test Steps" stepsdat)
+		     stepsdat)
+		   ))))
+	  (iup:show self)
+	  ))))
+
+(define (colors-similar? color1 color2)
+  (let* ((c1 (map string->number (string-split color1)))
+	 (c2 (map string->number (string-split color2)))
+	 (delta (map (lambda (a b)(abs (- a b))) c1 c2)))
+    (null? (filter (lambda (x)(> x 3)) delta))))
+
+(define (update-rundat runnamepatt numruns testnamepatt itemnamepatt)
+  (let* ((allruns     (db-get-runs *db* runnamepatt numruns *start-run-offset*))
+	 (header      (db:get-header allruns))
+	 (runs        (db:get-rows   allruns))
+	 (result      '())
+	 (maxtests    0))
+    (for-each (lambda (run)
+		(let* ((run-id   (db-get-value-by-header run header "id"))
+		       (tests    (db-get-tests-for-run *db* run-id testnamepatt itemnamepatt))
+		       (key-vals (get-key-vals *db* run-id)))
+		  (if (> (length tests) maxtests)
+		      (set! maxtests (length tests)))
+		  (set! result (cons (vector run tests key-vals) result))))
+	      runs)
+    (set! *header*  header)
+    (set! *allruns* result)
+    maxtests))
+
+(define (update-labels uidat)
+  (let* ((rown    0)
+	 (lftcol (vector-ref uidat 0))
+	 (maxn   (- (vector-length lftcol) 1)))
+    (let loop ((i 0))
+      (iup:attribute-set! (vector-ref lftcol i) "TITLE" "")
+      (if (< i maxn)
+	  (loop (+ i 1))))
+    (for-each (lambda (name)
+		(if (<= rown maxn)
+		    (let ((labl (vector-ref lftcol rown)))
+		      (iup:attribute-set! labl "TITLE" name)))
+		(set! rown (+ 1 rown)))
+	      (if (> (length *alltestnamelst*) *start-test-offset*)
+		  (drop *alltestnamelst* *start-test-offset*)
+		  '())))) ;; *alltestnamelst*))))
+
+(define (update-buttons uidat numruns numtests)
+  (let* ((runs        (if (> (length *allruns*) numruns)
+			  (take-right *allruns* numruns)
+			  (pad-list *allruns* numruns)))
+	 (lftcol      (vector-ref uidat 0))
+	 (tableheader (vector-ref uidat 1))
+	 (table       (vector-ref uidat 2))
+	 (coln        0))
+    (update-labels uidat)
+    (for-each 
+     (lambda (popup)
+       (let* ((test-id  (car popup))
+	      (widgets  (hash-table-ref *examine-test-dat* popup))
+	      (stepslbl (hash-table-ref/default widgets "Test Steps" #f)))
+	 (if stepslbl
+	     (let* ((fmtstr  "~15a~8a~8a~20a")
+		    (newtxt  (string-intersperse 
+			      (append
+			       (list 
+				(format #f fmtstr "Stepname" "State" "Status" "Event Time")
+				(format #f fmtstr "========" "=====" "======" "=========="))
+			       (map (lambda (x)
+				      ;; take advantage of the \n on time->string
+				      (format #f fmtstr
+					      (db:step-get-stepname x)
+					      (db:step-get-state    x)
+					      (db:step-get-status   x)
+					      (time->string 
+					       (seconds->local-time 
+						(db:step-get-event_time x)))))
+				    (db-get-test-steps-for-run *db* test-id)))
+			     "\n")))
+	       (iup:attribute-set! stepslbl "TITLE" newtxt)))))
+     (hash-table-keys *examine-test-dat*))
+    (set! *alltestnamelst* '())
+    (for-each
+     (lambda (rundat)
+       (if (not rundat) ;; handle padded runs
+	   ;;           ;; id run-id testname state status event-time host cpuload diskfree uname rundir item-path run-duration
+	   (set! rundat (vector (make-vector 20 #f) '() (map (lambda (x) "") *keys*))));; 3)))
+       (let* ((run      (vector-ref rundat 0))
+	      (testsdat (vector-ref rundat 1))
+	      (key-val-dat (vector-ref rundat 2))
+	      (run-id   (db-get-value-by-header run *header* "id"))
+	      (testnames (delete-duplicates (append *alltestnamelst* 
+						    (map test:test-get-fullname testsdat)))) ;; (take (pad-list testsdat numtests) numtests))
+	      (key-vals (append key-val-dat
+				(list (let ((x (db-get-value-by-header run *header* "runname")))
+					(if x x "")))))
+	      (run-key  (string-intersperse key-vals "\n")))
+	 ;; (run-ht  (hash-table-ref/default alldat run-key #f)))
+	 ;; fill in the run header key values
+	 (set! *alltestnamelst* testnames)
+	 (let ((rown      0)
+	       (headercol (vector-ref tableheader coln)))
+	   (for-each (lambda (kval)
+		       (let* ((labl      (vector-ref headercol rown)))
+			 (if (not (equal? kval (iup:attribute labl "TITLE")))
+			     (iup:attribute-set! (vector-ref headercol rown) "TITLE" kval))
+			 (set! rown (+ rown 1))))
+		     key-vals))
+
+	 ;; For this run now fill in the buttons for each test
+	 (let ((rown 0)
+	       (columndat  (vector-ref table coln)))
+	   (for-each
+	    (lambda (testname)
+	      (let ((buttondat  (hash-table-ref/default *buttondat* (mkstr coln rown) #f)))
+		(if buttondat
+		    (let* ((test       (let ((matching (filter 
+							(lambda (x)(equal? (test:test-get-fullname x) testname))
+							testsdat)))
+					 (if (null? matching)
+					     (vector -1 -1 "" "" "" 0 "" "" 0 "" "" "" 0 "" "")
+					     (car matching))))
+			   ;; (test       (if real-test real-test
+			   (testname   (db:test-get-testname  test))
+			   (itempath   (db:test-get-item-path test))
+			   (testfullname (test:test-get-fullname test))
+			   (teststatus (db:test-get-status   test))
+			   (teststate  (db:test-get-state    test))
+			   (teststart  (db:test-get-event_time test))
+			   (runtime    (db:test-get-run_duration test))
+			   (buttontxt  (if (equal? teststate "COMPLETED") teststatus teststate))
+			   (button     (vector-ref columndat rown))
+			   (color      (case (string->symbol teststate)
+					 ((COMPLETED)
+					  (if (equal? teststatus "PASS")
+					      "70 249 73"
+					      (if (equal? teststatus "WARN")
+						  "255 172 13"
+						  "223 33 49"))) ;; greenish orangeish redish
+					 ((LAUNCHED)         "101 123 142")
+					 ((CHECK)            "255 100 50")
+					 ((REMOTEHOSTSTART)  "50 130 195")
+					 ((RUNNING)          "9 131 232")
+					 ((KILLREQ)          "39 82 206")
+					 ((KILLED)           "234 101 17")
+					 (else "192 192 192")))
+			   (curr-color (vector-ref buttondat 1)) ;; (iup:attribute button "BGCOLOR"))
+			   (curr-title (vector-ref buttondat 2))) ;; (iup:attribute button "TITLE")))
+		;;       (if (and (equal? teststate "RUNNING")
+		;; 	       (> (- (current-seconds) (+ teststart runtime)) 100)) ;; if test has been dead for more than 100 seconds, call it dead
+			  
+		      (if (not (equal? curr-color color))
+			  (iup:attribute-set! button "BGCOLOR" color))
+		      (if (not (equal? curr-title buttontxt))
+			  (iup:attribute-set! button "TITLE"   buttontxt))
+		      (vector-set! buttondat 0 run-id)
+		      (vector-set! buttondat 1 color)
+		      (vector-set! buttondat 2 buttontxt)
+		      (vector-set! buttondat 3 test)
+		      (vector-set! buttondat 4 run-key)
+		      (if (not (hash-table-ref/default *alltestnames* testfullname #f))
+			  (begin
+			    (hash-table-set! *alltestnames* testfullname #t)
+			    (set! *alltestnamelst* (append *alltestnamelst* (list testfullname))))))
+		    )
+		(set! rown (+ rown 1))))
+	    (let ((xl (if (> (length testnames) *start-test-offset*)
+			  (drop testnames *start-test-offset*)
+			  '()))) ;; testnames)))
+	      (append xl (make-list (- *num-tests* (length xl)) "")))))
+	 (set! coln (+ coln 1))))
+     runs)))
+
+(define (mkstr . x)
+  (string-intersperse (map conc x) ","))
+
+(define (update-search x val)
+  ;; (print "Setting search for " x " to " val)
+  (hash-table-set! *searchpatts* x val))
+
+(define (make-dashboard-buttons nruns ntests keynames)
+  (let* ((nkeys   (length keynames))
+	 (runsvec (make-vector nruns))
+	 (header  (make-vector nruns))
+	 (lftcol  (make-vector ntests))
+	 (controls '())
+	 (lftlst  '())
+	 (hdrlst  '())
+	 (bdylst  '())
+	 (result  '())
+	 (i       0))
+    ;; controls (along bottom)
+    (set! controls
+	  (iup:hbox
+	   (iup:textbox #:size "60x15" #:fontsize "10" #:value "%"
+			#:action (lambda (obj unk val)
+				   (update-search "test-name" val)))
+	   (iup:textbox #:size "60x15" #:fontsize "10" #:value "%"
+			#:action (lambda (obj unk val)
+				   (update-search "item-name" val)))
+	   (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit)))
+	   (iup:button "<-  Left" #:action (lambda (obj)(set! *start-run-offset*  (+ *start-run-offset* 1))))
+	   (iup:button "Up     ^" #:action (lambda (obj)(set! *start-test-offset* (if (> *start-test-offset* 0)(- *start-test-offset* 1) 0))))
+	   (iup:button "Down   v" #:action (lambda (obj)(set! *start-test-offset* (if (>= *start-test-offset* (length *alltestnamelst*))(length *alltestnamelst*)(+ *start-test-offset* 1)))))
+	   (iup:button "Right ->" #:action (lambda (obj)(set! *start-run-offset*  (if (> *start-run-offset* 0)(- *start-run-offset* 1) 0))))))
+    
+    ;; create the left most column for the run key names and the test names 
+    (set! lftlst (list (apply iup:vbox 
+			      (map (lambda (x)		
+				     (let ((res (iup:hbox
+						 (iup:label x #:size "40x15" #:fontsize "10") ;;  #:expand "HORIZONTAL")
+						 (iup:textbox #:size "60x15" #:fontsize "10" #:value "%" ;; #:expand "HORIZONTAL"
+							      #:action (lambda (obj unk val)
+									 (update-search x val))))))
+				       (set! i (+ i 1))
+				       res))
+				   keynames))))
+    (let loop ((testnum  0)
+	       (res      '()))
+      (cond
+       ((>= testnum ntests)
+	;; now lftlst will be an hbox with the test keys and the test name labels
+	(set! lftlst (append lftlst (list (apply iup:vbox (reverse res))))))
+       (else
+	(let ((labl  (iup:button "" #:flat "YES" #:size "100x15" #:fontsize "10")))
+	  (vector-set! lftcol testnum labl)
+	  (loop (+ testnum 1)(cons labl res))))))
+    ;; 
+    (let loop ((runnum  0)
+	       (keynum  0)
+	       (keyvec  (make-vector nkeys))
+	       (res    '()))
+      (cond ;; nb// no else for this approach.
+       ((>= runnum nruns) #f)
+       ((>= keynum nkeys) 
+	(vector-set! header runnum keyvec)
+	(set! hdrlst (cons (apply iup:vbox (reverse res)) hdrlst))
+	(loop (+ runnum 1) 0 (make-vector nkeys) '()))
+       (else
+	(let ((labl  (iup:label "" #:size "60x15" #:fontsize "10" ;; #:expand "HORIZONTAL"
+				)))
+	  (vector-set! keyvec keynum labl)
+	  (loop runnum (+ keynum 1) keyvec (cons labl res))))))
+    ;; By here the hdrlst contains a list of vboxes containing nkeys labels
+    (let loop ((runnum  0)
+	       (testnum 0)
+	       (testvec  (make-vector ntests))
+	       (res    '()))
+      (cond
+       ((>= runnum nruns) #f) ;;  (vector tableheader runsvec))
+       ((>= testnum ntests) 
+	(vector-set! runsvec runnum testvec)
+	(set! bdylst (cons (apply iup:vbox (reverse res)) bdylst))
+	(loop (+ runnum 1) 0 (make-vector ntests) '()))
+       (else
+	(let* ((button-key (mkstr runnum testnum))
+	       (butn       (iup:button "" ;; button-key 
+				       #:size "60x15" 
+				       ;; #:expand "HORIZONTAL"
+				       #:fontsize "10" 
+				       #:action (lambda (x)
+						  (examine-test button-key)))))
+	  (hash-table-set! *buttondat* button-key (vector 0 "100 100 100" button-key #f #f)) 
+	  (vector-set! testvec testnum butn)
+	  (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 lftcol header runsvec)))
+
+(if (or (args:get-arg "-rows")
+	(get-environment-variable "DASHBOARDROWS" ))
+    (begin
+        (set! *num-tests* (string->number (or (args:get-arg "-rows")
+					      (get-environment-variable "DASHBOARDROWS"))))
+	(update-rundat "%" *num-runs* "%" "%"))
+    (set! *num-tests* (min (max (update-rundat "%" *num-runs* "%" "%") 8) 20)))
+
+(set! uidat (make-dashboard-buttons *num-runs* *num-tests* dbkeys))
+;; (megatest-dashboard)
+
+(define (run-update other-thread mtx)
+  (let loop ((i 0))
+    (mutex-lock! mtx)   ;; (thread-suspend! other-thread)
+    (update-buttons uidat *num-runs* *num-tests*)
+    (mutex-unlock! mtx) ;; (thread-resume! other-thread)
+    ;; (thread-sleep! 0.1)
+    ;; (thread-suspend! other-thread)
+    (update-rundat (hash-table-ref/default *searchpatts* "runname" "%") *num-runs*
+		   (hash-table-ref/default *searchpatts* "test-name" "%")
+		   (hash-table-ref/default *searchpatts* "item-name" "%"))
+    (thread-resume! other-thread)
+    (thread-sleep! 0.1)
+    (loop (+ i 1))))
+
+(define mtx (make-mutex))
+(define th2 (make-thread iup:main-loop))
+(define th1 (make-thread (run-update th2 mtx)))
+(thread-start! th1)
+(thread-start! th2)
+(thread-join! th2)

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -69,11 +69,11 @@
 		   (set! bestsize freespc)))))
 	 (map car disks)))
     best))
 
 (define (create-work-area db run-id test-path disk-path testname itemdat)
-  (let* ((run-info (db-get-run-info db run-id))
+  (let* ((run-info (db:get-run-info db run-id))
 	 (item-path (let ((ip (item-list->path itemdat)))
 		      (if (equal? ip "") "" (conc "/" ip))))
 	 (runname  (db-get-value-by-header (db:get-row run-info)
 					   (db:get-header run-info)
 					   "runname"))

Index: tests/megatest.config
==================================================================
--- tests/megatest.config
+++ tests/megatest.config
@@ -3,11 +3,11 @@
 fsname TEXT
 datapath TEXT
 
 [setup]
 # exectutable /path/to/megatest
-max_concurrent_jobs 4
+# max_concurrent_jobs 4
 runsdir /tmp/runs
 
 [jobtools]
 # ## launcher launches jobs, the job is managed on the target host
 ## by megatest, comment out launcher to run local

Index: tests/tests/runfirst/testconfig
==================================================================
--- tests/tests/runfirst/testconfig
+++ tests/tests/runfirst/testconfig
@@ -1,12 +1,8 @@
 [setup]
 runscript main.sh
 
-[requirements]
-diskspace 1M
-memory    1G
-
 [pre-launch-env-vars]
 # These are set before the test is launched on the originating
 # host. This can be used to control remote launch tools, e.g. to
 # to choose the target host, select the launch tool etc.
 SPECIAL_ENV_VAR override with everything after the first space.

Index: tests/tests/sqlitespeed/testconfig
==================================================================
--- tests/tests/sqlitespeed/testconfig
+++ tests/tests/sqlitespeed/testconfig
@@ -3,9 +3,7 @@
 
 [requirements]
 waiton    runfirst
 
 [items]
-MANYITEMS [system (env > envfile.txt;ls)]
-# a b c d e f g h i j k l m
-# LSJUNK [system ls]
+MANYITEMS [system (env > envfile.txt;echo aa ab ac ad ae af ag ah ai aj ak al am an ao ap aq ar as at au)]