HASKEL

Question

أواجه بعض المشاكل مع الأزرار القريبة من oundialogs في GTK2HS. ها هو الكود الخاص بي

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

هذا يعرض غرامة حول Defialog ، لكن زر الإغلاق لا يعمل على الإطلاق. لم أتمكن من العثور على الكثير حول هذا الموضوع ، وليس لدي أي فكرة عن كيفية الحصول على زر الإغلاق.

هتاف ، جوش.

Answer 1

هذا يعمل بالنسبة لي:

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 Demo كنقطة انطلاق ، وبالتالي فإن الكود وحتى الأسماء المتغيرة ربما لا يزال يتطابق مع ذلك.