The one place for your designs
To enable design management, you'll need to meet the requirements. If you need help, reach out to our support team for assistance.
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.