Commit 27c575ff authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

Fix ask for save:Yes being ignored bug

parent 0588974c
...@@ -377,7 +377,7 @@ where ...@@ -377,7 +377,7 @@ where
] // not this one but continue with rest ] // not this one but continue with rest
:+: ButtonControl "Yes" :+: ButtonControl "Yes"
[ ControlId okId [ ControlId okId
, ControlFunction (\(ls,ps)->(Cancel,closeWindow sId ps)) , ControlFunction (\(ls,ps)->(Yes,closeWindow sId ps))
, ControlWidth buttonWidth , ControlWidth buttonWidth
] // do this one and continue ] // do this one and continue
) )
......
Supports Markdown
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