Screen-visibility can be DELETED.

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index a9e374fd3a63d94bc833614f4e2ef59bd745d1fb..5fbc72fe0d2624d5c046a859d934ff4565f63b5e 100644 (file)
--- 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)