Hide tooltip when a button action is detected on its child widget (#170)

fjvallarino · Jun 16, 2022 · fa52649 · fa52649
1 parent 69f68ff
commit fa52649
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/Monomer/Widgets/Containers/Tooltip.hs b/src/Monomer/Widgets/Containers/Tooltip.hs
@@ -149,6 +149,14 @@ makeTooltip caption config state = widget where
     result = resultNode newNode
 
   handleEvent wenv node target evt = case evt of
+    ButtonAction{} -> Just $ resultReqs newNode [RenderOnce] where
+      newState = state {
+        _ttsLastPos = Point (-1) (-1),
+        _ttsLastPosTs = maxBound
+      }
+      newNode = node
+        & L.widget .~ makeTooltip caption config newState
+
     Leave point -> Just $ resultReqs newNode [RenderOnce] where
       newState = state {
         _ttsLastPos = Point (-1) (-1),