From e297fb0389af4b598a8b98568af6fdfe4ed2b267 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 14 Sep 2011 13:35:51 -0700 Subject: [PATCH] Screen-visibility can be DELETED. --- src/gtk-screen/gtk-screen.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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! ) done: no-output\n") 'NO-OUTPUT) - ((eq? (screen-visibility screen) 'OBSCURED) - (update-name screen) - (invalidate-all-drawings! screen) - (%trace "; (update-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! ) done: "visibility"\n") + visibility)) (else (update-name screen) (update-widgets screen) -- 2.25.1