scx/scheme/xlib/drawable.scm

;; defined in window.c
(import-lambda-definition %get-geometry (Xdisplay Xdrawable)
  "scx_Get_Geometry")

(define (get-geometry drawable)
  (let* ((display (drawable-display drawable))
	 (v (%get-geometry (display-Xdisplay display)
			   (drawable-Xobject drawable))))
    ;; wrap the root-window
    (vector-set! v 0 (make-window (vector-ref v 0) display #f))
    v))

(define (make-geometry-getter num)
  (lambda (drawable)
    (vector-ref (get-geometry drawable) num)))

(define drawable-root (make-geometry-getter 0))
(define drawable-x (make-geometry-getter 1))
(define drawable-y (make-geometry-getter 2))
(define drawable-width (make-geometry-getter 3))
(define drawable-height (make-geometry-getter 4))
(define drawable-border-width (make-geometry-getter 5))
(define drawable-depth (make-geometry-getter 6))