Reversed update-screen-window!'s handling of update-drawing.

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 13a0242f973d6876f29c89371694310bc7709901..a490aaa6b123ae3267831cfffb5c90e51bb786aa 100644 (file)
--- 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")