[wxhaskell-users] scrolledWindow

[David R. <dr...@jd...>]

Hello.  I'm unclear as to how to get a scrolledWindow to work properly with
sizers.  In the following example, I don't get a scrollbar, and can't seem
to figure out how to make the size of the ScrolledWindow be smaller than
the size of its contents:

main = start $ do f<- frame [text := "Test"]
                  scrolled <- scrolledWindow f
                              [layout := column 0 $ take 47 labels,
                               scrollRate := size 10 10]
                  quit <- button f [text := "Quit", on command := close f]
                  set f [layout := column 5 [fill $ widget scrolled,
                                             centre $ widget quit]

labels = map (floatLeft . label . ("Label "++) . show) [1..]

I've essentially been trying things at random, but have no real idea as to
how to make this work right.
-- 
David Roundy
http://www.abridgegame.org/darcs