Shares/mTaskShare.icl

   1 implementation module Shares.mTaskShare
   2
   3 import Utils.SDS
   4 import iTasks
   5 from Data.Func import $
   6
   7 manageShares :: [MTaskShare] -> Task ()
   8 manageShares shares = forever (enterChoice "Choose share to update" [ChooseFromGrid id] shares
   9         >&^ \st->whileUnchanged st $ \msh->case msh of
  10                 Nothing = viewShares shares @! zero
  11                 Just sh = forever (
  12                                 viewSharedInformation "View value" [] (getSDSStore sh)
  13                         >>* [OnAction (Action "Update") (withValue $ Just $ updateInformation "New value" [])]
  14                         >>= updateShare sh
  15                         )
  16
  17         ) @! ()
  18
  19 updateShare :: MTaskShare Int -> Task MTaskShare
  20 updateShare sh=:{withTask} i = return sh
  21
  22
  23 viewShares :: [MTaskShare] -> Task ()
  24 viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal @! ()
  25
  26 viewShare :: MTaskShare -> Task ()
  27 viewShare m = viewSharedInformation "" [] (getSDSStore m)
  28         <<@ Title ("SDS: " +++ toString m.identifier) @! ()
  29
  30 instance zero MTaskShare where
  31         zero = {initValue=0,withTask="",identifier=0,realShare=""}
  32