diff options
Diffstat (limited to 'otherlibs/labltk/builtin/builtini_palette.ml')
| -rw-r--r-- | otherlibs/labltk/builtin/builtini_palette.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/otherlibs/labltk/builtin/builtini_palette.ml b/otherlibs/labltk/builtin/builtini_palette.ml new file mode 100644 index 0000000000..8d07d96472 --- /dev/null +++ b/otherlibs/labltk/builtin/builtini_palette.ml @@ -0,0 +1,6 @@ +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) + |