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