text-fits? ( canvas string -- ? )

Vocabulary

pdf.canvas

Inputs

canvas	an object
string	an object

Outputs

?

an object

Definition

USING: accessors kernel math pdf.wrap ui.text ;

IN: pdf.canvas

: text-fits? ( canvas string -- ? )
    [ dup font>> ] [ word-split1 drop ] bi* text-width
    swap avail-width <= ;