sig
  type native_cursor =
      Arrow
    | ArrowWait
    | Wait
    | Text
    | Hand
    | SizeHorizontal
    | SizeVertical
    | SizeTopLeftBottomRight
    | SizeBottomLeftTopRight
    | SizeAll
    | Cross
    | Help
    | NotAllowed
  type t
  external loadFromPixels :
    data:bytes -> size:int * int -> hotspot:int * int -> SFCursor.t
    = "caml_sfCursor_loadFromPixels"
  external loadFromSystem : SFCursor.native_cursor -> SFCursor.t
    = "caml_sfCursor_loadFromSystem"
end