Commit 0c063c67 authored by Diederik van Arkel's avatar Diederik van Arkel

changed labels in dialog

parent eb84251e
...@@ -137,30 +137,37 @@ where ...@@ -137,30 +137,37 @@ where
,ControlWidth (ContentWidth "Move Down") ,ControlWidth (ContentWidth "Move Down")
,ControlPos (BelowPrev,zero) ,ControlPos (BelowPrev,zero)
] ]
:+: ButtonControl "Up" :+: ButtonControl "Move Up"
[ControlFunction (lbUp lbId) [ControlFunction (upfun lbId)
,ControlPos (BelowPrev,zero) ,ControlWidth (ContentWidth "Move Down")
] ,ControlPos (BelowPrev,zero)]
:+: ButtonControl "Dn" :+: ButtonControl "Move Down"
[ControlFunction (lbDn lbId) [ControlFunction (dnfun lbId)
,ControlPos (BelowPrev,zero) ,ControlWidth (ContentWidth "Move Down")
] ,ControlPos (BelowPrev,zero)]
:+: ButtonControl "OK" :+: ButtonControl "OK"
[ ControlPos (Right,zero) [ ControlPos (Right,zero)
, ControlFunction (okfun lbId dId (length targets)) , ControlFunction (okfun lbId dId (length targets))
, ControlWidth (ContentWidth "Cancel") , ControlWidth (ContentWidth "Cancel")
, ControlId okId , 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) = openModalDialog targets (Dialog "Edit Environments List" ddef datt) ps
= ps = ps
where where
lbUp lbId (ls,ps) upfun lbId (targets,ps)
# (_,(ls,ps)) = upSelItem lbId (ls,ps) # (_,(targets,ps)) = upSelItem lbId (targets,ps)
= (ls,ps) // adjust radio menu...
lbDn lbId (ls,ps) = (targets,ps)
# (_,(ls,ps)) = dnSelItem lbId (ls,ps) dnfun lbId (targets,ps)
= (ls,ps) # (_,(targets,ps)) = dnSelItem lbId (targets,ps)
// adjust radio menu...
= (targets,ps)
toItem {target_name} = (target_name,id,id) toItem {target_name} = (target_name,id,id)
editfun` lbId dId (targets,ps) editfun` lbId dId (targets,ps)
# ((ok,sel),ps) = getExtListBoxSelection lbId ps # ((ok,sel),ps) = getExtListBoxSelection lbId ps
...@@ -239,6 +246,8 @@ where ...@@ -239,6 +246,8 @@ where
# ps = setTargets targets ps # ps = setTargets targets ps
# ps = closeWindow dId ps # ps = closeWindow dId ps
= (targets,ps) = (targets,ps)
cancelfun dId ps
= closeWindow dId ps
addtfun (ls,ps) addtfun (ls,ps)
= newNameDialog "new environment" cont (ls,ps) = newNameDialog "new environment" cont (ls,ps)
where where
...@@ -352,7 +361,7 @@ where ...@@ -352,7 +361,7 @@ where
cancelfun windId (_,ps) cancelfun windId (_,ps)
// #! ps = trace_n` ("cancel") ps // #! ps = trace_n` ("cancel") ps
= (Nothing,closeWindow windId ps) = (Nothing,closeWindow windId ps)
//import dodebug
//-- //--
setCurrentTarget` t ps setCurrentTarget` t ps
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment