From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Mar 1992 23:58:38 +0000 (+0000)
Subject: Change SCREEN-VISIBLE? to be true for a visibility of
X-Git-Tag: 20090517-FFI~9594
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cbec51ab9a906338ba8c2c3eabfd95c2d86a9bc5;p=mit-scheme.git

Change SCREEN-VISIBLE? to be true for a visibility of
'PARTIALLY-OBSCURED as well as the usual 'VISIBLE.
---

diff --git a/v7/src/edwin/screen.scm b/v7/src/edwin/screen.scm
index b34c7264e..13f4b3c03 100644
--- a/v7/src/edwin/screen.scm
+++ b/v7/src/edwin/screen.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/screen.scm,v 1.98 1992/03/13 12:01:04 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/screen.scm,v 1.99 1992/03/13 23:58:38 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -160,8 +160,9 @@
 (define (window-screen window)
   (editor-frame-screen (window-root-window window)))
 
-(define-integrable (screen-visible? screen)
-  (eq? 'VISIBLE (screen-visibility screen)))
+(define (screen-visible? screen)
+  (or (eq? 'VISIBLE (screen-visibility screen))
+      (eq? 'PARTIALLY-OBSCURED (screen-visibility screen))))
 
 (define-integrable (screen-deleted? screen)
   (eq? 'DELETED (screen-visibility screen)))