Drezil/dear-imgui.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-imgui.hs.git synced 2025-11-12 11:01:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

Wrap ImGui popups

Browse Source
This commit is contained in:
Ollie Charles
2021-01-24 17:35:00 +00:00
parent c4d54a6e36
commit 93b729dae3
2 changed files with 55 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Main.hs
View File

@@ -45,9 +45,13 @@ loop w checked = do
text "Hello!"
button "Click me" >>= \case
True -> putStrLn "Oh hi Mark"
True -> openPopup "Button Popup"
False -> return ()
beginPopupModal "Button Popup" >>= whenTrue do
button "Close" >>= whenTrue closeCurrentPopup
endPopup
sameLine >> smallButton "Click me" >>= \case
True -> putStrLn "Oh hi Mark"
False -> return ()