Commit 81322d4c authored by Mart Lubbers's avatar Mart Lubbers

Merge branch 'fixInteract' into 'master'

fix UI changes generated by interact: the adaption of the UI change is not...

See merge request !304
parents bafd6c78 1858f9ff
Pipeline #28987 passed with stage
in 4 minutes and 31 seconds
......@@ -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, v, mbf) = handlers.InteractionHandlers.onEdit nv l v
......@@ -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