<baseline-gadget> ( baseline cap-height dim -- gadget )

Vocabulary
ui.gadgets.debug

Definition

USING: accessors kernel ;

IN: ui.gadgets.debug

: <baseline-gadget> ( baseline cap-height dim -- gadget )
    baseline-gadget new swap >>dim swap >>cap-height
    swap >>baseline ;