[plt-scheme] nesting editors?

How do I nest text editors.  This doesn't work.


(define f (instantiate frame% ("Simple Edit" #f 200 200)))
(define c (instantiate editor-canvas% (f)))
(define t (instantiate text% ()))
(define t2 (instantiate text% ()))
(send c set-editor t)
(send f show #t)

(send t insert "test")
(send t2 insert "ing")
(send t insert t2)


- dr