@@ -26,10 +26,11 @@
 (declare (uses configf))
 (declare (uses process))
 (declare (uses launch))
 (declare (uses runs))
 (declare (uses dashboard-tests))
+(declare (uses dashboard-guimonitor))
 (declare (uses megatest-version))
 
 (include "common_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
@@ -39,12 +40,12 @@
   version " megatest-version "
   license GPL, Copyright (C) Matt Welland 2011
 
 Usage: dashboard [options]
   -h              : this help
-  -run runid      : control run identified by runid
   -test testid    : control test identified by testid
+  -guimonitor     : control panel for runs
 
 Misc
   -rows N         : set number of rows
 "))
 
@@ -55,10 +56,11 @@
 			"-run"
 			"-test"
 			"-debug"
 			) 
 		 (list  "-h"
+			"-guimonitor"
 			"-v"
 			"-q"
 		       )
 		 args:arg-hash
 		 0))
@@ -459,10 +461,11 @@
 			   #:action (lambda (obj unk val)
 				      (set! *last-db-update-time* 0)
 				      (update-search "item-name" val)))))
 	    (iup:hbox
 	     (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit)))
+	     (iup:button "Monitor" #:action (lambda (obj)(system (conc (car (argv))" -guimonitor &"))))
 	     ))
 	   ;; (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))))
@@ -658,14 +661,16 @@
     (if testid
 	(examine-test *db* testid)
 	(begin
 	  (print "ERROR: testid is not a number " (args:get-arg "-test"))
 	  (exit 1)))))
+ ((args:get-arg "-guimonitor")
+  (gui-monitor *db*))
  (else
   (set! uidat (make-dashboard-buttons *num-runs* *num-tests* *dbkeys*))
   (iup:callback-set! *tim*
 		     "ACTION_CB"
 		     (lambda (x)
 		       (run-update x)))))
 		       ;(print x)))))
 
 (iup:main-loop)