From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 May 1997 00:18:02 +0000 (+0000)
Subject: Add X-specific operation to return the visual-info data structures for
X-Git-Tag: 20090517-FFI~5181
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d67d182e05c407c0926d0cd4f5360d6b656e3158;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 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)