@@ -69,11 +69,18 @@
 						(tasks:add-from-params tdb "run" keys key-params var-params)
 						(print "Launch Run")))
 			 (iup:button "Remove" 
 				     #:expand "HORIZONTAL"
 				     #:action (lambda (obj)
-						(print "Remove Run")))))
+						(print "Remove Run")
+						(tasks:add-from-params tdb "remove" keys key-params var-params)
+						))
+			 (iup:button "Rollup" 
+				     #:expand "HORIZONTAL"
+				     #:action (lambda (obj)
+						(print "Rollup Run")
+						(tasks:add-from-params tdb "rollup" keys key-params var-params)))))
 		       (iup:frame 
 			#:title "Misc"
 			(iup:hbox
 			 (iup:button "Quit" 
 				     #:expand "HORIZONTAL"
@@ -126,22 +133,23 @@
 		     #:title "Run Controls"
 		     (iup:vbox
 		      (iup:hbox keyentries othervars)
 		      controls
 		      (let ((tabtop (iup:tabs 
-				     monitors
 				     (iup:vbox 
 				       (let* ((tb (iup:textbox #:expand "HORIZONTAL"))
 					      (bt (iup:button "Remove tasks by id"
 							      #:action (lambda (obj)
 									 (let ((val (iup:attribute tb "VALUE")))
 									   (tasks:remove-queue-entries tdb val)))))
 					      (lb (iup:label "(comma separated)")))
 					 (iup:hbox bt tb lb))
-				      actions))))
-			(iup:attribute-set! tabtop "TABTITLE0" "Monitors")
-			(iup:attribute-set! tabtop "TABTITLE1" "Actions")
+				       actions)
+				     monitors
+				     )))
+			(iup:attribute-set! tabtop "TABTITLE0" "Actions")
+			(iup:attribute-set! tabtop "TABTITLE1" "Monitors")
 			tabtop)
 		      )))
 		      ; (iup:frame
 		      ;  #:title "Monitors"
 		      ;  monitors)