Skip to content

Fixed an issue where the game would freeze when the mouse moving over the window. #45

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
chansey97 wants to merge 2 commits into from
Closed

Fixed an issue where the game would freeze when the mouse moving over the window. #45

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
95d2812
Fix the issue https://github.com/ivanperez-keera/SpaceInvaders/issues/44
chansey97 Jan 17, 2024
430edb6
Move the comments to be consistent with the patch https://github.com/…
chansey97 Jan 17, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
15 changes: 7 additions & 8 deletions src/Animate.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -120,6 +120,13 @@ mkInitAndGetTimeInput win = do

-- Next delta time and input
let getTimeInput _ = do
-- Seems as if we either have to yield or wait for a tick in order
-- to ensure that the thread receiving events gets a chance to
-- work. For some reason, yielding seems to result in window close
-- events getting through, wheras waiting often means they don't.
-- Maybe the process typically dies before the waiting time is up in
-- the latter case?
HGL.getWindowTick win
-- Get time
tp <- readIORef tpRef
t <- getElapsedTime `repeatUntil` (/= tp) -- Wrap around possible!
Expand Down Expand Up @@ -178,15 +185,7 @@ getWinInput win weBufRef = do
Just (HGL.MouseMove {}) -> mmFilter mwe'
Just _ -> writeIORef weBufRef mwe'
>> return jmme

-- Seems as if we either have to yield or wait for a tick in order
-- to ensure that the thread receiving events gets a chance to
-- work. For some reason, yielding seems to result in window close
-- events getting through, wheras waiting often means they don't.
-- Maybe the process typically dies before the waiting time is up in
-- the latter case?
gwi win = do
HGL.getWindowTick win
mwe <- HGL.maybeGetWindowEvent win
return mwe

Expand Down