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