[Gtk2hs-commit] gtk2hs/demo/unicode Arabic.hs,1.8,1.9

[Axel S. <as...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/demo/unicode
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3302

Modified Files:
	Arabic.hs 
Log Message:
Simplyfied this example for teaching purposes.


Index: Arabic.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/demo/unicode/Arabic.hs,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Arabic.hs	11 Apr 2003 15:14:06 -0000	1.8
+++ Arabic.hs	3 Dec 2004 10:13:31 -0000	1.9
@@ -8,17 +8,16 @@
   initGUI
   dia <- dialogNew
   dialogAddButton dia stockYes ResponseYes
-  noBut <- buttonNewFromStock stockNo
-  dialogAddActionWidget dia noBut ResponseCancel
-  widgetShow noBut
+  dialogAddButton dia stockNo ResponseNo
   contain <- dialogGetUpper dia
   theText <- labelNew Nothing 
   labelSetMarkup theText arabic
   boxPackStartDefaults contain theText
-  widgetShow theText
-  noBut `onClicked` yell
-  dialogRun dia
-  return ()
+  widgetShowAll dia
+  res <- dialogRun dia
+  case res of
+    ResponseNo -> yell
+    _ -> return ()
 
 arabic :: Markup
 arabic = markSpan [FontSize $ FSPoint 48]  $