Module SFCursor

module SFCursor: sig .. end

Online documentation for the Cursor class

type native_cursor =

`\|`	`Arrow`
`\|`	`ArrowWait`
`\|`	`Wait`
`\|`	`Text`
`\|`	`Hand`
`\|`	`SizeHorizontal`
`\|`	`SizeVertical`
`\|`	`SizeTopLeftBottomRight`
`\|`	`SizeBottomLeftTopRight`
`\|`	`SizeAll`
`\|`	`Cross`
`\|`	`Help`
`\|`	`NotAllowed`

type t

val loadFromPixels : data:bytes -> size:int * int -> hotspot:int * int -> t

val loadFromSystem : native_cursor -> t