Blame builtin/builtini_palette.ml
|
Packit |
bd2e5d |
##ifdef CAMLTK
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
let cCAMLtoTKpaletteType = function
|
|
Packit |
bd2e5d |
GrayShades (foo) -> TkToken (string_of_int foo)
|
|
Packit |
bd2e5d |
| RGBShades (r,v,b) -> TkToken (string_of_int r^"/"^
|
|
Packit |
bd2e5d |
string_of_int v^"/"^
|
|
Packit |
bd2e5d |
string_of_int b)
|
|
Packit |
bd2e5d |
;;
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
##else
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
let cCAMLtoTKpaletteType : paletteType -> tkArgs = function
|
|
Packit |
bd2e5d |
| `Gray (foo) -> TkToken (string_of_int foo)
|
|
Packit |
bd2e5d |
| `Rgb (r,v,b) -> TkToken (string_of_int r ^ "/" ^
|
|
Packit |
bd2e5d |
string_of_int v ^ "/" ^
|
|
Packit |
bd2e5d |
string_of_int b)
|
|
Packit |
bd2e5d |
;;
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
##endif
|