From 75bc9bd7182bc828a070611ef36284d85d0088a6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 12 Nov 2010 20:36:54 -0700
Subject: [PATCH] use low-priority callback for gears increment so events are
 handled

---
 collects/sgl/examples/gears.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/sgl/examples/gears.rkt b/collects/sgl/examples/gears.rkt
index cba4b9b31e..71d6f88a49 100644
--- a/collects/sgl/examples/gears.rkt
+++ b/collects/sgl/examples/gears.rkt
@@ -335,7 +335,7 @@
 	   (gl-flush)))
 	(when step?
 	  (set! step? #f)
-	  (queue-callback (lambda x (send this run))))))
+	  (queue-callback (lambda x (send this run)) #f))))
 
     (super-instantiate () (style '(gl no-autoclear)))))
 (define (f)