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