diff options
Diffstat (limited to 'Resources.hs')
| -rw-r--r-- | Resources.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Resources.hs b/Resources.hs index e5cb528..c0a947c 100644 --- a/Resources.hs +++ b/Resources.hs @@ -261,6 +261,10 @@ eventHandle event res = do SDL.showCursor False SDL.grabInput True return ret + KeyUp (Keysym SDLK_c _ _) -> do + SDL.showCursor True + SDL.grabInput False + return res KeyUp (Keysym SDLK_g _ _) -> do SDL.showCursor False SDL.grabInput True |