From b672a92e7b9dbf6c6c0f19639993e18f3aaf6312 Mon Sep 17 00:00:00 2001
From: Hal Abelson <edu/mit/hal>
Date: Mon, 13 Apr 1992 18:24:27 +0000
Subject: [PATCH] Add operation to get x-display object from an X graphics
 device.  Add property list to x-display object.

---
 v7/src/runtime/runtime.pkg  | 5 ++++-
 v7/src/runtime/x11graph.scm | 8 ++++++--
 v8/src/runtime/runtime.pkg  | 5 ++++-
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index eff7935fd..5687f1e14 100644
--- 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 54f206d0a..5d7e3c58b 100644
--- 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 7207d7401..29eafcdef 100644
--- 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
-- 
2.25.1