Commit 80744e7c authored by Alexandre Delanoë's avatar Alexandre Delanoë

[ERGO/DOC] closing if selected already

parent 8ae4a3bb
......@@ -215,12 +215,12 @@ buttonClickCpt = R.hooksComponent "G.C.F.T.N.B.buttonClick" cpt
[]
]
where
{- -- This shows the Help of this button
undo = setNodePopup
$ const (node { action = Nothing })
-}
doToDo = setNodePopup $ const $ node { action = Just todo }
-- | Open the help indications if selected already
doToDo = setNodePopup $ const $ node { action = todo' }
where
todo' = case action == Just todo of
true -> Nothing
false -> Just todo
iconAStyle :: GT.NodeType -> NodeAction -> {
color :: String
......
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