25 lines
669 B
OCaml
25 lines
669 B
OCaml
(* Color *)
|
|
(* 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 *)
|
|
|
|
(* 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 *)
|
|
|