2008-02-20 00:24:56 +00:00
|
|
|
|
2008-02-28 16:48:52 +00:00
|
|
|
(** Mouse management and event handling. *)
|
|
|
|
|
(* vim: set ts=2 sw=2 et : *)
|
|
|
|
|
|
|
|
|
|
(** Returns a list of "abstract events" generated
|
|
|
|
|
by this SDL event *)
|
2008-02-20 00:24:56 +00:00
|
|
|
let handle_event ev =
|
2008-02-28 16:48:52 +00:00
|
|
|
ignore ev ; []
|
2008-02-20 00:24:56 +00:00
|
|
|
;;
|
2008-02-28 16:48:52 +00:00
|
|
|
|
