带有 imageTag 段错误的 wxhaskell 笔记本

Question

我无法将 imageTab 转换为运行。我得到一个 Segmentation fault: 11。这是我的代码。有人知道该怎么办吗？

import Graphics.UI.WX 
import Graphics.UI.WXCore

main :: IO ()
main = start gui

gui :: IO ()
gui = do
    f  <- frame []
    fp <- panel f []

    nb <- notebook fp []
    page <- panel nb []
    b <- button page [ text := "-"]


    let bm = bitmap "favicon.ico"
    -- check that bitmap is there
    sx <- bitmapGetHeight bm
    print sx

    set f [ layout := container fp $ tabs nb [imageTab "Foo" bm (container page $ fill $ widget b)]]

    -- This works
    --set f [ layout := container fp $ tabs nb [tab "Foo" (container page $ fill $ widget b)]]

Answer 1

这看起来像是一个错误；你最好在 http://sourceforge.net/p/wxhaskell/bugs/

带有 imageTag 段错误的 wxhaskell 笔记本

wxhaskell notebook with imageTag segfaults

haskell

wxhaskell

wxnotebook