core-text: change metrics>dim not to ceiling.

master
John Benediktsson 2020-05-16 09:58:42 -07:00
parent 4353b05cf1
commit 824e239915
1 changed files with 1 additions and 3 deletions

View File

@ -77,9 +77,7 @@ render-loc render-dim ;
compute-height ;
: metrics>dim ( bounds -- dim )
[ width>> ] [ [ ascent>> ] [ descent>> ] bi + ] bi
[ ceiling >integer ]
bi@ 2array ;
[ width>> ] [ [ ascent>> ] [ descent>> ] bi + ] bi 2array ;
: fill-background ( context font dim -- )
[ background>> >rgba-components CGContextSetRGBFillColor ]