neocturne/phi
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a short delay waiting for messages before starting rendering

Browse source
This commit is contained in:
Matthias Schiffer 2011-09-07 22:33:07 +02:00
parent 6746d60e3f
commit aadf8d9780
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/Phi/X11.hs
View file

@ -143,11 +143,13 @@ runPhi xconfig config widget = do
forever $ do forever $ do
available <- messageAvailable phi available <- messageAvailable phi
unless available $ do repaint <- gets phiRepaint
repaint <- gets phiRepaint when (not available && repaint) $ liftIO $ threadDelay 30000
when repaint $ do
updatePanels conn xcb available <- messageAvailable phi
modify $ \state -> state {phiRepaint = False} when (not available && repaint) $ do
updatePanels conn xcb
modify $ \state -> state {phiRepaint = False}
message <- receiveMessage phi message <- receiveMessage phi
handleMessage conn xcb message handleMessage conn xcb message