2 import qualified Data.Map as DM
8 Start w = doTasksWithOptions (\a o->Ok $ flip tuple {o & autoLayout=True} $
10 [(Embedded, tab "tab1")
11 ,(Embedded, tab "tab2")
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"))
19 <<@ ArrangeWithTabs True
20 <<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))
23 tab title _ = tune (Title title)
24 $ viewInformation [] ()
25 >>* [OnAction (Action "Close") (always (treturn ()))]