sig
  val create :
    ?name:string ->
    ?activebackground:Tk.color ->
    ?activeforeground:Tk.color ->
    ?anchor:Tk.anchor ->
    ?background:Tk.color ->
    ?bitmap:Tk.bitmap ->
    ?borderwidth:int ->
    ?command:(unit -> unit) ->
    ?cursor:Tk.cursor ->
    ?default:Tk.state ->
    ?disabledforeground:Tk.color ->
    ?font:string ->
    ?foreground:Tk.color ->
    ?height:int ->
    ?highlightbackground:Tk.color ->
    ?highlightcolor:Tk.color ->
    ?highlightthickness:int ->
    ?image:[< Tk.image ] ->
    ?justify:Tk.justification ->
    ?padx:int ->
    ?pady:int ->
    ?relief:Tk.relief ->
    ?state:Tk.state ->
    ?takefocus:bool ->
    ?text:string ->
    ?textvariable:Textvariable.textVariable ->
    ?underline:int ->
    ?width:int ->
    ?wraplength:int -> 'a Widget.widget -> Widget.button Widget.widget
  val configure :
    ?activebackground:Tk.color ->
    ?activeforeground:Tk.color ->
    ?anchor:Tk.anchor ->
    ?background:Tk.color ->
    ?bitmap:Tk.bitmap ->
    ?borderwidth:int ->
    ?command:(unit -> unit) ->
    ?cursor:Tk.cursor ->
    ?default:Tk.state ->
    ?disabledforeground:Tk.color ->
    ?font:string ->
    ?foreground:Tk.color ->
    ?height:int ->
    ?highlightbackground:Tk.color ->
    ?highlightcolor:Tk.color ->
    ?highlightthickness:int ->
    ?image:[< Tk.image ] ->
    ?justify:Tk.justification ->
    ?padx:int ->
    ?pady:int ->
    ?relief:Tk.relief ->
    ?state:Tk.state ->
    ?takefocus:bool ->
    ?text:string ->
    ?textvariable:Textvariable.textVariable ->
    ?underline:int ->
    ?width:int -> ?wraplength:int -> Widget.button Widget.widget -> unit
  val configure_get : Widget.button Widget.widget -> string
  val flash : Widget.button Widget.widget -> unit
  val invoke : Widget.button Widget.widget -> unit
end