Haskell gtk2hs fermeture aboutDialogs

J'ai des problèmes avec les boutons de fermeture de aboutDialogs dans gtk2hs. Voici mon codeHaskell gtk2hs fermeture aboutDialogs

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

Ceci affiche le sujet aboutDialog, mais le bouton de fermeture ne fonctionne pas du tout. Je n'étais pas capable de trouver beaucoup à ce sujet, et je n'ai aucune idée de comment faire fonctionner le bouton de fermeture.

Cheers, Josh.

Source

2010-12-01 Josh

Cela fonctionne pour moi:

about = do 
    ad <- aboutDialogNew 
    aboutDialogSetName ad "Horde Test Program" 
    aboutDialogSetVersion ad "1.0" 
    aboutDialogSetAuthors ad $ ["Thomas M. DuBuisson " 
     ++ "<[email protected]>"] 
    aboutDialogSetComments ad $ "" 
    dialogRun ad 
    widgetDestroy ad

Et pour créer ce about dialogue 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 comme point de départ, donc le code et même les noms de variable correspondent probablement encore à cela.

Source

2010-12-01 18:52:22

Merci beaucoup, il s'avère que le problème était en utilisant widgetShowAll au lieu de dialogRun que vous utilisez. Merci! – Josh

Répondre

Questions connexes