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