;; Manually tweaked from enum to flags due to non integer sequence of ordinal
;; values as defined in header file declaring GdkCursorType. There are *many*
;; more constants, but I'm not sure what use any of them are.

(define-flags CursorType
  (in-module "Gdk")
  (c-name "GdkCursorType")
  (gtype-id "GDK_TYPE_CURSOR_TYPE")
  (values
    '("left-ptr" "GDK_LEFT_PTR")
    '("right-ptr" "GDK_LEFT_PTR")
    '("watch" "GDK_WATCH")
    '("xterm" "GDK_XTERM")
    '("left-side" "GDK_LEFT_SIDE")
    '("right-side" "GDK_RIGHT_SIDE")
    '("top-left-corner" "GDK_TOP_LEFT_CORNER")
    '("top-right-corner" "GDK_TOP_RIGHT_CORNER")
    '("top-side" "GDK_TOP_SIDE")
    '("bottom-left-corner" "GDK_BOTTOM_LEFT_CORNER")
    '("bottom-right-corner" "GDK_BOTTOM_RIGHT_CORNER")
    '("bottom-side" "GDK_BOTTOM_SIDE")
    '("fleur" "GDK_FLEUR")
    '("cursor-is-pixmap" "GDK_CURSOR_IS_PIXMAP")
    '("hand1" "GDK_HAND1")
    '("hand2" "GDK_HAND2")
  )
)

