Haskell gtk2hs关闭aboutDialogs

Question

我在使用gtk2hs中aboutDialogs的关闭按钮时遇到了一些问题。以下是我的代码

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

这会显示aboutDialog，但close按钮根本不起作用。我找不到太多关于这方面的信息，也不知道如何让关闭按钮起作用。

干杯乔什。

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演示为起点，所以代码甚至变量名可能仍然与之匹配。