`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 clear_area :
Gdk.window -> x:int -> y:int -> width:int -> height:int -> 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`