Resolve "buttons on a tabset should be moved to the actual tabbar header"
Closes #217 (closed)
You can create cool things like:
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, \_->tab "New tab"))
]
<<@ ArrangeWithTabs True
<<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))
) w
tab title _ = tune (Title title) (viewInformation title [] ()
>>* [OnAction (Action "Close") (always (treturn ()))])