From 4319bad3c312545e56c236a0515d1c1e9cdbf03d Mon Sep 17 00:00:00 2001
From: Joshua Rahm <jrahm@Scipio.(none)>
Date: Tue, 22 Apr 2014 02:58:19 -0600
Subject: refined sun, added ability to grab input without full screening

---
 Resources.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Resources.hs')

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
-- 
cgit