From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 6 Sep 2011 01:13:20 +0000 (-0700)
Subject: Reversed update-screen-window!'s handling of update-drawing.
X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~115
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c39da21be1610517030ff93fe735487c974c0721;p=mit-scheme.git

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 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")