up

[mTask.git] / Shares / mTaskShare.icl

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 76f676a..fe65501 100644 (file)
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -11,8 +11,8 @@ from Data.Func import $
 derive class iTask MTaskShareType, MTaskShare
 
 manageShares :: [MTaskShare] -> Task ()
-manageShares shares = forever $
-       /*viewSharesGrid shares -|| */viewShares shares @! ()
+manageShares shares = forever $ viewInformation "" [] "" @! ()
+//     viewSharesGrid shares @! ()
 
 //     >&^ \st->whileUnchanged st $ \msh->case msh of
 //             Nothing = viewShares shares
@@ -25,25 +25,24 @@ manageShares shares = forever $
 //     ) @! ()
 
 
-viewShares :: [MTaskShare] -> Task BCValue
-viewShares shares = anyTask (map viewShare shares)
-
-viewAndDelete :: [MTaskShare] -> Task ()
-viewAndDelete shares 
-       = enterChoice "Choose share to update" [ChooseFromGrid id] shares @! ()
+//viewShares :: [MTaskShare] -> Task BCValue
+//viewShares shares = anyTask (map viewShare shares)
+//
+//viewAndDelete :: [MTaskShare] -> Task ()
+//viewAndDelete shares 
+//     = enterChoice "Choose share to update" [ChooseFromGrid id] shares @! ()
 
 //updateShare :: MTaskShare a -> Task MTaskShare | toByteCode, iTask a
 //updateShare sh=:{withTask,identifier} a = getDeviceByName withTask
 //     >>= sendMessages [MTUpd identifier $ toString $ toByteCode a]
 //     >>| treturn sh
 
-//viewSharesGrid :: [MTaskShare] -> Task [MTaskShare]
-//viewSharesGrid sh = allTasks [whileUnchanged (get $ getSDSShare m) (\s->treturn (m, s))\\m<-sh]
-//     @ map (\(s,v)->{MTaskShare|s&value=v})
-//     >>= enterChoice "Choose share" [ChooseFromGrid id]
-//     >>= \s->treturn [s]
-//{anyTask (map viewShare sh) <<@ ArrangeHorizontal
-//     >>| return (hd sh)
+viewSharesGrid :: [MTaskShare] -> Task [BCValue]
+viewSharesGrid sh = allTasks [watch (getSDSShare m)\\m<-sh]
+       >&^ \st->whileUnchanged st $ \mshs->enterChoice "" [ChooseFromGrid id]
+               [{MTaskShare|ss&value=s}\\s<-fromJust mshs & ss<-sh]
+               @! fromJust mshs
+//             /*enterChoice "" [ChooseFromGrid id]*/viewInformation "" []  o fromJust
 
 viewShare :: MTaskShare -> Task BCValue
 viewShare m = viewSharedInformation "" [] (getSDSShare m)