2 import qualified Data.Map as DM
7 [(Embedded, tab "tab1")
8 ,(Embedded, tab "tab2")
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 ()))
16 <<@ ArrangeWithTabs True
17 <<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))
20 tab title _ = viewInformation [] () <<@ Title title
21 >>* [OnAction (Action "Close") (always (treturn ()))]