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

Add pollEventsWithImGui (#13)

Browse Source
This commit is contained in:
sheaf 2021-01-26 12:23:05 +01:00 committed by GitHub
parent e220775b21
commit e4b75e355f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/DearImGui/SDL.hs
View File

@ -20,6 +20,7 @@ module DearImGui.SDL (
sdl2NewFrame sdl2NewFrame
, sdl2Shutdown , sdl2Shutdown
, pollEventWithImGui , pollEventWithImGui
, pollEventsWithImGui
) )
where where
@ -81,3 +82,12 @@ pollEventWithImGui = liftIO do
[C.exp| void { ImGui_ImplSDL2_ProcessEvent((SDL_Event*) $(void* evPtr')) } |] [C.exp| void { ImGui_ImplSDL2_ProcessEvent((SDL_Event*) $(void* evPtr')) } |]
pollEvent pollEvent
-- | Like the SDL2 'pollEvents' function, while also dispatching the events to
-- Dear ImGui. See 'pollEventWithImGui'.
pollEventsWithImGui :: MonadIO m => m [Event]
pollEventsWithImGui = do
e <- pollEventWithImGui
case e of
Nothing -> pure []
Just e' -> ( e' : ) <$> pollEventsWithImGui