border-metric ( border quot -- n )

Vocabulary

ui.gadgets.borders.private

Inputs

border	an object
quot	an object

Outputs

n

an object

Definition

USING: accessors kernel math sequences ui.gadgets ;

IN: ui.gadgets.borders.private

: border-metric ( border quot -- n )
    [ drop size>> second ] [ [ gadget-child ] dip call ] 2bi dup
    [ + ] [ nip ] if ; inline