test.icl

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