sig
type t
type uint = int
type contents = {
width : SFVideoMode.uint;
height : SFVideoMode.uint;
bitsPerPixel : SFVideoMode.uint;
}
external getFullscreenModes : unit -> SFVideoMode.contents array
= "caml_sfVideoMode_getFullscreenModes"
external getDesktopMode : unit -> SFVideoMode.contents
= "caml_sfVideoMode_getDesktopMode"
end