store-typographic-bounds ( metrics width ascent descent leading -- metrics )

Vocabulary

core-text

Inputs

metrics	an object
width	an object
ascent	an object
descent	an object
leading	an object

Outputs

metrics

an object

Definition

USING: accessors combinators ;

IN: core-text

: store-typographic-bounds
    ( metrics width ascent descent leading -- metrics )
    { [ >>width ] [ >>ascent ] [ >>descent ] [ >>leading ] }
    spread ; inline