<pre>on returnsIn  -- put returns into the selection.  -- Insert returns to format the text according to its font and fld width.  put textFont of the selectedField into theFont  put textSize of the selectedField into theSize  put textStyle of the selectedField into theStyle  put width of the selectedField-8 into theWidth  if style of the selectedField is "scrolling" then subtract 16 from theWidth  replaceAll wordWrap(the selection,theWidth,theFont,theSize,theStyle)end returnsIn</pre>