5 import iTasks.UI.Editor.Common
11 enterInformation () [EnterUsing id e]
12 >&> viewSharedInformation "TaskValue" []
16 e = bijectEditorValue (\i->(0,i)) snd
17 (containerc (chooseWithDropdown ["Z", "S"])
18 [ (const Z, emptyEditor)
19 , (const (S Z), bijectEditorValue S S e)