# Module GlGtk

    module GlGtk: sig .. end

    type visual_options = [ `ACCUM_ALPHA_SIZE of int
           | `ACCUM_GREEN_SIZE of int
           | `ALPHA_SIZE of int
           | `AUX_BUFFERS of int
           | `BLUE_SIZE of int
           | `BUFFER_SIZE of int
           | `DEPTH_SIZE of int
           | `DOUBLEBUFFER
           | `GREEN_SIZE of int
           | `LEVEL of int
           | `RED_SIZE of int
           | `RGBA
           | `STENCIL_SIZE of int
           | `STEREO
           | `USE_GL ]

    type gl_area = [ `drawingarea | `glarea | `gtk | `widget ]

    module GtkRaw: sig .. end

    class area_signals : [> gl_area ] Gtk.obj -> object .. end

    class area : gl_area Gtk.obj -> object .. end

    val area : visual_options list ->
           ?share:area ->
           ?width:int ->
           ?height:int ->
           ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> area

    val region_of_raw : 'a Raw.t -> Gpointer.region