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演示爲起點，所以代碼甚至變量名稱可能仍然匹配。