From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 May 1997 00:14:06 +0000 (+0000)
Subject: Add X-specific operation to return the visual-info data structures for
X-Git-Tag: 20090517-FFI~5182
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6c147dd119ff844d2cca616fd7d21d4b1c62d7ee;p=mit-scheme.git

Add X-specific operation to return the visual-info data structures for
a display, and a structure definition for these structures.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 5a552df98..f7c9f2a79 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.276 1997/04/24 06:35:29 cph Exp $
+$Id: runtime.pkg,v 14.277 1997/05/15 00:14:06 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -2325,6 +2325,7 @@ MIT in each case. |#
 	  x-graphics/get-default
 	  x-graphics/flush
 	  x-graphics/iconify-window
+	  x-graphics/image-depth
 	  x-graphics/lower-window
 	  x-graphics/map-window
 	  x-graphics/move-cursor
@@ -2354,6 +2355,7 @@ MIT in each case. |#
 	  x-graphics/set-mouse-shape
 	  x-graphics/set-window-name
 	  x-graphics/starbase-filename
+	  x-graphics/visual-info
 	  x-graphics/window-id
 	  x-graphics/withdraw-window
 	  x-graphics:auto-raise?
@@ -2365,7 +2367,23 @@ MIT in each case. |#
 	  x-image/height
 	  x-image/set-pixel
 	  x-image/width
-	  x-image?)
+	  x-image?
+	  x-visual-class:direct-color
+	  x-visual-class:gray-scale
+	  x-visual-class:pseudo-color
+	  x-visual-class:static-color
+	  x-visual-class:static-gray
+	  x-visual-class:true-color
+	  x-visual-info/bits-per-rgb
+	  x-visual-info/blue-mask
+	  x-visual-info/class
+	  x-visual-info/colormap-size
+	  x-visual-info/depth
+	  x-visual-info/green-mask
+	  x-visual-info/red-mask
+	  x-visual-info/screen
+	  x-visual-info/visual
+	  x-visual-info/visual-id)
   (initialization (initialize-package!)))
 
 (define-package (runtime starbase-graphics)