# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 996065110 0
# Node ID 58603538f19605eec8a3f8a2ee975761c3457bdc
# Parent  0810268a51b33bbbeb083f125a0e85c532be6166
(Fx_file_dialog): Block/unblock input while processing
events so that we get a chance of processing expose events.

diff -r 0810268a51b3 -r 58603538f196 src/xfns.c
--- a/src/xfns.c	Wed Jul 25 12:04:25 2001 +0000
+++ b/src/xfns.c	Wed Jul 25 12:45:10 2001 +0000
@@ -11256,10 +11256,18 @@
       XmListSetPos (list, item_pos);
     }
 
-  /* Process events until the user presses Cancel or OK.  */
+  /* Process events until the user presses Cancel or OK.  Block
+     and unblock input here so that we get a chance of processing
+     expose events.  */
+  UNBLOCK_INPUT;
   result = 0;
   while (result == 0)
-    XtAppProcessEvent (Xt_app_con, XtIMAll);
+    {
+      BLOCK_INPUT;
+      XtAppProcessEvent (Xt_app_con, XtIMAll);
+      UNBLOCK_INPUT;
+    }
+  BLOCK_INPUT;
 
   /* Get the result.  */
   if (result == XmCR_OK)