From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 12 Jan 1993 21:42:09 +0000 (+0000)
Subject: Define new procedure X-GRAPHICS/WINDOW-ID, which returns the resource
X-Git-Tag: 20090517-FFI~8593
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2e00b8bfc39da63bace4c4c8025d864862542db2;p=mit-scheme.git

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 a2caf39fa..8c278b33e 100644
--- 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 3ecd1874b..fd1679cbd 100644
--- 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)))
 
 ;;;; Font Operations
 
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index a2caf39fa..8c278b33e 100644
--- 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