multithreading - 我如何在 ghc-7.4 中使用带有 gtk2hs 的线程？

Question

以下程序未按预期运行:

module Main where

import Graphics.UI.Gtk
import Control.Monad.IO.Class (liftIO)
import Control.Concurrent (forkIO)

main = do
    unsafeInitGUIForThreadedRTS
    window <- windowNew
    windowSetDefaultSize window 200 200
    label <- labelNew (Just "Hello")
    forkIO (postGUISync (containerAdd window label))
    on window deleteEvent (liftIO mainQuit >> return True)
    widgetShowAll window
    mainGUI

标签没有添加到窗口。我用-threaded编译。我做错了吗？

Answer 1

我相信 widgetShowAll 只在执行时显示子项，所以如果您的 containerAdd 在那之后发生，它不会出现。我建议在传递给 postGUISync 的操作中明确显示标签，如下所示:

forkIO (postGUISync (containerAdd window label >> widgetShow label))