Add operation to get x-display object from an X graphics device. Add

property list to x-display object.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index eff7935fdd7505e247e830cff4f4c26bd7269c97..5687f1e14d35f0df60271fa2c8cba67b086f9955 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.145 1992/04/11 23:48:00 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.146 1992/04/13 18:24:27 hal Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -2071,6 +2071,8 @@ MIT in each case. |#
          x-colormap/store-color
          x-colormap/store-colors
          x-colormap?
+         x-display/name
+         x-display/properties
          x-font-structure/all-chars-exist?
          x-font-structure/character-bounds
          x-font-structure/default-char
@@ -2090,6 +2092,7 @@ MIT in each case. |#
          x-graphics/coordinate-limits
          x-graphics/copy-area
          x-graphics/device-coordinate-limits
+         x-graphics/display
          x-graphics/drag-cursor
          x-graphics/draw-line
          x-graphics/draw-point

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index 54f206d0a795f938e36a6a8e05ff60e1f5cd2749..5d7e3c58b9a3362b918736d59ad7de8d231aad64 100644 (file)
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/x11graph.scm,v 1.18 1992/04/01 19:14:09 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/x11graph.scm,v 1.19 1992/04/13 18:24:21 hal Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -258,7 +258,8 @@ MIT in each case. |#
                        (unparse-object state (x-display/name display))))))
   (name false read-only true)
   xd
-  (window-list (make-protection-list) read-only true))
+  (window-list (make-protection-list) read-only true)
+  (properties (make-1d-table) read-only true))
 
 (define (x-graphics/open-display name)
   (let ((name
@@ -387,6 +388,9 @@ MIT in each case. |#
 (define-integrable (x-graphics-device/xw device)
   (x-window/xw (graphics-device/descriptor device)))
 
+(define (x-graphics/display device)
+  (x-window/display (graphics-device/descriptor device)))
+
 (define-integrable (x-graphics-device/xd device)
   (x-display/xd (x-window/display (graphics-device/descriptor device))))
 

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 7207d74017e8fc929434844dafdac2c236838fbf..29eafcdefa1fee42d56b9cde957c513b75c49323 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.145 1992/04/11 23:48:00 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.146 1992/04/13 18:24:27 hal Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -2071,6 +2071,8 @@ MIT in each case. |#
          x-colormap/store-color
          x-colormap/store-colors
          x-colormap?
+         x-display/name
+         x-display/properties
          x-font-structure/all-chars-exist?
          x-font-structure/character-bounds
          x-font-structure/default-char
@@ -2090,6 +2092,7 @@ MIT in each case. |#
          x-graphics/coordinate-limits
          x-graphics/copy-area
          x-graphics/device-coordinate-limits
+         x-graphics/display
          x-graphics/drag-cursor
          x-graphics/draw-line
          x-graphics/draw-point