vertical-baseline ( pack -- y )


Vocabulary
ui.gadgets.packs.private

Inputs
packan object


Outputs
yan object


Definition
USING: accessors sequences ui.baseline-alignment ;

IN: ui.gadgets.packs.private

: vertical-baseline ( pack -- y )
children>> [ f ] [ first baseline ] if-empty ; inline