@@ -49,10 +49,11 @@
 
 Usage: dashboard [options]
   -h                   : this help
   -server host:port    : connect to host:port instead of db access
   -test run-id,test-id : control test identified by testid
+  -xterm run-id,test-id : Start a new xterm with specified run-id and test-id
   -guimonitor          : control panel for runs
 
 Misc
   -rows N         : set number of rows
 "))
@@ -61,10 +62,11 @@
 (define remargs (args:get-args 
 		 (argv)
 		 (list  "-rows"
 			"-run"
 			"-test"
+                        "-xterm"
 			"-debug"
 			"-host" 
 			"-transport"
 			) 
 		 (list  "-h"
@@ -1752,20 +1754,65 @@
        (else
 	(let* ((button-key (mkstr runnum testnum))
 	       (butn       (iup:button "" ;; button-key 
 				       #:size "60x15" 
 				       #:expand "HORIZONTAL"
-				       #:fontsize "10" 
-				       #:action (lambda (x)
-						  (let* ((toolpath (car (argv)))
-							 (buttndat (hash-table-ref (d:alldat-buttondat *alldat*) button-key))
-							 (test-id  (db:test-get-id (vector-ref buttndat 3)))
-							 (run-id   (db:test-get-run_id (vector-ref buttndat 3)))
-							 (cmd  (conc toolpath " -test " run-id "," test-id "&")))
-					;(print "Launching " cmd)
-						    (system cmd))))))
-	  (hash-table-set! (d:alldat-buttondat *alldat*) button-key (vector 0 "100 100 100" button-key #f #f)) 
+				       #:fontsize "10"
+				       ;; :action (lambda (x)
+				       ;; 	  (let* ((toolpath (car (argv)))
+				       ;; 		 (buttndat (hash-table-ref (d:alldat-buttondat *alldat*) button-key))
+				       ;; 		 (test-id  (db:test-get-id (vector-ref buttndat 3)))
+				       ;; 		 (run-id   (db:test-get-run_id (vector-ref buttndat 3)))
+				       ;; 		 (cmd  (conc toolpath " -test " run-id "," test-id "&")))
+				       ;; ;(print "Launching " cmd)
+				       ;; 	    (system cmd)))
+                                       #:button-cb (lambda (obj a pressed x y btn . rem)
+                                                     (print "pressed= " pressed " x= " x " y= " y " rem=" rem " btn=" btn " string? " (string? btn))
+                                                     (if  (substring-index "3" btn)
+                                                         (if (eq? pressed 0)
+                                                             (let ((popup-menu (iup:menu 
+                                                                                (iup:menu-item
+                                                                                 "Run"
+                                                                                 (iup:menu              
+                                                                                  (iup:menu-item
+                                                                                   "Rerun"
+                                                                                   #:action
+                                                                                   (lambda (obj)(print "Rerun")))
+                                                                                  (iup:menu-item
+                                                                                   "Start xterm"
+                                                                                   #:action
+                                                                                   (let* ((toolpath (car (argv)))
+                                                                                          (buttndat (hash-table-ref (d:alldat-buttondat *alldat*) button-key))
+                                                                                          (test-id  (db:test-get-id (vector-ref buttndat 3)))
+                                                                                          (run-id   (db:test-get-run_id (vector-ref buttndat 3)))
+                                                                                          (cmd  (conc toolpath " -xterm " run-id "," test-id "&")))
+                                                                                     (system cmd))
+                                                                                   ;; (lambda (x)
+                                                                                   ;;            (if (directory-exists? rundir)
+                                                                                   ;;                (let ((shell (if (get-environment-variable "SHELL") 
+                                                                                   ;;                                 (conc "-e " (get-environment-variable "SHELL"))
+                                                                                   ;;                                 "")))
+                                                                                   ;;                  (common:without-vars
+                                                                                   ;;                   (conc "cd " rundir 
+                                                                                   ;;                         ";mt_xterm -T \"" (string-translate testfullname "()" "  ") "\" " shell "&")
+                                                                                   ;;                   "MT_.*"))
+                                                                                   ;;                (message-window  (conc "Directory " rundir " not found"))))
+                                                                                   ))))))
+                                                               (iup:show popup-menu
+                                                                         #:x 'mouse
+                                                                         #:y 'mouse
+                                                                         #:modal? "NO")
+                                                               (print "got here")))
+                                                         (if (eq? pressed 0)
+                                                             (let* ((toolpath (car (argv)))
+                                                                    (buttndat (hash-table-ref (d:alldat-buttondat *alldat*) button-key))
+                                                                    (test-id  (db:test-get-id (vector-ref buttndat 3)))
+                                                                    (run-id   (db:test-get-run_id (vector-ref buttndat 3)))
+                                                                    (cmd  (conc toolpath " -test " run-id "," test-id "&")))
+                                                               (system cmd)))
+                                                         )))))
+          (hash-table-set! (d:alldat-buttondat *alldat*) 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 
@@ -1932,10 +1979,24 @@
 		 (>= test-id 0))
 	    (examine-test run-id test-id)
 	    (begin
 	      (debug:print 3 "INFO: tried to open test with invalid run-id,test-id. " (args:get-arg "-test"))
 	      (exit 1)))))
+     ((args:get-arg "-xterm") ;; run-id,test-id
+      (let* ((dat     (let ((d (map string->number (string-split (args:get-arg "-xterm") ","))))
+			(if (> (length d) 1)
+			    d
+			    (list #f #f))))
+	     (run-id  (car dat))
+	     (test-id (cadr dat)))
+	(if (and (number? run-id)
+		 (number? test-id)
+		 (>= test-id 0))
+	    (dcommon:examine-xterm run-id test-id)
+	    (begin
+	      (debug:print 3 "INFO: tried to open xterm with invalid run-id,test-id. " (args:get-arg "-xterm"))
+	      (exit 1)))))
      ((args:get-arg "-guimonitor")
       (gui-monitor (d:alldat-dblocal data)))
      (else
       (set! uidat (make-dashboard-buttons data ;; (d:alldat-dblocal data)
 					  (d:alldat-numruns data)