Module Gdk.Visual

module Visual: sig .. end

type visual_type = [ `DIRECT_COLOR
       | `GRAYSCALE
       | `PSEUDO_COLOR
       | `STATIC_COLOR
       | `STATIC_GRAY
       | `TRUE_COLOR ] 

val get_best : ?depth:int -> ?kind:visual_type -> unit -> Gdk.visual

val get_type : Gdk.visual -> visual_type

val depth : Gdk.visual -> int

val red_mask : Gdk.visual -> int

val red_shift : Gdk.visual -> int

val red_prec : Gdk.visual -> int

val green_mask : Gdk.visual -> int

val green_shift : Gdk.visual -> int

val green_prec : Gdk.visual -> int

val blue_mask : Gdk.visual -> int

val blue_shift : Gdk.visual -> int

val blue_prec : Gdk.visual -> int