<metrics-gadget> ( text font -- gadget )

Vocabulary

ui.gadgets.debug

Inputs

text	an object
font	an object

Outputs

gadget

an object

Definition

USING: accessors kernel ui.gadgets.labels ;

IN: ui.gadgets.debug

: <metrics-gadget> ( text font -- gadget )
    [ <label> ] dip >>font metrics-paint >>boundary ;