make the box with the paths of the environment larger

Ide/targetui.icl

@@ -421,16 +421,23 @@ envDialog ap pp ts ct getTs setTs ps
 	# (r2id,ps) = openId ps
 	# (r3id,ps) = openId ps
 	# (r4id,ps) = openId ps
-	# (siz,ps)	= controlSize (LayoutControl
-					(	ButtonControl "Append..." [ControlWidth buttonWidth]
-					:+: ButtonControl "Remove" [ControlPos (Left,zero),ControlWidth buttonWidth]
-					)
-					[ ControlPos (Left,zero)
-					, ControlHMargin 0 0
-					, ControlVMargin 0 0
-					])
-					True
-					Nothing Nothing Nothing ps
+	# layout_control_attributes = [ControlPos (Left,zero), ControlHMargin 0 0, ControlVMargin 0 0]
+	# append_button = ButtonControl "Append..." [ControlWidth buttonWidth]
+	# remove_button = ButtonControl "Remove" [ControlPos (Left,zero),ControlWidth buttonWidth]
+	# (siz,ps) = controlSize (LayoutControl
+								(	append_button
+								:+: remove_button
+								)
+								layout_control_attributes)
+					True Nothing Nothing Nothing ps
+	# (path_size,ps) = controlSize (LayoutControl
+									(	append_button
+									:+: remove_button
+									:+:	ButtonControl "Up" [ControlPos (Left,zero)]
+									:+:	ButtonControl "Dn" [ControlPos (Left,zero)]
+									)
+									layout_control_attributes)
+					True Nothing Nothing Nothing ps
 	# (lbobjId,ps) = openExtListBoxId ps
 	# (lbobj) = ExtListBoxControl
 	  				(zip3(StrictListToList(FullPaths inifull ap pp tg.target_objs))(repeat id)(repeat id))
@@ -487,7 +494,7 @@ envDialog ap pp ts ct getTs setTs ps
 		, lblibId	= lblibId
 		}
 	# (_,ps) = openModalDialog iniLS
-				(ddef wid okId cancelId lbobj lbobjId lblib lblibId (siz.Size.h) lbpadId lbsll
+				(ddef wid okId cancelId lbobj lbobjId lblib lblibId (path_size.Size.h) lbpadId lbsll
 				 lbsllId siz compId cgenId linkId dynlId versId methId c1id c2id c3id c4id
 				 r1id r2id r3id r4id
 				) ps