1

gtk2hs の aboutDialogs の閉じるボタンに問題があります。これが私のコードです

 aboutMenuAction <- xmlGetWidget xml castToMenuItem "menuAbout"
 onActivateLeaf aboutMenuAction $ do ad <- aboutDialogNew
                                     aboutDialogSetName ad "..."
                                     aboutDialogSetAuthors ad ["...","..."]
                                     widgetShowAll ad

これにより、aboutDialog は正常に表示されますが、閉じるボタンはまったく機能しません。これについてはあまり見つけることができず、閉じるボタンを機能させる方法がわかりません。

乾杯、ジョシュ。

4

1 に答える 1

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 デモを出発点として使用したため、コードと変数名でさえ、おそらくそれと一致しています。

于 2010-12-01T18:52:22.420 に答える