[plt-scheme] newbie GUI question

Given this simple layout:


(define f1
   (new frame%
        (label "test frame")
        (parent #f)
        (width 500) (height 500)
        (x 100) (y 100)
        (style '(hide-menu-bar no-resize-border))))

(define p1 (instantiate horizontal-panel% (f1)))

(define m1 (instantiate message% ("No Event" p1)))


(define b1 (instantiate button% ("Left" p1 (lambda (button event)
                                              (send m1 set-label  
"Left Button Click")))))

(send f1 show #t)


How do we resize m1 so that all of the new label text is visible?

Thanks, -dr