old/parallel-action/test.icl

   1 module test
   2
   3 import qualified Data.Map as DM
   4 import iTasks
   5
   6 Start w = startEngineWithOptions
   7         (\as o->(Just {o & autoLayout=True}, []))
   8         (parallel
   9                 [(Embedded, tab "tab1")
  10                 ,(Embedded, tab "tab2")
  11                 ]
  12                 [ OnAction (Action "New") (always (Embedded, tab "New tab"))
  13                 , OnAction (Action " ") (always (Embedded, tab "New tab"))
  14                 , OnAction (Action "Close") (never (Embedded, \_->treturn ()))
  15                 , OnAction (Action "Dis no icon") (never (Embedded, \_->treturn ()))
  16                 , OnAction (Action "+") (always (Embedded, \_->treturn ()))
  17                 ]
  18         <<@ ArrangeWithTabs True
  19         <<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))
  20         ) w
  21
  22 tab title _ = viewInformation title [] () <<@ Title title
  23         >>* [OnAction (Action "Close") (always (treturn ()))]