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::ColorPicker3()@

Browse Source
This commit is contained in:
Oliver Charles
2021-01-25 09:11:46 +00:00
parent 774ef945e6
commit 4586f30eb2
3 changed files with 47 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Main.hs
View File

@ -26,12 +26,14 @@ main = do
checkVersion
styleColorsLight
newIORef False >>= loop w
checked <- newIORef False
color <- newIORef $ ImVec3 1 0 0
loop w checked color
openGL2Shutdown
loop :: Window -> IORef Bool -> IO ()
loop w checked = do
loop :: Window -> IORef Bool -> IORef ImVec3 -> IO ()
loop w checked color = do
quit <- pollEvents
openGL2NewFrame
@ -80,8 +82,7 @@ loop w checked = do
plotHistogram "A histogram" [ 10, 10, 20, 30, 90 ]
ref <- newIORef $ ImVec4 1 0 0 1
colorButton "Test" ref
colorPicker3 "Test" color
beginMainMenuBar >>= whenTrue do
beginMenu "Hello" >>= whenTrue do
@ -103,7 +104,7 @@ loop w checked = do
glSwapWindow w
if quit then return () else loop w checked
if quit then return () else loop w checked color
where