object val mutable label : string val mutable on_label_change : string -> unit method label : string method set_label : string -> unit method set_on_label_change : (string -> unit) -> unit end