Commit 5878d497 authored by Bas Lijnse's avatar Bas Lijnse

Merge branch 'ui-reorg' of gitlab.science.ru.nl:clean-and-itasks/iTasks-SDK into ui-reorg

parents 5b2faffc f87f25ee
...@@ -123,7 +123,7 @@ svgRenderer svglet=:{initView,renderImage,updView,updModel} ...@@ -123,7 +123,7 @@ svgRenderer svglet=:{initView,renderImage,updView,updModel}
onNewState :: !(JSVal a) !(SVGEditor s v) !s !*JSWorld -> *JSWorld | JSONEncode{|*|} s onNewState :: !(JSVal a) !(SVGEditor s v) !s !*JSWorld -> *JSWorld | JSONEncode{|*|} s
onNewState me svglet=:{initView,renderImage} s world onNewState me svglet=:{initView,renderImage} s world
#! cid = "FIXME: SOME UNIQUE STRING" #! cid = "FIXME_SOME_UNIQUE_STRING"
#! v = initView s #! v = initView s
#! world = jsPutCleanVal "view" v me world //Store the view value on the component #! world = jsPutCleanVal "view" v me world //Store the view value on the component
#! world = jsPutCleanVal "model" s me world //Store the model value on the component #! world = jsPutCleanVal "model" s me world //Store the model value on the component
......
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