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

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

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