sig
type t = { width : int; height : int; bitsPerPixel : int; }
external getFullscreenModes : unit -> SFVideoMode.t array
= "caml_sfVideoMode_getFullscreenModes"
external getDesktopMode : unit -> SFVideoMode.t
= "caml_sfVideoMode_getDesktopMode"
external isValid : SFVideoMode.t -> bool = "caml_sfVideoMode_isValid"
val make : ?bpp:int -> int * int -> SFVideoMode.t
end