[plt-scheme] MrEd bug in tab-panel

This was a bug in `panel:single%', now fixed in SVN.

Thanks!
Matthew

At Mon, 11 Aug 2008 22:37:31 +0200 (CEST), Ivanyi Peter wrote:
> Hi,
> 
> I think there is a bug (somewhere) in MrEd. In the following
> code the height should change and not the width. I think
> somewhere the stretchable-width and stretchable-height
> are "cross-wired".
> 
> Best regards,
> 
> Peter Ivanyi
> 
> -------------------------------------------------------------------------
> 
> (module tab-test-2 mzscheme
>   (require mzlib/class
>            (lib "mred.ss" "mred")
>            (lib "framework.ss" "framework")
>   )
> 
>   (define w (new frame% (label "Hello")
>                  (min-width 200)
>                  (min-height 200)
>                  ))
>   
>   (define tab-panel (new tab-panel% (parent w) (choices
> '("aa"))))
>   
>   (define single-panel (new panel:single% (parent tab-panel)))
>   
>   (define vert1 (new vertical-panel% (parent single-panel))) 
>   (define c1 (new canvas% (min-width 10) (min-height 10) 
>                            (parent vert1)))
>   
>   ; this is the problem !!!!!!!!!!!!!!!!!!!!!!
>   (send vert1 stretchable-height #f)
>   
>   (send w show #t)
> )