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-03-08 09:42:54 +01:00
|
|
|
let handle_event mouse_ev anon_ev =
|
|
|
|
|
ignore mouse_ev ;
|
|
|
|
|
ignore anon_ev ;
|
|
|
|
|
[Action.None]
|
2008-02-20 01:24:56 +01:00
|
|
|
;;
|
2008-02-28 17:48:52 +01:00
|
|
|
|
2008-03-08 09:42:54 +01:00
|
|
|
let init () =
|
|
|
|
|
(* do nothing *)
|
|
|
|
|
()
|
|
|
|
|
;;
|
