Haskell gtk2hs Schließen aboutDialogs

Question

Ich habe einige Probleme mit der Schließen-Button von aboutDialogs in gtk2hs. Hier ist mein Code

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

Dies zeigt die aboutDialog in Ordnung, aber die Schließen-Schaltfläche funktioniert nicht bei allen. Ich war nicht in der Lage, viel darüber zu finden, und haben keine Ahnung, wie die Schließen-Schaltfläche Funktion erhalten.

Cheers, Josh.

Answer 1

Dies funktioniert für mich:

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

Und den about Dialog erstellen Ich habe einige Tasten:

qa <- buttonNewFromStock stockAbout
onClicked qa $ about
-- ...
bb <- hButtonBoxNew
containerAdd bb qa

Disclaimer: Für dieses Programm habe ich die CarSim GTK Demo als Ausgangspunkt, so dass wahrscheinlich noch der Code und sogar Variablennamen entsprechen.