classInherits['a]
select :('a -> string) -> (string -> 'a) -> 'a -> 'a list ->
object
..end
val mutable option_list : (AXOWidgets.common_wrap * 'a) list
val mutable current : 'a
method get_value : 'a
method set_value : 'a -> unit
method private set_value_ : string -> unit
method add_option : 'a -> unit
method private remove_by : (AXOWidgets.common_wrap * 'a -> bool) -> unit
method remove_option : 'a -> unit
method set_editable : bool -> unit