Commit ebacf156 authored by Bas Lijnse's avatar Bas Lijnse

Fixed event processing in svglet

parent c42db611
......@@ -116,7 +116,10 @@ svgRenderer svglet=:{initView,renderImage,updView,updModel}
onRefresh _ new old mask vst
= (Ok (if (old === new) NoChange (ChangeUI [SetAttribute "stateChange" (toJSON new)] []),mask),new,vst)
onEdit _ _ st m ust = (Ok (NoChange,m),st,ust)
onEdit _ (_,json) st m ust
= case fromJSON json of
Just nst = (Ok (NoChange,m),nst,ust)
Nothing = (Ok (NoChange,m),st,ust)
onNewState :: !(JSVal a) !(SVGLet s v) !s !*JSWorld -> *JSWorld | JSONEncode{|*|} s
onNewState me svglet=:{initView,renderImage} s world
......
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