source-git / ocaml-labltk

Clone
Source Code
GIT

Blame builtin/builtin_palette.ml

c8 master
  1.   61d75645bedfef66f0853dc2be445faf9d0e6447
  2.   builtin
  3.   builtin_palette.ml
Blob History Raw
Packit bd2e5d 
##ifdef CAMLTK
Packit bd2e5d
Packit bd2e5d 
(* type *)
Packit bd2e5d 
type paletteType =
Packit bd2e5d 
  | GrayShades of int
Packit bd2e5d 
  | RGBShades of int * int * int
Packit bd2e5d 
;;
Packit bd2e5d 
(* /type *)
Packit bd2e5d
Packit bd2e5d 
##else
Packit bd2e5d
Packit bd2e5d 
(* type *)
Packit bd2e5d 
type paletteType = [
Packit bd2e5d 
  | `Gray of int
Packit bd2e5d 
  | `Rgb of int * int * int
Packit bd2e5d 
]
Packit bd2e5d 
;;
Packit bd2e5d 
(* /type *)
Packit bd2e5d
Packit bd2e5d 
##endif

Powered by Pagure 5.13.3

SSH Hostkey/Fingerprint | Documentation