# Module Gdk.Cursor

    module Cursor: sig .. end

    type cursor_type = [ `ARROW
           | `BASED_ARROW_DOWN
           | `BASED_ARROW_UP
           | `BOAT
           | `BOGOSITY
           | `BOTTOM_LEFT_CORNER
           | `BOTTOM_RIGHT_CORNER
           | `BOTTOM_SIDE
           | `BOTTOM_TEE
           | `BOX_SPIRAL
           | `CENTER_PTR
           | `CIRCLE
           | `CLOCK
           | `COFFEE_MUG
           | `CROSS
           | `CROSSHAIR
           | `CROSS_REVERSE
           | `DIAMOND_CROSS
           | `DOT
           | `DOTBOX
           | `DOUBLE_ARROW
           | `DRAFT_LARGE
           | `DRAFT_SMALL
           | `DRAPED_BOX
           | `EXCHANGE
           | `FLEUR
           | `GOBBLER
           | `GUMBY
           | `HAND1
           | `HAND2
           | `HEART
           | `ICON
           | `IRON_CROSS
           | `LEFTBUTTON
           | `LEFT_PTR
           | `LEFT_SIDE
           | `LEFT_TEE
           | `LL_ANGLE
           | `LR_ANGLE
           | `MAN
           | `MIDDLEBUTTON
           | `MOUSE
           | `PENCIL
           | `PIRATE
           | `PLUS
           | `QUESTION_ARROW
           | `RIGHTBUTTON
           | `RIGHT_PTR
           | `RIGHT_SIDE
           | `RIGHT_TEE
           | `RTL_LOGO
           | `SAILBOAT
           | `SB_DOWN_ARROW
           | `SB_H_DOUBLE_ARROW
           | `SB_LEFT_ARROW
           | `SB_RIGHT_ARROW
           | `SB_UP_ARROW
           | `SB_V_DOUBLE_ARROW
           | `SHUTTLE
           | `SIZING
           | `SPIDER
           | `SPRAYCAN
           | `STAR
           | `TARGET
           | `TCROSS
           | `TOP_LEFT_ARROW
           | `TOP_LEFT_CORNER
           | `TOP_RIGHT_CORNER
           | `TOP_SIDE
           | `TOP_TEE
           | `TREK
           | `UL_ANGLE
           | `UMBRELLA
           | `UR_ANGLE
           | `WATCH
           | `XTERM
           | `X_CURSOR ]

    val create : cursor_type -> Gdk.cursor

    val create_from_pixmap : Gdk.pixmap ->
           mask:Gdk.bitmap ->
           fg:Gdk.color -> bg:Gdk.color -> x:int -> y:int -> Gdk.cursor

    val create_from_pixbuf : [ `pixbuf ] Gobject.obj -> x:int -> y:int -> Gdk.cursor

- Since GTK 2.4

    val get_image : Gdk.cursor -> [ `pixbuf ] Gobject.obj

- Since GTK 2.8