From c39da21be1610517030ff93fe735487c974c0721 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 5 Sep 2011 18:13:20 -0700 Subject: [PATCH] Reversed update-screen-window!'s handling of update-drawing. --- src/gtk-screen/gtk-screen.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm index 13a0242f9..a490aaa6b 100644 --- a/src/gtk-screen/gtk-screen.scm +++ b/src/gtk-screen/gtk-screen.scm @@ -1054,9 +1054,6 @@ USA. (let ((drawing (text-widget-buffer-drawing widget))) (if (not drawing) (error "No drawing:" widget)) (if (update-drawing screen drawing) - (begin - (%trace "; redraw aborted\n") - #f) (begin (update-window widget) ;; un-override? @@ -1065,7 +1062,10 @@ USA. (if (display-style/discard-screen-contents? display-style) (gtk-widget-queue-draw widget)) (gdk-window-process-updates (fix-layout-window widget) #f)) - #t))))))) + #t) + (begin + (%trace "; redraw aborted\n") + #f))))))) (define (update-widget-drawing widget) (%trace "; update-widget-drawing "widget"\n") -- 2.25.1