From 1bd51ab35ee9631c23553ffe0be28654d1c6d71b Mon Sep 17 00:00:00 2001
From: Ollie Charles <ollie@ocharles.org.uk>
Date: Sun, 24 Jan 2021 15:56:23 +0000
Subject: [PATCH] Wrap ImGui::Bullet()

---
 src/DearImGui.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/DearImGui.hs b/src/DearImGui.hs
index 1c5e202..bbc9e6a 100644
--- a/src/DearImGui.hs
+++ b/src/DearImGui.hs
@@ -57,6 +57,7 @@ module DearImGui
   , smallButton
   , arrowButton
   , checkbox
+  , bullet
 
     -- * Types
   , ImGuiDir
@@ -315,6 +316,12 @@ checkbox label ref = do
     return changed
 
 
+-- | Draw a small circle + keep the cursor on the same line. Advance cursor x
+-- position by 'getTreeNodeToLabelSpacing', same distance that 'treeNode' uses.
+bullet :: IO ()
+bullet = [C.exp| void { Bullet() } |]
+
+
 -- | A cardinal direction.
 newtype ImGuiDir      = ImGuiDir CInt