Megatest

							      #:action
							      (lambda (obj)
								(common:run-a-command
								 (conc "megatest -run -target " target
								       " -runname " runname
								       " -testpatt " testpatt
								       " -preclean -clean-cache")
								 ;; (print "Rerun")
								 )))))
							   (iup:menu-item
							    "Test"
							    (iup:menu 
							     (iup:menu-item
							      (conc "Rerun " test-name)
							      #:action
							      (lambda (obj)
								(common:run-a-command
								 (conc "megatest -run -target " target
								       " -runname " runname
								       " -testpatt " test-name
								       " -preclean -clean-cache"))))
							     (iup:menu-item
							      "Start xterm"
							      #:action
							      (lambda (obj)
								(let* ((cmd (conc toolpath " -xterm " run-id "," test-id "&")))
								  (system cmd))))
							     (iup:menu-item
							      "Edit testconfig"