tabbar/test.icl

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