[wxhaskell-users] Segmentation fault

[Eric <er...@ma...>]

Dear all,

When I run the following program I get a "Segmentation fault/access 
violation". Can anyone see the problem?

***

main = start gui


gui = do{
    f <- frame [text := ""]
    ;book <- notebook f []
    ;page <- new_page f
    ;set f [layout := tabs book [page]]
    ;set f [position := pt 0 0, clientSize := sz 900 700]
    ;return()}


new_page :: Window a -> IO TabPage
new_page wnd = do
    txt_gui <- textCtrl wnd []
    pnl <- panel wnd []
    empty_bitmap <- bitmapCreateEmpty (sz 1 1) 1
    let tab_page = ("Blank", empty_bitmap, container pnl (fill . widget 
$ txt_gui))
    return tab_page

***

Eric M.