Define new procedure X-GRAPHICS/WINDOW-ID, which returns the resource

ID of the X window.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index a2caf39fa1685334e80fe7f6eb27296500a78309..8c278b33e37537b1a35b7de70c3dc1954cd7ed83 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.168 1993/01/07 21:00:12 cph Exp $
+$Id: runtime.pkg,v 14.169 1993/01/12 21:42:09 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2178,6 +2178,7 @@ MIT in each case. |#
          x-graphics/set-mouse-shape
          x-graphics/set-window-name
          x-graphics/starbase-filename
+         x-graphics/window-id
          x-graphics/withdraw-window
          x-graphics:auto-raise?
          x-image/destroy

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index 3ecd1874b0b404fbb3190e00e6f914ad43778454..fd1679cbd018d965c02008f221fa5a088a6840ff 100644 (file)
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: x11graph.scm,v 1.25 1992/09/22 22:42:14 cph Exp $
+$Id: x11graph.scm,v 1.26 1993/01/12 21:42:01 cph Exp $
 
-Copyright (c) 1989-92 Massachusetts Institute of Technology
+Copyright (c) 1989-93 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -52,6 +52,7 @@ MIT in each case. |#
   (x-window-beep 1)
   (x-window-clear 1)
   (x-window-iconify 1)
+  (x-window-id 1)
   (x-window-lower 1)
   (x-window-map 1)
   (x-window-query-pointer 1)
@@ -649,6 +650,9 @@ MIT in each case. |#
 
 (define (x-graphics/starbase-filename device)
   (x-window-starbase-filename (x-graphics-device/xw device)))
+
+(define (x-graphics/window-id device)
+  (x-window-id (x-graphics-device/xw device)))
 \f
 ;;;; Font Operations
 

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index a2caf39fa1685334e80fe7f6eb27296500a78309..8c278b33e37537b1a35b7de70c3dc1954cd7ed83 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.168 1993/01/07 21:00:12 cph Exp $
+$Id: runtime.pkg,v 14.169 1993/01/12 21:42:09 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2178,6 +2178,7 @@ MIT in each case. |#
          x-graphics/set-mouse-shape
          x-graphics/set-window-name
          x-graphics/starbase-filename
+         x-graphics/window-id
          x-graphics/withdraw-window
          x-graphics:auto-raise?
          x-image/destroy