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 f7c9f2a7999972cc2f2da44ae21c90b875afd682..2990712cc11687272bfc0c1b26d56cbfb7aa3502 100644 (file)
--- 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 c296418490eecf5010c6d2227e630bb2d73877b9..b4fa90a3e25586960b973fbc8cf4690688238e37 100644 (file)
--- 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)