Implement procedure to return the size of the display root window.
authorChris Hanson <org/chris-hanson/cph>
Thu, 29 Jan 1998 06:05:44 +0000 (06:05 +0000)
committerChris Hanson <org/chris-hanson/cph>
Thu, 29 Jan 1998 06:05:44 +0000 (06:05 +0000)
v7/src/edwin/edwin.pkg
v7/src/edwin/xterm.scm

index 50f29dc9175539f2fedb03bd57fd2035a2befcdd..389a0eb761f131fc15e3302df44ca68e702853a7 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.218 1998/01/03 05:03:18 cph Exp $
+$Id: edwin.pkg,v 1.219 1998/01/29 06:05:35 cph Exp $
 
 Copyright (c) 1989-98 Massachusetts Institute of Technology
 
@@ -1016,6 +1016,7 @@ MIT in each case. |#
     (export (edwin)
            os/interprogram-cut
            os/interprogram-paste
+           x-root-window-size
            x-screen-auto-raise
            x-screen-ignore-focus-button?
            x-selection-timeout
index 20765231fdc8d24f3aaae3db5377d02a675575ec..83121eb3fa00f80b0507c39944f6d71366bea2a6 100644 (file)
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: xterm.scm,v 1.54 1996/10/24 16:29:46 cph Exp $
+;;;    $Id: xterm.scm,v 1.55 1998/01/29 06:05:44 cph Exp $
 ;;;
 ;;;    Copyright (c) 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -57,6 +57,7 @@
   (x-display-descriptor 1)
   (x-display-flush 1)
   (x-display-get-default 3)
+  (x-display-get-size 2)
   (x-display-process-events 2)
   (x-display-sync 2)
   (x-get-atom-name 2)
     (if sign
        (string-head geometry sign)
        geometry)))
+
+(define (x-root-window-size)
+  (x-display-get-size (or (get-x-display) (error "Unable to open display."))
+                     0))
 \f
 ;;; According to the Xlib manual, we're not allowed to draw anything
 ;;; on the window until the first Expose event arrives.  The manual