sig
  val cast : 'a Gobject.obj -> Gdk.window
  val get_parent : Gdk.window -> Gdk.window
  val get_position : Gdk.window -> int * int
  val get_pointer_location : Gdk.window -> int * int
  val root_parent : unit -> Gdk.window
  val clear : Gdk.window -> unit
  val get_xwindow : [> `drawable ] Gobject.obj -> Gdk.xid
  type background_pixmap =
      [ `NONE | `PARENT_RELATIVE | `PIXMAP of Gdk.pixmap ]
  val set_back_pixmap : Gdk.window -> Gdk.Window.background_pixmap -> unit
  val set_cursor : Gdk.window -> Gdk.cursor -> unit
  val get_visual : Gdk.window -> Gdk.visual
end