rgleichman/glance
1
1
Fork 0
mirror of https://github.com/rgleichman/glance.git synced 2024-10-05 19:58:30 +03:00
Code Issues Projects Releases Wiki Activity

Modify stateRef once instead of twice in timeoutCallback.

Browse Source
This commit is contained in:
Robbie Gleichman 2020-09-13 21:41:38 -07:00
parent 98e5133e85
commit 9196bc6224
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gui/Main.hs
View File

@ -294,14 +294,11 @@ timeoutCallback inputsRef stateRef gdkWindow device backgroundArea = do
inputs <- readIORef inputsRef
-- TODO Refactor processInputs and updateState so that there is a
-- single event stream. Events are processed in order. Processing an
-- event may modify the state.
modifyIORef' stateRef (processInputs inputs)
modifyIORef' stateRef (updateState inputs)
modifyIORef' inputsRef (\i -> i {_inEvents = []})
modifyIORef' stateRef (updateState inputs . processInputs inputs)
modifyIORef' inputsRef (\i -> i {_inEvents = []}) -- Clear the event queue.
Gtk.widgetQueueDraw backgroundArea
-- TODO Replace GTK callback return values with constants to avoid
-- boolean blindness.
pure True
leftClickAction ::