(Fx_file_dialog): Block/unblock input while processing

events so that we get a chance of processing expose events.

diff --git a/src/ChangeLog b/src/ChangeLog
index 76101cce23fdcb6e109a943f364e1fee172c2e04..87b07151e777922d2732d086a201384c5a2bab95 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2001-07-25  Gerd Moellmann  <gerd@gnu.org>
 
+       * xfns.c (Fx_file_dialog): Block/unblock input while processing
+       events so that we get a chance of processing expose events.
+
        * xdisp.c (resize_mini_window): Don't resize while redisplaying.
 
 2001-07-24  Gerd Moellmann  <gerd@gnu.org>

diff --git a/src/xfns.c b/src/xfns.c
index 0d71a16fa6a86701ce91d3892bfd5589d859e029..1713c8ef96320b64f2027ccec03c292c875d1732 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -11256,10 +11256,18 @@ selection dialog's entry field, if MUSTMATCH is non-nil.")
       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)