3 import Data.Func, StdFunctions, iTasks
5 derive gDefault ChoiceNode
7 Start w = flip startEngine w $
8 withShared 5 \sharedInt->
9 withShared [] \sharedSel->
10 editSharedSelectionWithShared "test" False
12 (\l->[{defaultValue & id=i,label=toString i}\\i<-[0..l]])
15 -|| updateSharedInformation "Number of items" [] sharedInt
16 -|| updateSharedInformation "Current selection" [] sharedSel
17 >&> viewSharedInformation "Current task value" [] o mapRead toSingleLineText