sig
  val cast : 'a Gobject.obj -> Gtk.option_menu Gtk.obj
  module P :
    sig val menu : ([> `optionmenu ], Gtk.menu Gtk.obj) Gobject.property end
  module S :
    sig val changed : ([> `optionmenu ], unit -> unit) GtkSignal.t end
  val create : Gtk.option_menu Gobject.param list -> Gtk.option_menu Gtk.obj
  external remove_menu : [> `optionmenu ] Gtk.obj -> unit
    = "ml_gtk_option_menu_remove_menu"
  external set_history : [> `optionmenu ] Gtk.obj -> int -> unit
    = "ml_gtk_option_menu_set_history"
end