Commit ebeb9212 authored by Alexandre Delanoë's avatar Alexandre Delanoë

Merge remote-tracking branch 'origin/404-dev-popover-close-button-fix' into dev-merge

parents b83573c3 40731885
...@@ -163,32 +163,38 @@ folderCpt = here.component "folderCpt" cpt where ...@@ -163,32 +163,38 @@ folderCpt = here.component "folderCpt" cpt where
{ goToRoute } <- useLinkHandler { goToRoute } <- useLinkHandler
R.useEffect' $ do R.useEffect' $ do
R.setRef setPopoverRef $ Just $ Popover.setOpen popoverRef R.setRef setPopoverRef $ Just $ Popover.setOpen popoverRef
pure $ pure $
H.div {} [ H.div {}
H.span{style: {position: "absolute"}} [ Popover.popover { [ H.span { style: { position: "absolute" } }
[ Popover.popover {
arrow: false arrow: false
, open: false , open: false
, onClose: \_ -> pure unit , onClose: \_ -> pure unit
, onOpen: \_ -> pure unit , onOpen: \_ -> pure unit
, ref: popoverRef , ref: popoverRef
} [ }
popOverIcon [ popOverIcon
, mNodePopupView (Record.merge props { dispatch }) (onPopoverClose popoverRef) , mNodePopupView (Record.merge props { dispatch }) (onPopoverClose popoverRef)
]] ]
, H.button {on: {click: \_ -> goToRoute $ route linkId rootId linkNodeType sid }, className: "btn btn-primary fv btn" } [ ]
H.i {className: icon style nodeType} [] , H.button { className: "btn btn-primary fv btn"
, H.br {} , on: { click: \_ -> goToRoute $ route linkId rootId linkNodeType sid }
, H.text text]] }
[ H.i {className: icon style nodeType} []
, H.br {}
, H.text text
]
]
onPopoverClose popoverRef _ = Popover.setOpen popoverRef false onPopoverClose popoverRef _ = Popover.setOpen popoverRef false
popOverIcon = H.span { className: "fv action" } [ popOverIcon = H.span { className: "fv action" }
H.a { className: "settings fa fa-cog" [ H.a { className: "settings fa fa-cog"
, title : "Each node of the Tree can perform some actions.\n" , title : "Each node of the Tree can perform some actions.\n"
<> "Click here to execute one of them." } [] <> "Click here to execute one of them." } []
] ]
mNodePopupView props opc = nodePopupView { boxes: props.boxes mNodePopupView props opc = nodePopupView { boxes: props.boxes
, dispatch: props.dispatch , dispatch: props.dispatch
......
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