Haskell gtk2hs закрывает aboutDialogs - PullRequest
Новая
       6

Haskell gtk2hs закрывает aboutDialogs

1 голос
/ 01 декабря 2010

У меня проблемы с кнопками закрытия aboutDialogs в gtk2hs.Вот мой код 

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

Это показывает aboutDialog нормально, но кнопка закрытия не работает вообще.Я не смог найти много об этом, и не знаю, как заставить работать кнопку закрытия.

Приветствия, Джош.

1 Ответ

1 голос
/ 01 декабря 2010

Это работает для меня: 

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

И для создания этого about диалога у меня есть несколько кнопок: 

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

Отказ от ответственности: Для этой программы я взял демо carsim GTK в качестве отправной точки, поэтому код и даже имена переменных, вероятно, все еще соответствуют этому.

...