From 35c09727d121d324c863cb8758623d4a78db8016 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 8 Mar 2012 11:26:46 -0700 Subject: [PATCH] Fix expose events that arrive before a fix-layout's drawing. --- src/gtk/fix-layout.scm | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) 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 ) color #!optional state) -- 2.25.1