-module test
-
-import qualified Data.Map as DM
-import iTasks
-
-Start w = startEngineWithOptions
- (\as o->(Just {o & autoLayout=True}, []))
- (parallel
- [(Embedded, tab "tab1")
- ,(Embedded, tab "tab2")
- ]
- [ OnAction (Action "New") (always (Embedded, tab "New tab"))
- , OnAction (Action " ") (always (Embedded, tab "New tab"))
- , OnAction (Action "Close") (never (Embedded, \_->treturn ()))
- , OnAction (Action "Dis no icon") (never (Embedded, \_->treturn ()))
- , OnAction (Action "+") (always (Embedded, \_->treturn ()))
- ]
- <<@ ArrangeWithTabs True
- <<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))
- ) w
-
-tab title _ = viewInformation title [] () <<@ Title title
- >>* [OnAction (Action "Close") (always (treturn ()))]