changed labels in dialog

Ide/targetui.icl

@@ -137,30 +137,37 @@ where
 							,ControlWidth (ContentWidth "Move Down")
 							,ControlPos (BelowPrev,zero)
 							]
-						:+: ButtonControl "Up"
-							[ControlFunction (lbUp lbId)
-							,ControlPos (BelowPrev,zero)
-							]
-						:+: ButtonControl "Dn"
-							[ControlFunction (lbDn lbId)
-							,ControlPos (BelowPrev,zero)
-							]
+						:+: ButtonControl "Move Up"
+							[ControlFunction (upfun lbId)
+							,ControlWidth (ContentWidth "Move Down")
+							,ControlPos (BelowPrev,zero)]
+						:+: ButtonControl "Move Down"
+							[ControlFunction (dnfun lbId)
+							,ControlWidth (ContentWidth "Move Down")
+							,ControlPos (BelowPrev,zero)]
 						:+:	ButtonControl "OK"
 							[ ControlPos (Right,zero)
 							, ControlFunction (okfun lbId dId (length targets))
 							, ControlWidth (ContentWidth "Cancel")
 							, ControlId okId
 							]
-		# datt			= [WindowId dId,WindowOk okId, WindowClose ( (okfun lbId dId (length targets)))]
+						:+:	ButtonControl "Cancel"
+							[ControlPos (LeftOfPrev,zero)
+							,ControlFunction (noLS (cancelfun dId))
+							,ControlId cancelId
+							]
+		# datt			= [WindowId dId,WindowOk okId, WindowCancel cancelId,WindowClose (noLS (cancelfun dId))]
 		# (_,ps)		= openModalDialog targets (Dialog "Edit Environments List" ddef datt) ps
 		= ps
 	where
-		lbUp lbId (ls,ps)
-			# (_,(ls,ps)) = upSelItem lbId (ls,ps)
-			= (ls,ps)
-		lbDn lbId (ls,ps)
-			# (_,(ls,ps)) = dnSelItem lbId (ls,ps)
-			= (ls,ps)
+		upfun lbId (targets,ps)
+			# (_,(targets,ps)) = upSelItem lbId (targets,ps)
+			// adjust radio menu...
+			= (targets,ps)
+		dnfun lbId (targets,ps)
+			# (_,(targets,ps)) = dnSelItem lbId (targets,ps)
+			// adjust radio menu...
+			= (targets,ps)
 		toItem {target_name} = (target_name,id,id)
 		editfun` lbId dId (targets,ps)
 			# ((ok,sel),ps)	= getExtListBoxSelection lbId ps
@@ -239,6 +246,8 @@ where
 			# ps			= setTargets targets ps
 			# ps			= closeWindow dId ps
 			= (targets,ps)
+		cancelfun dId ps
+			= closeWindow dId ps
 	addtfun (ls,ps)
 		= newNameDialog "new environment" cont (ls,ps)
 	where
@@ -352,7 +361,7 @@ where
 	cancelfun windId (_,ps)
 //		#! ps = trace_n` ("cancel") ps
 		= (Nothing,closeWindow windId ps)
-//import dodebug
+
 //--
 
 setCurrentTarget` t ps