manageShares shares = withShared Nothing $ \cs->forever $
(viewSharesGrid cs shares -|| updateShares shares <<@ ArrangeVertical)
@! ()
+
updateShares :: [MTaskShare] -> Task BCValue
updateShares shares = anyTask (map updateS shares) <<@ ArrangeWithTabs