Commit ba41babe authored by Diederik van Arkel's avatar Diederik van Arkel

bugfix: wrong env was selected in envs-menu after edit-list...;

parent 69395696
......@@ -216,8 +216,10 @@ where
= newNameDialog target.target_name (copycont sel target lbId) (targets,ps)
copycont sel target lbId target_name (targets,ps)
# target = {target & target_name = target_name}
# targets = insertAt (sel-1) target targets
# ps = openExtListBoxItems lbId sel [toItem target] ps
// # targets = insertAt (sel-1) target targets
// # ps = openExtListBoxItems lbId sel [toItem target] ps
# targets = insertAt sel target targets
# ps = openExtListBoxItems lbId (sel+1) [toItem target] ps
= (targets,ps)
renamefun lbId dId (targets,ps)
# ((ok,sel),ps) = getExtListBoxSelection lbId ps
......@@ -244,6 +246,7 @@ where
]) ps
# ps = setTargets targets ps
# ps = selectProjectTarget getTargets ps
# ps = closeWindow dId ps
= (targets,ps)
cancelfun dId 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