61 lines
1.3 KiB
OCaml
61 lines
1.3 KiB
OCaml
(* 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
|