Haskell gtk2hs aboutDialogs fermeture

Question

Je vais avoir des problèmes avec les boutons de fermeture de aboutDialogs dans gtk2hs. Voici mon code

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

affiche la aboutDialog fines, mais le bouton de fermeture ne fonctionne pas du tout. Je ne pouvais pas trouver beaucoup à ce sujet, et ne savent pas comment obtenir le fonctionnement du bouton de fermeture.

Cheers, Josh.

Answer 1

Cela fonctionne pour moi:

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

Et pour créer ce dialogue about J'ai quelques boutons:

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

Avertissement: Pour ce programme, je pris la CarSim GTK démo en point de départ, de sorte que le code et même les noms de variables correspondent probablement encore que.