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