old/choose/test.icl

   1 module test
   2
   3 import iTasks
   4
   5 import iTasks.UI.Editor.Common
   6
   7 derive class iTask P
   8 :: P = Z | S P
   9
  10 Start w = doTasks (
  11         enterInformation () [EnterUsing id e]
  12         >&> viewSharedInformation "TaskValue" []
  13         ) w
  14 where
  15         e :: Editor P
  16         e = bijectEditorValue (\i->(0,i)) snd
  17                 (containerc (chooseWithDropdown ["Z", "S"])
  18                         [ (const Z, emptyEditor)
  19                         , (const (S Z), bijectEditorValue S S e)
  20                         ]
  21                 )