20 lines
548 B
OCaml
20 lines
548 B
OCaml
##ifdef CAMLTK
|
|
|
|
let cCAMLtoTKpaletteType = function
|
|
GrayShades (foo) -> TkToken (string_of_int foo)
|
|
| RGBShades (r,v,b) -> TkToken (string_of_int r^"/"^
|
|
string_of_int v^"/"^
|
|
string_of_int b)
|
|
;;
|
|
|
|
##else
|
|
|
|
let cCAMLtoTKpaletteType : paletteType -> tkArgs = function
|
|
| `Gray (foo) -> TkToken (string_of_int foo)
|
|
| `Rgb (r,v,b) -> TkToken (string_of_int r ^ "/" ^
|
|
string_of_int v ^ "/" ^
|
|
string_of_int b)
|
|
;;
|
|
|
|
##endif
|