Drezil/dear-imgui.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-imgui.hs.git synced 2024-11-26 10:37:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Wrap ImGui::SameLine()

Browse Source
This commit is contained in:
Ollie Charles 2021-01-24 16:58:52 +00:00
parent bfa31b53a2
commit 85c6f34054
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Main.hs
View File

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

11
src/DearImGui.hs
View File

@ -48,6 +48,9 @@ module DearImGui
, begin , begin
, end , end
-- * Cursor/Layout
, sameLine
-- * Widgets -- * Widgets
-- ** Text -- ** Text
, text , text
@ -308,6 +311,14 @@ end = liftIO do
[C.exp| void { ImGui::End(); } |] [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. -- | Formatted text.
-- --
-- Wraps @ImGui::Text()@. -- Wraps @ImGui::Text()@.