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