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 ...@@ -5,7 +5,6 @@ module IncrementingSequence
import iTasks.Engine import iTasks.Engine
import iTasks.WF.Tasks.Interaction import iTasks.WF.Tasks.Interaction
import iTasks.UI.Prompt
import iTasks.Extensions.SVG.SVGEditor import iTasks.Extensions.SVG.SVGEditor
import StdEnum, StdFunctions, StdList, StdReal import StdEnum, StdFunctions, StdList, StdReal
...@@ -14,11 +13,11 @@ none = toSVGColor "none" ...@@ -14,11 +13,11 @@ none = toSVGColor "none"
Start :: *World -> *World Start :: *World -> *World
Start world Start world
= doTasks (viewInformation "IncrementingSequence" [ViewUsing id (fromSVGEditor = doTasks (viewInformation [ViewUsing id (fromSVGEditor
{ initView = id { initView = id
, renderImage = const sequence , renderImage = const sequence
, updModel = \_ v = v , updModel = \_ v = v
})] 1) world })] 1) world
/** sequence model tags = image: /** sequence model tags = image:
@image shows a grid of circles, initially just 1. @image shows a grid of circles, initially just 1.
...@@ -35,7 +34,7 @@ sequence n tags ...@@ -35,7 +34,7 @@ sequence n tags
] ]
) host ) host
// ) <@< {onclick=((*) 2),local=False} // ) <@< {onclick=((*) 2),local=False}
) <@< {onclick=((+) c),local=True} ) <@< {onclick = \_ n = c+n,local=True}
where where
c = 100 c = 100
r = px 6 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