# 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