Commit 34825c0c authored by Steffen Michels's avatar Steffen Michels

Merge branch 'add-interact-class-on-ui-replace' into 'master'

Fixed ui class in `interactRW` UI updates.

See merge request !538
parents aa867c7d aa6cc5fc
Pipeline #48507 passed with stages
in 9 minutes and 30 seconds
......@@ -181,6 +181,9 @@ evalInteract prevChange mbr (?Just st) editorId sds editor modefun writefun even
= case mbChange of
(Ok (change, st, mbw), editorId, iworld)
# change = mergeUIChanges prevChange change
# change = case change of
ReplaceUI (UI type attr items) = ReplaceUI (UI type (addClassAttr "interact" attr) items)
_ = change
= case mbw of
?Just w = writefun w sds NoValue
(evalInteract change mbr (?Just st) editorId sds editor modefun 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