# Module GtkList.CList

    module CList: sig .. end

    include GtkListProps.Clist

    val create : cols:int -> Gtk.clist Gtk.obj

    val create_with_titles : string array -> Gtk.clist Gtk.obj

    val get_rows : [> `clist ] Gtk.obj -> int

    val get_columns : [> `clist ] Gtk.obj -> int

    val get_focus_row : [> `clist ] Gtk.obj -> int

    val set_hadjustment : [> `clist ] Gtk.obj -> [> `adjustment ] Gtk.obj -> unit

    val set_vadjustment : [> `clist ] Gtk.obj -> [> `adjustment ] Gtk.obj -> unit

    val get_hadjustment : [> `clist ] Gtk.obj -> Gtk.adjustment Gtk.obj

    val get_vadjustment : [> `clist ] Gtk.obj -> Gtk.adjustment Gtk.obj

    val set_shadow_type : [> `clist ] Gtk.obj -> Gtk.Tags.shadow_type -> unit

    val set_selection_mode : [> `clist ] Gtk.obj -> Gtk.Tags.selection_mode -> unit

    val set_reorderable : [> `clist ] Gtk.obj -> bool -> unit

    val set_use_drag_icons : [> `clist ] Gtk.obj -> bool -> unit

    val set_button_actions : [> `clist ] Gtk.obj -> int -> Gtk.Tags.button_action list -> unit

    val freeze : [> `clist ] Gtk.obj -> unit

    val thaw : [> `clist ] Gtk.obj -> unit

    val column_titles_show : [> `clist ] Gtk.obj -> unit

    val column_titles_hide : [> `clist ] Gtk.obj -> unit

    val column_title_active : [> `clist ] Gtk.obj -> int -> unit

    val column_title_passive : [> `clist ] Gtk.obj -> int -> unit

    val column_titles_active : [> `clist ] Gtk.obj -> unit

    val column_titles_passive : [> `clist ] Gtk.obj -> unit

    val set_column_title : [> `clist ] Gtk.obj -> int -> string -> unit

    val get_column_title : [> `clist ] Gtk.obj -> int -> string

    val set_column_widget : [> `clist ] Gtk.obj -> int -> [> `widget ] Gtk.obj -> unit

    val get_column_widget : [> `clist ] Gtk.obj -> int -> Gtk.widget Gtk.obj

    val set_column_justification : [> `clist ] Gtk.obj -> int -> Gtk.Tags.justification -> unit

    val set_column_visibility : [> `clist ] Gtk.obj -> int -> bool -> unit

    val set_column_resizeable : [> `clist ] Gtk.obj -> int -> bool -> unit

    val set_column_auto_resize : [> `clist ] Gtk.obj -> int -> bool -> unit

    val columns_autosize : [> `clist ] Gtk.obj -> unit

    val optimal_column_width : [> `clist ] Gtk.obj -> int -> int

    val set_column_width : [> `clist ] Gtk.obj -> int -> int -> unit

    val set_column_min_width : [> `clist ] Gtk.obj -> int -> int -> unit

    val set_column_max_width : [> `clist ] Gtk.obj -> int -> int -> unit

    val set_row_height : [> `clist ] Gtk.obj -> int -> unit

    val moveto : [> `clist ] Gtk.obj ->
           int -> int -> row_align:Gtk.clampf -> col_align:Gtk.clampf -> unit

    val row_is_visible : [> `clist ] Gtk.obj -> int -> Gtk.Tags.visibility

    val get_cell_type : [> `clist ] Gtk.obj -> int -> int -> Gtk.Tags.cell_type

    val set_text : [> `clist ] Gtk.obj -> int -> int -> string -> unit

    val get_text : [> `clist ] Gtk.obj -> int -> int -> string

    val set_pixmap : [> `clist ] Gtk.obj ->
           int -> int -> Gdk.pixmap -> Gdk.bitmap Gpointer.optboxed -> unit

    val get_pixmap : [> `clist ] Gtk.obj -> int -> int -> Gdk.pixmap option * Gdk.bitmap option

    val set_pixtext : [> `clist ] Gtk.obj ->
           int ->
           int -> string -> int -> Gdk.pixmap -> Gdk.bitmap Gpointer.optboxed -> unit

    val set_foreground : [> `clist ] Gtk.obj -> row:int -> Gdk.color Gpointer.optboxed -> unit

    val set_background : [> `clist ] Gtk.obj -> row:int -> Gdk.color Gpointer.optboxed -> unit

    val get_cell_style : [> `clist ] Gtk.obj -> int -> int -> Gtk.style

    val set_cell_style : [> `clist ] Gtk.obj -> int -> int -> Gtk.style -> unit

    val get_row_style : [> `clist ] Gtk.obj -> row:int -> Gtk.style

    val set_row_style : [> `clist ] Gtk.obj -> row:int -> Gtk.style -> unit

    val set_selectable : [> `clist ] Gtk.obj -> row:int -> bool -> unit

    val get_selectable : [> `clist ] Gtk.obj -> row:int -> bool

    val set_shift : [> `clist ] Gtk.obj -> int -> int -> vertical:int -> horizontal:int -> unit

    val insert : [> `clist ] Gtk.obj -> row:int -> string option array -> int

    val insert : [> `clist ] Gtk.obj -> row:int -> string option list -> int

    val remove : [> `clist ] Gtk.obj -> row:int -> unit

    val set_row_data : [> `clist ] Gtk.obj -> row:int -> Stdlib.Obj.t -> unit

    val get_row_data : [> `clist ] Gtk.obj -> row:int -> Stdlib.Obj.t

    val select : [> `clist ] Gtk.obj -> int -> int -> unit

    val unselect : [> `clist ] Gtk.obj -> int -> int -> unit

    val clear : [> `clist ] Gtk.obj -> unit

    val get_row_column : [> `clist ] Gtk.obj -> x:int -> y:int -> int * int

    val select_all : [> `clist ] Gtk.obj -> unit

    val unselect_all : [> `clist ] Gtk.obj -> unit

    val swap_rows : [> `clist ] Gtk.obj -> int -> int -> unit

    val row_move : [> `clist ] Gtk.obj -> int -> dst:int -> unit

    val set_sort_column : [> `clist ] Gtk.obj -> int -> unit

    val set_sort_type : [> `clist ] Gtk.obj -> Gtk.Tags.sort_type -> unit

    val sort : [> `clist ] Gtk.obj -> unit

    val set_auto_sort : [> `clist ] Gtk.obj -> bool -> unit

    val set_titles_show : [> `clist ] Gtk.obj -> bool -> unit

    val set_titles_active : [> `clist ] Gtk.obj -> bool -> unit

    val setter : cont:(([> `clist ] Gtk.obj -> unit) -> 'a) ->
           ?hadjustment:[> `adjustment ] Gtk.obj ->
           ?vadjustment:[> `adjustment ] Gtk.obj ->
           ?button_actions:(int * Gtk.Tags.button_action list) list ->
           ?titles_show:bool -> 'a

    val set_sort : [> `clist ] Gtk.obj ->
           ?auto:bool -> ?column:int -> ?dir:Gtk.Tags.sort_type -> unit -> unit

    val set_cell : [> `clist ] Gtk.obj ->
           ?text:string ->
           ?pixmap:Gdk.pixmap ->
           ?mask:Gdk.bitmap -> ?spacing:int -> ?style:Gtk.style -> int -> int -> unit

    val set_column : [> `clist ] Gtk.obj ->
           ?widget:[> `widget ] Gtk.obj ->
           ?title:string ->
           ?title_active:bool ->
           ?justification:Gtk.Tags.justification ->
           ?visibility:bool ->
           ?resizeable:bool ->
           ?auto_resize:bool ->
           ?width:int -> ?min_width:int -> ?max_width:int -> int -> unit

    val set_row : [> `clist ] Gtk.obj ->
           ?foreground:Gdk.color Gpointer.optboxed ->
           ?background:Gdk.color Gpointer.optboxed ->
           ?selectable:bool -> ?style:Gtk.style -> int -> unit

    val get_row_state : [> `clist ] Gtk.obj -> int -> Gtk.Tags.state_type

    val emit_scroll : 'a Gobject.obj ->
           sgn:('a, GtkEnums.scroll_type -> pos:Gtk.clampf -> unit) GtkSignal.t ->
           GtkEnums.scroll_type -> pos:Gtk.clampf -> unit