Просто нужен базовый пример текстового поля%, которое переносит ввод

(define blogPost%
  (class horizontal-panel%
    (super-new)
    (define (callback button event)
      (define title-new-value (send titleoutput get-value))
      (define new-value (send output get-value))
      (save title-new-value new-value))
      ;;(display title-new-value)
      ;;(display new-value))
    (define button (new button% (label "Submit")
                        (vert-margin 0)
                        (parent this)
                        (callback callback)))
    (define titleoutput (new text-field% (label "    title")
                             (min-height 20)
                             (min-width 200)
                             (parent this)))
    (define output (new text-field% (label "blog")
                        (min-height 450)
                        (min-width 400)
                        (stretchable-width 300)
                        (vert-margin 0)
                        (parent this)))
    ))


(define f (new frame% (label "prism blog post GUI") (min-width 400) (min-height 500)))

(define tib (new blogPost%
                 (parent f)))

(send f show #t)

это еще не все, в основном это сохраняет ввод пользователя в базу данных, которую мы планируем иметь доступной и выводить на экран. Однако, как и пользователь, при вводе текста в текстовое поле просто печатает горизонтально на одной строке, и он никогда не переносит слова, и кнопка ввода не переходит на новую строку. эта проблема исправима?