is-enabled? in window<%>

Returns #t if the window is enabled when all of its ancestors are enabled, #f otherwise.

• (send a-window is-enabled?) -> boolean