Re: [wxhaskell-users] A problem and a segfault.

[D.V.]

And after seeing a post on the list about this same problem, I've
found a way around :

-- Bonjour List,
-- 
-- I've got this program which segfaults. If you remove fontSize:=10
it runs, but the widgets completely ignore the size I giv e them
-- 
-- Here's the code:

module Main where

import Control.Monad

import Graphics.UI.WX hiding (when)
import Graphics.UI.WXCore hiding (when)
import Graphics.UI.WXCore.WxcTypes

stats = do
  dlg <- frame [ text := "Title"]
  font <- fontCreate 8 6 0 0 False "" wxFONTENCODING_SYSTEM
  -- wxFONTFAMILY_TELETYPE wxFONTSTYLE_NORMAL wxFONTWEIGHT_NORMAL
  let zone a = do
        tz <-textEntry dlg [ text:="", enabled:=False ,alignment := a ]
        windowSetFont tz font
        return tz
      aligns = replicate 14 AlignLeft
  lzone <- mapM zone aligns

  let zrow l n s = row 5 $ concat $ zipWith3 labzone l n s
      -- I could do better by calculing this from the font... it's
good enough for now.
      zsz s = minsize (sz (s*12+8) 20)
      labzone l n s = if null l then [ zsz s $ widget (lzone !! n) ]
else [ label l,zsz s $ widget (lzone !! n) ]
      form = margin 10 $ column 5 [
          label "titletile",
          zrow ["xxxx:","xxxx:","xxx:","xx:","x:","x:","xxxx.:"]
[0..6] [3,15,1,4,1,1,3],
          zrow ["xxx:","xxx:","xxx:","","xxxxx:","xxx:","xxx:"]
[7..13] [3,3,3,10,1,1,5]
        ]
  set dlg [layout := form ]

main = start stats

================================


Unresolved problem: why did fontSize make the program crash ?

------------------------------------------------------------------------------
BlackBerry&reg; DevCon Americas, Oct. 18-20, San Francisco, CA
Learn about the latest advances in developing for the 
BlackBerry&reg; mobile platform with sessions, labs & more.
See new tools and technologies. Register for BlackBerry&reg; DevCon today!
http://p.sf.net/sfu/rim-devcon-copy1 
_______________________________________________
wxhaskell-users mailing list
wxhaskell-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/wxhaskell-users