Merged popup_menu into v1.61

Author: mrwellan

dashboard-tests.scm

@@ -601,7 +601,7 @@
 			     command-text-box "VALUE"
 			     (conc "megatest -target " keystring " -runname "  runname 
 				   " -set-state-status KILLREQ,n/a -testpatt %/% "
-				   " -state RUNNING"))))
+				   " -state RUNNING,REMOTEHOSTSTART,LAUNCHED"))))
 	       (run-test  (lambda (x)
 			    (iup:attribute-set! 
 			     command-text-box "VALUE"

dashboard.scm

@@ -2082,12 +2082,22 @@ Misc
       (conc "Rerun " testpatt)
       #:action
       (lambda (obj)
+        ;;(print "buttndat: " buttndat " run-id: " run-id " test-id: " test-id " target: " target " runname: " runname " test-name: " test-name " testpatt: " testpatt)
 	(common:run-a-command
 	 (conc "megatest -run -target " target
 	       " -runname " runname
 	       " -testpatt " testpatt
 	       " -preclean -clean-cache")
-	 )))))
+	 )))
+     (iup:menu-item
+      "Rerun Complete Run"
+      #:action
+      (lambda (obj)
+        (common:run-a-command
+         (conc "megatest -set-state-status NOT_STARTED,n/a -run -target " target
+               " -runname " runname
+               " -testpatt % "
+               " -preclean -clean-cache"))))))
    (iup:menu-item
     "Test"
     (iup:menu 
@@ -2096,16 +2106,35 @@ Misc
       #:action
       (lambda (obj)
 	(common:run-a-command
-	 (conc "megatest -run -target " target
-	       " -runname " runname
+	 (conc "megatest -set-state-status NOT_STARTED,n/a -run -target " target
+               " -runname " runname
 	       " -testpatt " test-name
 	       " -preclean -clean-cache"))))
+     (iup:menu-item
+      (conc "Kill " test-name)
+      #:action
+      (lambda (obj)
+        ;; (rmt:test-set-state-status-by-id run-id test-id "KILLREQ" #f #f)
+	(common:run-a-command
+	 (conc "megatest -set-state-status KILLREQ,n/a -target " target
+               " -runname " runname
+	       " -testpatt " test-name
+	       " -state RUNNING,REMOTEHOSTSTART,LAUNCHED"))))
+     (iup:menu-item
+      (conc "Clean " test-name)
+      #:action
+      (lambda (obj)
+	(common:run-a-command
+	 (conc "megatest -remove-runs -target " target
+               " -runname " runname
+	       " -testpatt " test-name))))
      (iup:menu-item
       "Start xterm"
       #:action
       (lambda (obj)
-	(let* ((cmd (conc (car (argv)) " -xterm " run-id "," test-id "&")))
-	  (system cmd))))
+        (dcommon:examine-xterm run-id test-id)))
+	;;(let* ((cmd (conc (car (argv)) " -xterm " run-id "," test-id "&")))
+	;; (system cmd))))
      (iup:menu-item
       "Edit testconfig"
       #:action