find-styled-label ( gadget -- styled-label/f )

Vocabulary

ui.gadgets.panes.private

Inputs

gadget

an object

Outputs

styled-label/f

an object

Definition

USING: accessors kernel sequences ;

IN: ui.gadgets.panes.private

: find-styled-label ( gadget -- styled-label/f )
    dup styled-label?
    [ children>> ?last [ find-styled-label ] [ f ] if* ] unless
    ;