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