From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Thu, 8 Mar 2012 18:26:46 +0000 (-0700)
Subject: Fix expose events that arrive before a fix-layout's drawing.
X-Git-Tag: mit-scheme-pucked-9.2.12~595
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=35c09727d121d324c863cb8758623d4a78db8016;p=mit-scheme.git

Fix expose events that arrive before a fix-layout's drawing.
---

diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm
index 44d053070..05810e6eb 100644
--- a/src/gtk/fix-layout.scm
+++ b/src/gtk/fix-layout.scm
@@ -469,12 +469,16 @@ USA.
 	(view (fix-layout-view layout)))
     (let ((offx (fix-rect-x view))
 	  (offy (fix-rect-y view)))
-      (%trace2 ";expose area "width"x"height" "x","y
-	       " of "layout".\n")
-      (drawing-expose drawing layout window
-		      (make-fix-rect
-		       (fix:+ x offx) (fix:+ y offy)
-		       width height)))))
+      (if drawing
+	  (begin
+	    (%trace2 ";expose area "width"x"height" "x","y
+		     " of "layout".\n")
+	    (drawing-expose drawing layout window
+			    (make-fix-rect
+			     (fix:+ x offx) (fix:+ y offy)
+			     width height)))
+	  (%trace2 ";";expose area "width"x"height" "x","y
+		     " of "layout" (no drawing!).\n")))))
 
 (define-method set-gtk-widget-bg-color! ((widget <fix-layout>) color
 					 #!optional state)