|
(* vim: set ts=2 sw=2 et : *)
|
|
|
|
(** Mouse management and event handling. *)
|
|
|
|
(** Returns a list of "abstract events" generated
|
|
by this SDL event *)
|
|
let handle_event mouse_ev anon_ev =
|
|
ignore mouse_ev ;
|
|
ignore anon_ev ;
|
|
[Action.None]
|
|
;;
|
|
|
|
let init () =
|
|
(* do nothing *)
|
|
()
|
|
;;
|