Drezil/dear-imgui.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-imgui.hs.git synced 2025-07-06 04:58:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

Wrap ImGui::ListBox() (#25)

Browse Source
This commit is contained in:
Ollie Charles
2021-01-28 23:38:59 +00:00
committed by GitHub
parent bb82e87553
commit af49a7b3fb
3 changed files with 36 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Main.hs
View File

@ -29,12 +29,14 @@ main = do
checked <- newIORef False
color <- newIORef $ ImVec3 1 0 0
slider <- newIORef (0.42, 0, 0.314)
loop w checked color slider
r <- newIORef 4
loop w checked color slider r
openGL2Shutdown
loop :: Window -> IORef Bool -> IORef ImVec3 -> IORef (Float, Float, Float) -> IO ()
loop w checked color slider = do
loop :: Window -> IORef Bool -> IORef ImVec3 -> IORef (Float, Float, Float) -> IORef Int -> IO ()
loop w checked color slider r = do
quit <- pollEvents
openGL2NewFrame
@ -49,6 +51,8 @@ loop w checked color slider = do
begin "My Window"
text "Hello!"
listBox "Items" r [ "A", "B", "C" ]
button "Click me" >>= \case
True -> openPopup "Button Popup"
False -> return ()
@ -120,7 +124,7 @@ loop w checked color slider = do
glSwapWindow w
if quit then return () else loop w checked color slider
if quit then return () else loop w checked color slider r
where