sig
  val cast : 'a Gobject.obj -> Gtk.combo_box Gtk.obj
  module P :
    sig
      val model : ([> `combobox ], Gtk.tree_model) Gobject.property
      val active : ([> `combobox ], int) Gobject.property
      val add_tearoffs : ([> `combobox ], bool) Gobject.property
      val column_span_column : ([> `combobox ], int) Gobject.property
      val focus_on_click : ([> `combobox ], bool) Gobject.property
      val entry_text_column : ([> `combobox ], int) Gobject.property
      val has_entry : ([> `combobox ], bool) Gobject.property
      val has_frame : ([> `combobox ], bool) Gobject.property
      val row_span_column : ([> `combobox ], int) Gobject.property
      val wrap_width : ([> `combobox ], int) Gobject.property
    end
  module S : sig val changed : ([> `combobox ], unit -> unit) GtkSignal.t end
  val create : Gtk.combo_box Gobject.param list -> Gtk.combo_box Gtk.obj
  external get_active_iter : [> `combobox ] Gtk.obj -> Gtk.tree_iter option
    = "ml_gtk_combo_box_get_active_iter"
  external set_active_iter :
    [> `combobox ] Gtk.obj -> Gtk.tree_iter option -> unit
    = "ml_gtk_combo_box_set_active_iter"
  external set_row_separator_func :
    [> `combobox ] Gtk.obj ->
    (Gtk.tree_model -> Gtk.tree_iter -> bool) option -> unit
    = "ml_gtk_combo_box_set_row_separator_func"
  val make_params :
    cont:(([> `combobox ] as 'a) Gobject.param list -> 'b) ->
    'a Gobject.param list ->
    ?model:Gtk.tree_model ->
    ?active:int ->
    ?add_tearoffs:bool ->
    ?focus_on_click:bool ->
    ?entry_text_column:int ->
    ?has_entry:bool -> ?has_frame:bool -> ?wrap_width:int -> 'b
end