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.
|
