sig
type mouse_button =
ButtonLeft
| ButtonRight
| ButtonMiddle
| ButtonX1
| ButtonX2
external getButtonCount : unit -> int = "caml_sfMouseButtonCount"
external isButtonPressed : button:SFMouse.mouse_button -> bool
= "caml_sfMouse_isButtonPressed"
external getPosition : unit -> int * int = "caml_sfMouse_getPosition"
external setPosition : pos:int * int -> unit = "caml_sfMouse_setPosition"
end