diff --git a/Game.ml b/Game.ml
index e9d9868..2ced227 100644
--- a/Game.ml
+++ b/Game.ml
@@ -1,32 +1,40 @@
+(* vim: set st=2 sw=2 et : *)
 
 let rec refresh_input () = 
-    (* poll events *)
-    let get_handler_fun ev = 
-        match ev with
-        | Sdlevent.KEYDOWN _ -> Keyboard.handle_event
-        | Sdlevent.KEYUP _ -> Keyboard.handle_event
+  (* poll events *)
+  let get_handler_fun ev = 
+    match ev with
+    (* key events *)
+    | Sdlevent.KEYDOWN _ -> Keyboard.handle_event
+    | Sdlevent.KEYUP _ -> Keyboard.handle_event
+    (* mouse events *)
+    | Sdlevent.MOUSEMOTION _ -> Mouse.handle_event
+    | Sdlevent.MOUSEBUTTONDOWN _ -> Mouse.handle_event
+    | Sdlevent.MOUSEBUTTONUP _ -> Mouse.handle_event
+    (* joystick events *)
+    | Sdlevent.JOYAXISMOTION _ -> Joystick.handle_event
+    | Sdlevent.JOYBALLMOTION _ -> Joystick.handle_event
+    | Sdlevent.JOYHATMOTION _ -> Joystick.handle_event
+    | Sdlevent.JOYBUTTONDOWN _ -> Joystick.handle_event
+    | Sdlevent.JOYBUTTONUP _ -> Joystick.handle_event
+    (* video events *)
+    | Sdlevent.VIDEORESIZE _ -> ignore
+    | Sdlevent.VIDEOEXPOSE -> ignore
+    | Sdlevent.ACTIVE _ -> ignore
+    (* system events *)
+    | Sdlevent.QUIT -> ignore
+    | Sdlevent.SYSWM -> ignore
+    (* user defined events *)
+    | Sdlevent.USER _ -> ignore
+  in
 
-        | Sdlevent.MOUSEMOTION _ -> Mouse.handle_event
-        | Sdlevent.MOUSEBUTTONDOWN _ -> Mouse.handle_event
-        | Sdlevent.MOUSEBUTTONUP _ -> Mouse.handle_event
+  let some_event = Sdlevent.poll ()
+  in
 
-        (*
-        | Sdlevent.JOYAXISMOTION _ -> Joystick.handle_event
-        | Sdlevent.JOYBALLMOTION _ -> Joystick.handle_event
-        | Sdlevent.JOYHATMOTION _ -> Joystick.handle_event
-        | Sdlevent.JOYBUTTONDOWN _ -> Joystick.handle_event
-        | Sdlevent.JOYBUTTONUP _ -> Joystick.handle_event
-        *)
-
-        | _ -> ignore
-    in
-
-    let some_event = Sdlevent.poll ()
-    in
-
-    match some_event with
-    | Some Sdlevent.QUIT -> ()
-    | Some ev -> 
+  match some_event with
+  | Some ev -> 
+      if ev = Sdlevent.QUIT then ()
+      else
         let handler_fun = get_handler_fun ev
         in 
         handler_fun ev ;