Commit ff1fa23b authored by Steffen Michels's avatar Steffen Michels

Merge remote-tracking branch 'origin/fixInteract' into...

Merge remote-tracking branch 'origin/fixInteract' into 253-editsharedselectionwithshared-not-working-as-intended
parents 662b7af2 1858f9ff
......@@ -107,7 +107,6 @@ evalInteract l v st mode sds handlers editor writefun event=:(EditEvent eTaskId
# (res, iworld) = withVSt taskId (editor.Editor.onEdit [] (s2dp name,edit) st) iworld
= case res of
Ok (change, st)
# change = case change of NoChange = NoChange; _ = ChangeUI [] [(1,ChangeChild change)]
= case editor.Editor.valueFromState st of
Just nv
# (l, mbf) = handlers.InteractionHandlers.onEdit nv l
......@@ -167,7 +166,6 @@ evalInteract l v st mode sds handlers editor writefun event=:(RefreshEvent taskI
= case withVSt taskId (editor.Editor.onRefresh [] v st) iworld of
(Error e, iworld) = (ExceptionResult (exception e), iworld)
(Ok (change, st), iworld)
# change = case change of NoChange = NoChange; _ = ChangeUI [] [(1,ChangeChild change)]
= case mbf of
Just f = writefun f sds NoValue (\_->change)
(\_->evalInteract l (Just v) st mode sds handlers editor writefun)
......
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