From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 14 Sep 2011 20:35:51 +0000 (-0700)
Subject: Screen-visibility can be DELETED.
X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~104
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e297fb0389af4b598a8b98568af6fdfe4ed2b267;p=mit-scheme.git

Screen-visibility can be DELETED.
---

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index a9e374fd3..5fbc72fe0 100644
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -1354,11 +1354,13 @@ USA.
        (invalidate-all-drawings! screen)
        (%trace "; (update-screen! <gtk-screen>) done: no-output\n")
        'NO-OUTPUT)
-      ((eq? (screen-visibility screen) 'OBSCURED)
-       (update-name screen)
-       (invalidate-all-drawings! screen)
-       (%trace "; (update-screen! <gtk-screen>) done: completely obscured\n")
-       'INVISIBLE)
+      ((not (memq (screen-visibility screen) '(VISIBLE PARTIALLY-OBSCURED)))
+       (let ((visibility (screen-visibility screen)))
+	 (if (not (eq? visibility 'DELETED))
+	     (update-name screen))
+	 (invalidate-all-drawings! screen)
+	 (%trace "; (update-screen! <gtk-screen>) done: "visibility"\n")
+	 visibility))
       (else
        (update-name screen)
        (update-widgets screen)