buttons malfunction in a tabbed parallel with close actions
Similar to #380 (closed)
module test
import iTasks
import Data.Func
Start w = doTasks t w
where
t = parallel
[(Embedded, \stl->tune (Title "New Task") $ closeable $ addTask stl)
,(Embedded, \stl->tune (Title "Tasks in li st") $ closeable $ viewSharedInformation [ViewAs $ length o snd] $ sdsFocus fullTaskListFilter stl)
] [] <<@ ArrangeWithTabs True
addTask :: (SharedTaskList ()) -> Task ()
addTask stl
= (enterInformation [] <<@ Label "Title") -&&- updateInformation [] "text"
>>! \(title, text)->appendTask Embedded
(\_->tune (Title title) $ closeable $ viewInformation [] text)
stl
>-| addTask stl
closeable :: (Task t) -> Task () | iTask t
closeable t = t >>* [OnAction (Action "Close") (always (return ()))]
The button for adding a new task never enables.