module test

import Data.Func, StdFunctions, iTasks

derive gDefault ChoiceNode

Start w = flip startEngine w $
	withShared 5 \sharedInt->
	withShared [] \sharedSel->
	editSharedSelectionWithShared "test" False
		(SelectInTree
			(\l->[{defaultValue & id=i,label=toString i}\\i<-[0..l]])
			(\_ s->s)
		) sharedInt sharedSel
	-|| updateSharedInformation "Number of items" [] sharedInt
	-|| updateSharedInformation "Current selection" [] sharedSel
	>&> viewSharedInformation "Current task value" [] o mapRead toSingleLineText