`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`