     [ height>> ] map-sum ;
 
 M: paragraph pref-dim*
-    wrap-paragraph [ max-line-width ] [ sum-line-heights ] bi 2array ;
+    wrapped>> [ max-line-width ] [ sum-line-heights ] bi 2array ;
 
 : line-y-coordinates ( wrapped-paragraph -- ys )
     0 [ height>> + ] accumulate nip ;

INSTANCE: word-break-gadget word-break

! A gadget that arranges its children in a word-wrap style.
TUPLE: paragraph < gadget margin ;

: <paragraph> ( margin -- gadget )
    paragraph new

    ] dip '[ _ + layout-word ] 3each ;

M: paragraph layout*
    wrapped>> dup line-y-coordinates [ layout-line ] 2each ;

M: paragraph baseline
    wrapped>> [ f ] [ first baseline>> ] if-empty ;

M: paragraph cap-height pack-cap-height ;

PRIVATE>
