Haskell gtk2hs aboutDialogs chiusura

Question

Sto avendo qualche problema con i pulsanti di chiusura di aboutDialogs in gtk2hs. Ecco il mio codice

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

Questo visualizza la multa aboutDialog, ma il pulsante di chiusura non funziona affatto. Non ero in grado di trovare molto di questo, e non hanno alcuna idea di come ottenere il pulsante di chiusura funzionante.

Saluti, Josh.

Answer 1

Questo funziona per me:

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

E per creare quel dialogo about ho alcuni pulsanti:

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

Diniego: Per questo programma ho preso il CarSim GTK demo come punto di partenza, in modo che i nomi in codice e anche variabili probabilmente ancora corrispondano questo.