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 ->
    ?menu:Widget.menu Widget.widget ->
    ?relief:Tk.relief ->
    ?screen:string ->
    ?takefocus:bool ->
    ?use:string ->
    ?visual:Tk.visual ->
    ?width:int -> 'a Widget.widget -> Widget.toplevel 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 ->
    ?menu:Widget.menu Widget.widget ->
    ?relief:Tk.relief ->
    ?screen:string ->
    ?takefocus:bool ->
    ?use:string ->
    ?visual:Tk.visual -> ?width:int -> Widget.toplevel Widget.widget -> unit
  val configure_get : Widget.toplevel Widget.widget -> string
end