diff options
| author | Joshua Rahm <jrahm@Scipio.(none)> | 2014-04-22 02:58:19 -0600 |
|---|---|---|
| committer | Joshua Rahm <jrahm@Scipio.(none)> | 2014-04-22 02:58:19 -0600 |
| commit | 4319bad3c312545e56c236a0515d1c1e9cdbf03d (patch) | |
| tree | 5f9cbdeabab679b50b4f6c3658262004a3cb268e /Resources.hs | |
| parent | bc247b19550b58ce8e9f6ab82ac7607c8713de44 (diff) | |
| download | terralloc-4319bad3c312545e56c236a0515d1c1e9cdbf03d.tar.gz terralloc-4319bad3c312545e56c236a0515d1c1e9cdbf03d.tar.bz2 terralloc-4319bad3c312545e56c236a0515d1c1e9cdbf03d.zip | |
refined sun, added ability to grab input without full screening
Diffstat (limited to 'Resources.hs')
| -rw-r--r-- | Resources.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Resources.hs b/Resources.hs index 79681ca..45a5416 100644 --- a/Resources.hs +++ b/Resources.hs @@ -142,7 +142,12 @@ eventHandle event res = do ret <- reshape 1920 1080 res SDL.toggleFullscreen $ rSurface ret SDL.showCursor False + SDL.grabInput True return ret + KeyUp (Keysym SDLK_g _ _) -> do + SDL.showCursor False + SDL.grabInput True + return res _ -> return res displayHandle :: Resources -> IO Resources |