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