[
over ?line-break
over [ font>> ] [ avail-width ] bi visual-wrap
- over avail-lines short cut
+ over avail-lines cramp cut
[ draw-text ] [ "" concat-as ] bi*
] change-string dup string>> empty? [ drop f ] when ;
[ { } ] [ over [ font>> ] [ width ] bi visual-wrap ]
if-empty
] dip [ prefix ] when*
- over avail-lines short cut
+ over avail-lines cramp cut
[ draw-text ] [ "" concat-as ] bi*
] change-string dup string>> empty? [ drop f ] when ;