<gadget-metrics> ( gadget dim -- metrics )

Vocabulary

ui.baseline-alignment.private

Inputs

gadget	an object
dim	an object

Outputs

metrics

an object

Definition

USING: kernel math sequences ui.baseline-alignment ;

IN: ui.baseline-alignment.private

: <gadget-metrics> ( gadget dim -- metrics )
    second swap [ baseline ] [ cap-height ] bi
    [ dup [ 2dup - ] [ f ] if ] dip gadget-metrics boa ; inline