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