Emulation/Stellarator
1
0
Fork 0
mirror of https://github.com/dpiponi/Stellarator.git synced 2024-06-01 02:37:48 -04:00
Code Issues Packages Projects Releases Wiki Activity

Factored out key callback

Browse source
This commit is contained in:
Dan Piponi 2019-09-02 20:22:02 -07:00
parent 77df11a71b
commit 44f4c93a6b
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/Main.hs
View file

@ -25,10 +25,8 @@ import Keys
import Memory
import Metrics
import Stella
-- import SDL.Event
import Step
import System.Console.CmdArgs hiding ((+=))
-- import qualified SDL
import Graphics.UI.GLFW
import Data.IORef
import Data.Dequeue

10
src/Display.hs
View file

@ -202,6 +202,11 @@ vertices = V.fromList [ -1.0, -1.0
, -1.0, 1.0
]
keyCallback :: IORef (BankersDequeue UIKey) ->
Window -> Key -> Int -> KeyState -> ModifierKeys -> IO ()
keyCallback queue _window key someInt state mods =
modifyIORef queue (flip pushBack (UIKey key someInt state mods))
makeMainWindow :: (Int, Int) -> IORef (BankersDequeue UIKey) -> IO Window
makeMainWindow (screenScaleX', screenScaleY') queue = do
@ -218,10 +223,7 @@ makeMainWindow (screenScaleX', screenScaleY') queue = do
case mWindow of
Nothing -> die "Couldn't create window"
Just window -> do
let keyCallback _window key someInt state mods =
modifyIORef queue (flip pushBack (UIKey key someInt state mods))
setKeyCallback window (Just keyCallback)
setKeyCallback window (Just $ keyCallback queue)
makeContextCurrent (Just window)
putStrLn "Created window"