Permalink
Browse files

Add NonModalDialog test case (bug #1372529)

darcs-hash:20080217174203-db91e-21a65ad1b1963bca9f741a2087436431b723d28d.gz
  • Loading branch information...
1 parent b5a1698 commit fcaa80e2905cc1715c5d6092733915fb0c4646f2 @kowey kowey committed Feb 17, 2008
Showing with 14 additions and 0 deletions.
  1. +13 −0 bugs/NonModalDialog.hs
  2. +1 −0 bugs/makefile
@@ -0,0 +1,13 @@
+-- Compile with ghc -fglasgow-exts
+-- --make NonModalDialogTest.hs -o
+-- NonModalDialogTest
+
+module Main where
+import Graphics.UI.WX
+main = start $ do
+ f <- frame [ text := "program" ]
+ w <- get f parent -- added line
+ d <- dialog w [ text := "Some dialog" ]
+ let bugtext = unlines [ "Bug: closing these two windows should exit the"
+ , "program, but it does not" ]
+ set d [ visible := True, layout := margin 10 $ label bugtext ]
View
@@ -6,6 +6,7 @@ PREP=#
endif
APPS= \
+ NonModalDialog\
.PHONY: clean

0 comments on commit fcaa80e

Please sign in to comment.