Wrap ImGui::SameLine()

Author: ocharles

Main.hs

@@ -48,13 +48,13 @@ loop w checked = do
     True  -> putStrLn "Oh hi Mark"
     False -> return ()
 
-  smallButton "Click me" >>= \case
+  sameLine >> smallButton "Click me" >>= \case
     True  -> putStrLn "Oh hi Mark"
     False -> return ()
 
-  arrowButton "Arrow" ImGuiDirUp
+  sameLine >> arrowButton "Arrow" ImGuiDirUp
 
-  checkbox "Check!" checked >>= \case
+  sameLine >> checkbox "Check!" checked >>= \case
     True  -> readIORef checked >>= print
     False -> return ()
 

src/DearImGui.hs

@@ -48,6 +48,9 @@ module DearImGui
   , begin
   , end
 
+    -- * Cursor/Layout
+  , sameLine
+
     -- * Widgets
     -- ** Text
   , text
@@ -308,6 +311,14 @@ end = liftIO do
   [C.exp| void { ImGui::End(); } |]
 
 
+-- | Call between widgets or groups to layout them horizontally.
+--
+-- Wraps @ImGui::SameLine@.
+sameLine :: MonadIO m => m ()
+sameLine = liftIO do
+  [C.exp| void { SameLine(); } |]
+
+
 -- | Formatted text.
 --
 -- Wraps @ImGui::Text()@.