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.
------------------------------------------------------------------------------
Open Source Business Conference (OSBC), March 24-25, 2009, San Francisco, CA
-OSBC tackles the biggest issue in open source: Open Sourcing the Enterprise
-Strategies to boost innovation and cut costs with open source participation
-Receive a $600 discount off the registration fee with the source code: SFAD
http://p.sf.net/sfu/XcvMzF8H
_______________________________________________
wxhaskell-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/wxhaskell-users
