2008-03-03 18:14:42 +00:00
|
|
|
(* vim: set ts=2 sw=2 et : *)
|
2008-02-20 00:24:56 +00:00
|
|
|
|
2008-02-28 16:48:52 +00:00
|
|
|
(** Mouse management and event handling. *)
|
|
|
|
|
|
|
|
|
|
(** Returns a list of "abstract events" generated
|
|
|
|
|
by this SDL event *)
|
2008-03-08 08:42:54 +00:00
|
|
|
let handle_event mouse_ev anon_ev =
|
|
|
|
|
ignore mouse_ev ;
|
|
|
|
|
ignore anon_ev ;
|
|
|
|
|
[Action.None]
|
2008-02-20 00:24:56 +00:00
|
|
|
;;
|
2008-02-28 16:48:52 +00:00
|
|
|
|
2008-03-08 08:42:54 +00:00
|
|
|
let init () =
|
|
|
|
|
(* do nothing *)
|
|
|
|
|
()
|
|
|
|
|
;;
|
