#| -*-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
(export (edwin)
os/interprogram-cut
os/interprogram-paste
+ x-root-window-size
x-screen-auto-raise
x-screen-ignore-focus-button?
x-selection-timeout
;;; -*-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
;;;
(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