class button : string -> object .. end
string ->
object
end
LTerm_widget.t
method label : string
string
method set_label : string -> unit
string -> unit
method on_click : ?switch:switch -> (unit -> unit) -> unit
?switch:switch -> (unit -> unit) -> unit
on_click ?switch f
f