Commit dc8fbb0c authored by Peter Achten's avatar Peter Achten

update with most recent version (viewInformation without label, extended onclick function)

parent b532c70c
Pipeline #31231 failed with stage
in 1 minute and 24 seconds
......@@ -5,7 +5,6 @@ module IncrementingSequence
import iTasks.Engine
import iTasks.WF.Tasks.Interaction
import iTasks.UI.Prompt
import iTasks.Extensions.SVG.SVGEditor
import StdEnum, StdFunctions, StdList, StdReal
......@@ -14,7 +13,7 @@ none = toSVGColor "none"
Start :: *World -> *World
Start world
= doTasks (viewInformation "IncrementingSequence" [ViewUsing id (fromSVGEditor
= doTasks (viewInformation [ViewUsing id (fromSVGEditor
{ initView = id
, renderImage = const sequence
, updModel = \_ v = v
......@@ -35,7 +34,7 @@ sequence n tags
]
) host
// ) <@< {onclick=((*) 2),local=False}
) <@< {onclick=((+) c),local=True}
) <@< {onclick = \_ n = c+n,local=True}
where
c = 100
r = px 6
......
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