Haskell gtk2hs closing aboutDialogs
I'm having some trouble with the close buttons of aboutDialogs in gtk2hs. Here is my code
aboutMenuAction <- xmlGetWidget xml castToMenuItem "menuAbout" onActivateLeaf aboutMenuAction $ do ad <- aboutDialogNew aboutDialogSetName ad "..." aboutDialogSetAuthors ad ["...","..."] widgetShowAll ad
This displays the aboutDialog fine, but the close button doesn't function at all. I wasn't able to find much about this, and have no idea how to get the close button functioning.
This works for 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
And to create that about dialog I have some buttons:
qa <- buttonNewFromStock stockAbout onClicked qa $ about -- ... bb <- hButtonBoxNew containerAdd bb qa
Disclaimer: For this program I took the carsim GTK demo as a starting point, so the code and even variable names probably still match that.