diff --git a/basis/ui/gadgets/labels/labels.factor b/basis/ui/gadgets/labels/labels.factor index 0b4c060633..1d01cd4d68 100644 --- a/basis/ui/gadgets/labels/labels.factor +++ b/basis/ui/gadgets/labels/labels.factor @@ -52,11 +52,18 @@ M: label string<< ( string label -- ) M: label pref-dim* >label< text-dim ; +label< dup string? [ first ] unless line-metrics ; + +PRIVATE> + M: label baseline - font>> font-metrics ascent>> round ; + label-metrics ascent>> round ; M: label cap-height - font>> font-metrics cap-height>> round ; + label-metrics cap-height>> round ; M: label draw-gadget* >label<