module test

import iTasks

import iTasks.UI.Editor.Common

derive class iTask P
:: P = Z | S P

Start w = doTasks (
	enterInformation () [EnterUsing id e]
	>&> viewSharedInformation "TaskValue" []
	) w
where
	e :: Editor P
	e = bijectEditorValue (\i->(0,i)) snd
		(containerc (chooseWithDropdown ["Z", "S"])
			[ (const Z, emptyEditor)
			, (const (S Z), bijectEditorValue S S e)
			]
		)