sig
  val aspect_get : Widget.toplevel Widget.widget -> int * int * int * int
  val aspect_set :
    Widget.toplevel Widget.widget ->
    minnum:int -> mindenom:int -> maxnum:int -> maxdenom:int -> unit
  val client_get : Widget.toplevel Widget.widget -> string
  val client_set : Widget.toplevel Widget.widget -> name:string -> unit
  val colormapwindows_get :
    Widget.toplevel Widget.widget -> Widget.any Widget.widget list
  val colormapwindows_set :
    Widget.toplevel Widget.widget -> windows:'a Widget.widget list -> unit
  val command_clear : Widget.toplevel Widget.widget -> unit
  val command_get : Widget.toplevel Widget.widget -> string list
  val command_set : Widget.toplevel Widget.widget -> string list -> unit
  val deiconify : Widget.toplevel Widget.widget -> unit
  val focusmodel_get : Widget.toplevel Widget.widget -> Tk.focusModel
  val focusmodel_set : Widget.toplevel Widget.widget -> Tk.focusModel -> unit
  val frame : Widget.toplevel Widget.widget -> string
  val geometry_get : Widget.toplevel Widget.widget -> string
  val geometry_set : Widget.toplevel Widget.widget -> string -> unit
  val grid_clear : Widget.toplevel Widget.widget -> unit
  val grid_get : Widget.toplevel Widget.widget -> int * int * int * int
  val grid_set :
    Widget.toplevel Widget.widget ->
    basewidth:int -> baseheight:int -> widthinc:int -> heightinc:int -> unit
  val group_clear : Widget.toplevel Widget.widget -> unit
  val group_get : Widget.toplevel Widget.widget -> Widget.any Widget.widget
  val group_set :
    Widget.toplevel Widget.widget -> leader:'a Widget.widget -> unit
  val iconbitmap_clear : Widget.toplevel Widget.widget -> unit
  val iconbitmap_get : Widget.toplevel Widget.widget -> Tk.bitmap
  val iconbitmap_set : Widget.toplevel Widget.widget -> Tk.bitmap -> unit
  val iconify : Widget.toplevel Widget.widget -> unit
  val iconmask_clear : Widget.toplevel Widget.widget -> unit
  val iconmask_get : Widget.toplevel Widget.widget -> Tk.bitmap
  val iconmask_set : Widget.toplevel Widget.widget -> Tk.bitmap -> unit
  val iconname_get : Widget.toplevel Widget.widget -> string
  val iconname_set : Widget.toplevel Widget.widget -> string -> unit
  val iconposition_clear : Widget.toplevel Widget.widget -> unit
  val iconposition_get : Widget.toplevel Widget.widget -> int * int
  val iconposition_set :
    Widget.toplevel Widget.widget -> x:int -> y:int -> unit
  val iconwindow_clear : Widget.toplevel Widget.widget -> unit
  val iconwindow_get :
    Widget.toplevel Widget.widget -> Widget.toplevel Widget.widget
  val iconwindow_set :
    Widget.toplevel Widget.widget ->
    icon:Widget.toplevel Widget.widget -> unit
  val maxsize_get : Widget.toplevel Widget.widget -> int * int
  val maxsize_set :
    Widget.toplevel Widget.widget -> width:int -> height:int -> unit
  val minsize_get : Widget.toplevel Widget.widget -> int * int
  val minsize_set :
    Widget.toplevel Widget.widget -> width:int -> height:int -> unit
  val overrideredirect_get : Widget.toplevel Widget.widget -> bool
  val overrideredirect_set : Widget.toplevel Widget.widget -> bool -> unit
  val positionfrom_clear : Widget.toplevel Widget.widget -> unit
  val positionfrom_get : Widget.toplevel Widget.widget -> Tk.wmFrom
  val positionfrom_set : Widget.toplevel Widget.widget -> Tk.wmFrom -> unit
  val protocol_clear : Widget.toplevel Widget.widget -> name:string -> unit
  val protocol_set :
    Widget.toplevel Widget.widget ->
    name:string -> command:(unit -> unit) -> unit
  val protocols : Widget.toplevel Widget.widget -> string list
  val resizable_get : Widget.toplevel Widget.widget -> bool * bool
  val resizable_set :
    Widget.toplevel Widget.widget -> width:bool -> height:bool -> unit
  val sizefrom_clear : Widget.toplevel Widget.widget -> unit
  val sizefrom_get : Widget.toplevel Widget.widget -> Tk.wmFrom
  val sizefrom_set : Widget.toplevel Widget.widget -> Tk.wmFrom -> unit
  val state : Widget.toplevel Widget.widget -> string
  val title_get : Widget.toplevel Widget.widget -> string
  val title_set : Widget.toplevel Widget.widget -> string -> unit
  val transient_clear : Widget.toplevel Widget.widget -> unit
  val transient_get :
    Widget.toplevel Widget.widget -> Widget.any Widget.widget
  val transient_set :
    Widget.toplevel Widget.widget -> master:'a Widget.widget -> unit
  val withdraw : Widget.toplevel Widget.widget -> unit
end