each-parent ( ... gadget quot: ( ... gadget -- ... ? ) -- ... ? )
Factor handbook » UI framework » Building user interfaces » Gadget hierarchy and layouts » Layout basics

Prev:	parents ( gadget -- seq )
Next:	find-parent ( ... gadget quot: ( ... gadget -- ... ? ) -- ... parent )

Vocabulary
ui.gadgets

Inputs

gadget	a gadget
quot	a quotation with stack effect ( ... gadget -- ... ? )

Outputs

?

a boolean

Word description
Applies the quotation to every parent of the gadget, starting from the gadget itself, stopping if the quotation yields f. Outputs t if the iteration completed, and outputs f if it was stopped prematurely.

Definition

USING: kernel sequences ;

IN: ui.gadgets

: each-parent
    ( ... gadget quot: ( ... gadget -- ... ? ) -- ... ? )
    [ parents ] dip all? ; inline