(* Color *)

##ifdef CAMLTK

(* type *)

type color =

  | NamedColor of string

  | Black                       (* tk keyword: black *)

  | White                       (* tk keyword: white *)

  | Red                 (* tk keyword: red *)

  | Green                       (* tk keyword: green *)

  | Blue                        (* tk keyword: blue *)

  | Yellow                     (* tk keyword: yellow *)

;;

(* /type *)

##else

(* type *)

type color = [

  | `Color of string

  | `Black                      (* tk keyword: black *)

  | `White                      (* tk keyword: white *)

  | `Red                        (* tk keyword: red *)

  | `Green                      (* tk keyword: green *)

  | `Blue                       (* tk keyword: blue *)

  | `Yellow                     (* tk keyword: yellow *)

]

;;

(* /type *)

##endif

##ifdef CAMLTK

(* type *)

type cursor =

  | XCursor of string

  | XCursorFg of string * color

  | XCursortFgBg of string * color * color

  | CursorFileFg of string * color

  | CursorMaskFile of string * string * color * color

;;

(* /type *)

##else

(* Tk_GetCursor emulation *)

(* type *)

type cursor = [

  | `Xcursor of string

  | `Xcursorfg of string * color

  | `Xcursorfgbg of string * color * color

  | `Cursorfilefg of string * color

  | `Cursormaskfile of string * string * color * color

]

;;

(* /type *)

##endif