From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 16 Sep 2011 19:03:37 +0000 (-0700)
Subject: Fixed incomplete patch 966a370.
X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~95
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb3303c392cee10823911f6c8d24cbf948ad3402;p=mit-scheme.git

Fixed incomplete patch 966a370.
---

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 86d507381..db4d711cb 100644
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -1315,9 +1315,7 @@ USA.
 	 (%trace "; (update-screen! <gtk-screen>) done: "visibility"\n")
 	 visibility))
       (else
-       (update-name screen)
        (update-widgets screen)
-       (for-each-text-widget screen update-widget-buffer)
        (%trace ";   update drawings\n")
        (if (every (lambda (entry) (update-drawing screen (cdr entry)))
 		  (gtk-screen-drawings screen))