1999-11-30 06:59:39 -08:00
|
|
|
let cCAMLtoTKpaletteType : paletteType -> tkArgs = function
|
2000-02-16 03:51:37 -08:00
|
|
|
| `Gray (foo) -> TkToken (string_of_int foo)
|
1999-11-30 06:59:39 -08:00
|
|
|
| `Rgb (r,v,b) -> TkToken (string_of_int r ^ "/" ^
|
|
|
|
|
string_of_int v ^ "/" ^
|
|
|
|
|
string_of_int b)
|
