l4/pkg/ocaml/contrib/otherlibs/labltk/builtin/builtin_palette.ml

   1 ##ifdef CAMLTK
   2
   3 (* type *)
   4 type paletteType =
   5   | GrayShades of int
   6   | RGBShades of int * int * int
   7 ;;
   8 (* /type *)
   9
  10 ##else
  11
  12 (* type *)
  13 type paletteType = [
  14   | `Gray of int
  15   | `Rgb of int * int * int
  16 ]
  17 ;;
  18 (* /type *)
  19
  20 ##endif