25 lines
651 B
OCaml
25 lines
651 B
OCaml
(* Color *)
|
|
(* type *)
|
|
type color = [
|
|
`Color 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 string
|
|
| `Xcursorfg string * color
|
|
| `Xcursorfgbg string * color * color
|
|
| `Cursorfilefg string * color
|
|
| `Cursormaskfile string * string * color * color
|
|
]
|
|
(* /type *)
|
|
|