otherlibs/labltk/builtin/builtini_palette.ml


1
2
3
4
5
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)