get-top-level-window

Returns the area's closest frame or dialog ancestor. For a frame or dialog area, the frame or dialog itself is returned.

• (send an-area get-top-level-window) -> frame% or dialog% object