From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 20 Jul 2011 17:48:44 +0000 (-0700)
Subject: Use gdk_window_process_all_updates; keep animations moving.
X-Git-Tag: mit-scheme-pucked-9.2.12~672
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aaac1182568b1c6e422d20037b881c3f9c09d659;p=mit-scheme.git

Use gdk_window_process_all_updates; keep animations moving.
---

diff --git a/src/gtk/gtkio.c.stay b/src/gtk/gtkio.c.stay
index e6d70b511..198e3db6e 100644
--- a/src/gtk/gtkio.c.stay
+++ b/src/gtk/gtkio.c.stay
@@ -409,6 +409,9 @@ run_gtk (unsigned long registry, double time)
       if (fdstr[0] != '\0')
 	g_free (fdstr);
     }
+  /* Force expose event delivery, so that animations continue to move
+     even when Scheme is not "idle". */
+  gdk_window_process_all_updates ();
 
   /* The c-call primitive has arranged for c-call-continue to run (and
      thus Scm_run_gtk_continue) when Scheme continues. */