Haskell Gtk2Hs aboutDialogs cierre

Question

Estoy teniendo algunos problemas con los botones de cierre de aboutDialogs en Gtk2Hs. Aquí está mi código

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

Esto muestra los finos aboutDialog, pero el botón de cierre no funciona en absoluto. Yo no era capaz de encontrar mucho sobre esto, y no tienen idea de cómo llegar al botón de cierre funcionamiento.

Saludos, Josh.

Answer 1

Esto funciona para mí:

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

Y para crear ese diálogo about tengo algunos botones:

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

Renuncia: Para este programa me tomó la CarSim GTK como una demostración punto de partida, por lo que los nombres de código e incluso variables que probablemente todavía coinciden.