3 //import Data.Func, StdFunctions, iTasks
5 //derive gDefault ChoiceNode
7 //Start w = flip doTasks w $
8 // withShared 5 \sharedInt->
9 // withShared [] \sharedSel->
10 // (editSharedSelectionWithShared
12 // (\l->[{defaultValue & id=i,label=toString i}\\i<-[0..l]])
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" )
19 //from Data.Map import singleton
20 //import Data.Map.GenJSON
23 //Start w = doTasks t w
25 //t :: Task [(Int, TaskValue Int)]
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)
36 //Start w = doTasks t w
38 // t = viewInformation [ViewUsing id progressBar] (Just 80, Just long) <<@ Title "bork"
39 // long = "borkueaohutenhuaostuehasunethuaosnuhtesuhaotsuehtausneohtusoauhtesauhtesnuhtasuhetauhosunehtoauesnhtaueshautesnhutaonsuhetaonsuhetansuhetansuhetaosnuehtaosnuhetaosunhaoetsunehatounsoehtasunhteunaoshuteoasnuhteaosuhnaoetsnuheotasunehotasunhetusnahotueaou"
44 :: R = { x :: !String, y :: !String }
47 Start w = doTasks (t -&&- u) w
49 t = updateSharedInformation
55 u = updateSharedInformation [] s
57 s = sharedStore "x" {x="",y=""}