old/shared_selection/test.icl

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