From 045b5b22700641fdc26c162b347b99375bc6e7e0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 29 Jan 1998 05:48:38 +0000
Subject: [PATCH] Add new primitive to return the size of the root window of a
 display.

---
 v7/src/microcode/x11base.c | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 793ba73be..38e4bc28d 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.70 1997/02/05 19:03:58 cph Exp $
+$Id: x11base.c,v 1.71 1998/01/29 05:48:38 cph Exp $
 
-Copyright (c) 1989-97 Massachusetts Institute of Technology
+Copyright (c) 1989-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -1453,6 +1453,19 @@ DEFINE_PRIMITIVE ("X-CLOSE-ALL-DISPLAYS", Prim_x_close_all_displays, 0, 0, 0)
   PRIMITIVE_RETURN (UNSPECIFIC);
 }
 
+DEFINE_PRIMITIVE ("X-DISPLAY-GET-SIZE", Prim_x_display_get_size, 2, 2, 0)
+{
+  PRIMITIVE_HEADER (2);
+  {
+    struct xdisplay * xd = (x_display_arg (1));
+    Display * display = (XD_DISPLAY (xd));
+    long screen = (arg_nonnegative_integer (2));
+    PRIMITIVE_RETURN
+      (cons ((ulong_to_integer (DisplayWidth (display, screen))),
+	     (ulong_to_integer (DisplayHeight (display, screen)))));
+  }
+}
+
 DEFINE_PRIMITIVE ("X-CLOSE-WINDOW", Prim_x_close_window, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
-- 
2.25.1