otherlibs/labltk/builtin/builtini_palette.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

##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