sig
  val create :
    ?name:string ->
    ?background:Tk.color ->
    ?borderwidth:int ->
    ?clas:string ->
    ?colormap:Tk.colormap ->
    ?container:bool ->
    ?cursor:Tk.cursor ->
    ?height:int ->
    ?highlightbackground:Tk.color ->
    ?highlightcolor:Tk.color ->
    ?highlightthickness:int ->
    ?relief:Tk.relief ->
    ?takefocus:bool ->
    ?visual:Tk.visual ->
    ?width:int -> 'a Widget.widget -> Widget.frame Widget.widget
  val configure :
    ?background:Tk.color ->
    ?borderwidth:int ->
    ?clas:string ->
    ?colormap:Tk.colormap ->
    ?container:bool ->
    ?cursor:Tk.cursor ->
    ?height:int ->
    ?highlightbackground:Tk.color ->
    ?highlightcolor:Tk.color ->
    ?highlightthickness:int ->
    ?relief:Tk.relief ->
    ?takefocus:bool ->
    ?visual:Tk.visual -> ?width:int -> Widget.frame Widget.widget -> unit
  val configure_get : Widget.frame Widget.widget -> string
end