Wrap ImGui::Begin/EndTooltip()

Author: ocharles

Main.hs

@@ -48,7 +48,12 @@ loop w checked = do
     True  -> openPopup "Button Popup"
     False -> return ()
 
-  beginPopupModal "Button Popup" >>= whenTrue do
+  isItemHovered >>= whenTrue do
+    beginTooltip
+    text "Tooltip?"
+    endTooltip
+
+  beginPopup "Button Popup" >>= whenTrue do
     button "Close" >>= whenTrue closeCurrentPopup
     endPopup
 

src/DearImGui.hs

@@ -80,6 +80,10 @@ module DearImGui
   , endMenu
   , menuItem
 
+    -- * Tooltips
+  , beginTooltip
+  , endTooltip
+
     -- * Popups/Modals
   , beginPopup
   , beginPopupModal
@@ -493,6 +497,21 @@ menuItem label = liftIO do
     (1 ==) <$> [C.exp| bool { MenuItem($(char* labelPtr)) } |]
 
 
+-- | Begin/append a tooltip window to create full-featured tooltip (with any
+-- kind of items).
+--
+-- Wraps @ImGui::BeginTooltip()@
+beginTooltip :: MonadIO m => m ()
+beginTooltip = liftIO do
+  [C.exp| void { BeginTooltip() } |]
+
+
+-- | Wraps @ImGui::EndTooltip()@
+endTooltip :: MonadIO m => m ()
+endTooltip = liftIO do
+  [C.exp| void { EndTooltip() } |]
+
+
 -- | Returns 'True' if the popup is open, and you can start outputting to it.
 --
 -- Wraps @ImGui::BeginPopup()@