Gdk.Display
val default : unit -> display
val window_at_pointer : ?display:display -> unit -> (window * int * int) option