[wxhaskell-users] TreeCtrl problem

[<wxh...@al...>]

Hello,

I'm attempting to do a simple tree with 2 nodes.  However, the following
is giving me a blank window with 2 tiny white tabs in the upper-left
corner.  Anyone have an idea what I'm missing?

Thanks!

module Main where
                                                                                
import Graphics.UI.WX
import Graphics.UI.WXCore
                                                                                
imageNone :: Int
imageNone = (-1)
                                                                                
main :: IO()
main = start test
                                                                                
test :: IO()
test = do f <- frame [text := "Hello!"]
          tree <- treeCtrl f []
          top <- treeCtrlAddRoot tree "Root" imageNone imageNone
          objectNull
          item <- treeCtrlAppendItem tree top "Child" imageNone imageNone
          objectNull
          set f [layout := widget tree, clientSize := sz 500 300]