sig
  val cast : 'a Gobject.obj -> Gtk.combo Gtk.obj
  module P :
    sig
      val allow_empty : ([> `combo ], bool) Gobject.property
      val case_sensitive : ([> `combo ], bool) Gobject.property
      val enable_arrow_keys : ([> `combo ], bool) Gobject.property
      val enable_arrows_always : ([> `combo ], bool) Gobject.property
      val value_in_list : ([> `combo ], bool) Gobject.property
    end
  val create : Gtk.combo Gobject.param list -> Gtk.combo Gtk.obj
  val make_params :
    cont:(([> `combo ] as 'a) Gobject.param list -> 'b) ->
    'a Gobject.param list ->
    ?allow_empty:bool ->
    ?case_sensitive:bool ->
    ?enable_arrow_keys:bool -> ?value_in_list:bool -> 'b
  external entry : [> `combo ] Gtk.obj -> Gtk.entry Gtk.obj
    = "ml_gtk_combo_entry"
  external list : [> `combo ] Gtk.obj -> Gtk.liste Gtk.obj
    = "ml_gtk_combo_list"
  val set_popdown_strings : [> `combo ] Gtk.obj -> string list -> unit
  external disable_activate : [> `combo ] Gtk.obj -> unit
    = "ml_gtk_combo_disable_activate"
  external set_item_string :
    [> `combo ] Gtk.obj -> [> `item ] Gtk.obj -> string -> unit
    = "ml_gtk_combo_set_item_string"
end