From 6ba1b13f35a1eed89dcfb5c974012c0eee2fe2b0 Mon Sep 17 00:00:00 2001
From: u6001 <u6001>
Date: Thu, 28 May 1992 21:35:45 +0000
Subject: [PATCH] Handle GrayScale visual type.

---
 v7/src/6001/picture.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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))
-- 
2.25.1