From d67d182e05c407c0926d0cd4f5360d6b656e3158 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 May 1997 00:18:02 +0000
Subject: [PATCH] Add X-specific operation to return the visual-info data
 structures for a display, and a structure definition for these structures.

---
 v7/src/runtime/runtime.pkg | 11 +++++++----
 v8/src/runtime/runtime.pkg | 24 +++++++++++++++++++++---
 2 files changed, 28 insertions(+), 7 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index f7c9f2a79..2990712cc 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.277 1997/05/15 00:14:06 cph Exp $
+$Id: runtime.pkg,v 14.278 1997/05/15 00:17:48 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -2299,9 +2299,9 @@ MIT in each case. |#
 	  x-font-structure/name
 	  x-font-structure/start-index
 	  x-geometry-string
-	  x-graphics-device-type
 	  x-graphics-default-display-name
 	  x-graphics-default-geometry
+	  x-graphics-device-type
 	  x-graphics/available?
 	  x-graphics/clear
 	  x-graphics/close-display
@@ -2311,19 +2311,22 @@ MIT in each case. |#
 	  x-graphics/copy-area
 	  x-graphics/device-coordinate-limits
 	  x-graphics/disable-keyboard-focus
+	  x-graphics/discard-events
 	  x-graphics/display
 	  x-graphics/drag-cursor
+	  x-graphics/draw-arc
+	  x-graphics/draw-circle
 	  x-graphics/draw-line
 	  x-graphics/draw-lines
 	  x-graphics/draw-point
 	  x-graphics/draw-points
 	  x-graphics/draw-text
-	  x-graphics/discard-events
 	  x-graphics/enable-keyboard-focus
+	  x-graphics/fill-circle
+	  x-graphics/flush
 	  x-graphics/font-structure
 	  x-graphics/get-colormap
 	  x-graphics/get-default
-	  x-graphics/flush
 	  x-graphics/iconify-window
 	  x-graphics/image-depth
 	  x-graphics/lower-window
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index c29641849..b4fa90a3e 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.283 1997/04/24 06:35:14 cph Exp $
+$Id: runtime.pkg,v 14.284 1997/05/15 00:18:02 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -2299,9 +2299,9 @@ MIT in each case. |#
 	  x-font-structure/name
 	  x-font-structure/start-index
 	  x-geometry-string
-	  x-graphics-device-type
 	  x-graphics-default-display-name
 	  x-graphics-default-geometry
+	  x-graphics-device-type
 	  x-graphics/available?
 	  x-graphics/clear
 	  x-graphics/close-display
@@ -2328,6 +2328,7 @@ MIT in each case. |#
 	  x-graphics/get-colormap
 	  x-graphics/get-default
 	  x-graphics/iconify-window
+	  x-graphics/image-depth
 	  x-graphics/lower-window
 	  x-graphics/map-window
 	  x-graphics/move-cursor
@@ -2357,6 +2358,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?
@@ -2368,7 +2370,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)
-- 
2.25.1