find-windows ( quot: ( world -- ? ) -- seq )

Vocabulary
ui

Inputs

quot	a quotation with stack effect ( world -- ? )

Outputs

seq	a sequence

Word description
Finds all native windows such that the gadget passed to open-window satisfies the quotation, outputting an empty sequence if no such gadget could be found. The front-most native window is the last in the seq.

Definition

USING: accessors assocs kernel namespaces sequences ui.private ;

IN: ui

: find-windows ( quot: ( world -- ? ) -- seq )
[ worlds get-global values ] dip
[ [ dup children>> [ ] [ nip first ] if-empty ] ] dip
compose filter ; inline