Haskell GTK2HSは、AboutDialogsを閉じます

Question

私はGTK2HSの概要ボタンの近くのボタンに問題を抱えています。これが私のコードです

 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

免責事項：このプログラムのために、私はそれを取りました カーシム GTKデモが出発点としてデモであるため、コードや変数名はおそらくそれと一致するでしょう。