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, \l->appendTask Embedded (tab "New tab") l @! ()))
		, OnAction (Action " ") (always (Embedded, \l->appendTask Embedded (tab "New tab") l @! ()))
		, OnAction (Action "Close") (never (Embedded, \l->treturn ()))
		, OnAction (Action "Dis no icon") (never (Embedded, \l->treturn ()))
		, OnAction (Action "+") (always (Embedded, \r->treturn ()))
		]
	<<@ ArrangeWithTabs True
	<<@ ApplyLayout (setActionIcon ('DM'.put " " "new" 'DM'.newMap))
	) w

tab title _ = viewInformation title [] () <<@ Title title
	>>* [OnAction (Action "Close") (always (treturn ()))]