Commit a50cebe5 authored by Mart Lubbers's avatar Mart Lubbers

Update existing code to the new tab functionality

parent 273018e6
......@@ -35,7 +35,7 @@ tonic = tonicDashboard []
tonicDashboard :: [TaskAppRenderer] -> Task ()
tonicDashboard rs = ((tonicStaticBrowser rs <<@ Title "Static Blueprints")
-||- (tonicDynamicBrowser rs <<@ Title "Dynamic Blueprints")) <<@ ArrangeWithTabs
-||- (tonicDynamicBrowser rs <<@ Title "Dynamic Blueprints")) <<@ ArrangeWithTabs False
tonicStaticWorkflow :: [TaskAppRenderer] -> Workflow
tonicStaticWorkflow rs = workflow "Tonic Static Browser" "Tonic Static Browser" (tonicStaticBrowser rs)
......
......@@ -204,7 +204,7 @@ where
//Split the screen space
[arrangeWithSideBar 0 TopSide 200 True
//Layout all dynamically added tasks as tabs
,layoutSubUIs (SelectByPath [1]) arrangeWithTabs
,layoutSubUIs (SelectByPath [1]) (arrangeWithTabs False)
]
addNewTask :: !(SharedTaskList ()) -> Task ()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment