sig
  val atom : ?displayof:'a Widget.widget -> string -> Tk.atomId
  val atomname : ?displayof:'a Widget.widget -> Tk.atomId -> string
  val cells : 'a Widget.widget -> int
  val children : 'a Widget.widget -> Widget.any Widget.widget list
  val class_name : 'a Widget.widget -> string
  val colormapfull : 'a Widget.widget -> bool
  val containing :
    x:int ->
    y:int -> ?displayof:'a Widget.widget -> unit -> Widget.any Widget.widget
  val depth : 'a Widget.widget -> int
  val exists : 'a Widget.widget -> bool
  val fpixels : 'a Widget.widget -> length:Tk.units -> float
  val geometry : 'a Widget.widget -> string
  val height : 'a Widget.widget -> int
  val id : 'a Widget.widget -> string
  val interps : ?displayof:'a Widget.widget -> unit -> string list
  val ismapped : 'a Widget.widget -> bool
  val manager : 'a Widget.widget -> string
  val name : 'a Widget.widget -> string
  val parent : 'a Widget.widget -> Widget.any Widget.widget
  val pathname :
    ?displayof:'a Widget.widget -> string -> Widget.any Widget.widget
  val pixels : 'a Widget.widget -> length:Tk.units -> int
  val pointerx : 'a Widget.widget -> int
  val pointerxy : 'a Widget.widget -> int * int
  val pointery : 'a Widget.widget -> int
  val reqheight : 'a Widget.widget -> int
  val reqwidth : 'a Widget.widget -> int
  val rgb : 'a Widget.widget -> color:Tk.color -> int * int * int
  val rootx : 'a Widget.widget -> int
  val rooty : 'a Widget.widget -> int
  val screen : 'a Widget.widget -> string
  val screencells : 'a Widget.widget -> int
  val screendepth : 'a Widget.widget -> int
  val screenheight : 'a Widget.widget -> int
  val screenmmheight : 'a Widget.widget -> int
  val screenmmwidth : 'a Widget.widget -> int
  val screenvisual : 'a Widget.widget -> string
  val screenwidth : 'a Widget.widget -> int
  val server : 'a Widget.widget -> string
  val toplevel : 'a Widget.widget -> Widget.toplevel Widget.widget
  val viewable : 'a Widget.widget -> bool
  val visual : 'a Widget.widget -> string
  val visualid : 'a Widget.widget -> int
  val visualsavailable : ?includeids:int list -> 'a Widget.widget -> string
  val vrootheight : 'a Widget.widget -> int
  val vrootwidth : 'a Widget.widget -> int
  val vrootx : 'a Widget.widget -> int
  val vrooty : 'a Widget.widget -> int
  val width : 'a Widget.widget -> int
  val x : 'a Widget.widget -> int
  val y : 'a Widget.widget -> int
  val contained : x:int -> y:int -> 'a Widget.widget -> bool
end