Permalink
Browse files

close about dialog on response (ie. hit Close)

  • Loading branch information...
1 parent aa725f3 commit 1c3fa024e53ad7b358fbf47c60cf30b3807ec86d @kfish committed Jul 30, 2010
Showing with 1 addition and 0 deletions.
  1. +1 −0 src/cairo-appbase.hs
View
@@ -74,6 +74,7 @@ main = do
about1 <- get G.castToMenuItem "about1"
aboutdialog1 <- get G.castToAboutDialog "aboutdialog1"
G.onActivateLeaf about1 $ G.widgetShow aboutdialog1
+ G.onResponse aboutdialog1 $ const $ G.widgetHide aboutdialog1
-- fix size
-- G.windowSetResizable window False

0 comments on commit 1c3fa02

Please sign in to comment.