ハスケルgtk2hs閉じるaboutDialogs

Question

gtk2hsのaboutDialogのクローズボタンに問題があります。ここに私のコードです

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のデモを取ったが、そのため、コードと変数名はおそらくまだそれと一致しています。