From: u6001 <u6001>
Date: Thu, 28 May 1992 21:35:45 +0000 (+0000)
Subject: Handle GrayScale visual type.
X-Git-Tag: 20090517-FFI~9319
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6ba1b13f35a1eed89dcfb5c974012c0eee2fe2b0;p=mit-scheme.git

Handle GrayScale visual type.
---

diff --git a/v7/src/6001/picture.scm b/v7/src/6001/picture.scm
index d2b196858..965af2654 100644
--- a/v7/src/6001/picture.scm
+++ b/v7/src/6001/picture.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/picture.scm,v 1.6 1992/04/13 19:19:13 hal Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/picture.scm,v 1.7 1992/05/28 21:35:45 u6001 Exp $
 
 Copyright (c) 1991-92 Massachusetts Institute of Technology
 
@@ -110,7 +110,8 @@ MIT in each case. |#
 			       (x-graphics/display window))
 			      '6001-GRAY-MAP
 			      gm)))))
-      (cond ((find-info visual-class:static-gray 256 256)
+      (cond ((or (find-info visual-class:static-gray 256 256)
+		 (find-info visual-class:gray-scale 256 256))
 	     (make-gray-map 256))
 	    ((find-info visual-class:pseudo-color 250 256)
 	     (make-gray-map 128))