test.icl

   1 module test
   2 //
   3 //import Data.Func, StdFunctions, iTasks
   4 //
   5 //derive gDefault ChoiceNode
   6 //
   7 //Start w = flip doTasks w $
   8 //      withShared 5 \sharedInt->
   9 //      withShared [] \sharedSel->
  10 //      (editSharedSelectionWithShared
  11 //              [SelectInTree
  12 //                      (\l->[{defaultValue & id=i,label=toString i}\\i<-[0..l]])
  13 //                      (\_ s->s)
  14 //              ] sharedInt sharedSel <<@ Title "Selection" <<@ multipleAttr False)
  15 //      -|| (updateSharedInformation [] sharedInt <<@ Title "Number of items")
  16 //      -|| (updateSharedInformation [] sharedSel <<@ Title "Current selection")
  17 //      >&> \sh->(viewSharedInformation [] (mapRead toSingleLineText sh) <<@ Title "Current task value" )
  18 //
  19 //from Data.Map import singleton
  20 //import Data.Map.GenJSON
  21 //import iTasks
  22 //
  23 //Start w = doTasks t w
  24 //
  25 //t :: Task [(Int, TaskValue Int)]
  26 //t = parallel
  27 //      [(Embedded, \stl->
  28 //              appendTask Embedded (\_->viewInformation [] 42) stl
  29 //              >>! \i->set (singleton "focus" (JSONBool True)) (sdsFocus i (taskListEntryMeta stl))
  30 //              >>~ \_->viewSharedInformation []
  31 //                      (sdsFocus {onlyIndex=Nothing,onlyTaskId=Nothing,onlySelf=False,includeValue=True,includeProgress=True,includeAttributes=True} stl)
  32 //              @! 42
  33 //      )] []
  34
  35 import iTasks
  36 Start w = doTasks t w
  37 where
  38         t = viewInformation [ViewUsing id progressBar] (Just 80, Just "bork")
  39                 <<@ Title "bork"