Haskell gtk2hs关闭了关于Dialogs

Question

我在gtk2hs中使用aboutDialogs的关闭按钮时遇到了一些麻烦。这是我的代码

 aboutMenuAction <- xmlGetWidget xml castToMenuItem "menuAbout"
 onActivateLeaf aboutMenuAction $ do ad <- aboutDialogNew
                                     aboutDialogSetName ad "..."
                                     aboutDialogSetAuthors ad ["...","..."]
                                     widgetShowAll ad

这显示aboutDialog正常，但关闭按钮根本不起作用。我无法找到这方面的内容，也不知道如何让关闭按钮正常工作。

干杯，乔什。

Answer 1

这对我有用：

about = do
    ad <- aboutDialogNew
    aboutDialogSetName ad "Horde Test Program"
    aboutDialogSetVersion ad "1.0"
    aboutDialogSetAuthors ad $ ["Thomas M. DuBuisson "
        ++ "<Thomas.DuBuisson@gmail.com>"]
    aboutDialogSetComments ad $ ""
    dialogRun ad
    widgetDestroy ad

要创建about对话框，我有一些按钮：

qa <- buttonNewFromStock stockAbout
onClicked qa $ about
-- ...
bb <- hButtonBoxNew
containerAdd bb qa

免责声明：对于这个程序，我以carsim GTK演示为起点，所以代码甚至变量名称可能仍然匹配。