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