Haskell gtk2hs 关闭 aboutDialogs

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