Mercurial > hg > xemacs-beta

view tests/frame.el @ 1692:6265c9c31f53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-09-18 05:13:54 by youngs] 2003-09-18 Steve Youngs <youngs@xemacs.org> * configure: Re-generate after Martin's configure.in patch. 2003-09-13 Martin Buchholz <martin@xemacs.org> * configure.in (OS_RELEASE): Add support for SunOS 5.10. On current OSes produced by Sun, `uname -r' prints "5.9". It seems likely that on future OSes, `uname -r' will print "5.10". We need to accept multi-digit release numbers. 2003-09-13 Martin Buchholz <martin@xemacs.org> * s/sol2.h: Use OS_RELEASE=os_release_major*100+os_release_minor
author youngs
date Thu, 18 Sep 2003 05:14:00 +0000
parents 360340f9fd5f
children 931aaa7a6b37
line wrap: on
line source

;;; Test geometry settings for frames
(defmacro check-frame-geometry (xx yy)
  `(loop for frame in (list nil (selected-frame))
	 do
	 (assert (eq (frame-property frame 'top)  ,yy))
	 (assert (eq (frame-property frame 'left) ,xx))
	 (assert (eq (frame-property frame 'top)  ,yy))
	 (assert (eq (frame-property frame 'left) ,xx))
	 (loop for plist in
	       (list (frame-properties)
		     (frame-properties nil)
		     (frame-properties (selected-frame)))
	       do
	       (assert (eq (plist-get plist 'top)  ,yy))
	       (assert (eq (plist-get plist 'left) ,xx)))))

(loop for (x y) in '((0 0) (1 1) (3 3) (9 9) (10 20) (20 40) (40 80) (100 200))
      do
      (loop for frame in (list nil (selected-frame))
	    do
	    (set-frame-properties frame `(left ,x top ,y))
	    (check-frame-geometry x y)
	    (set-frame-property frame 'top (+ y 3))
	    (check-frame-geometry x (+ y 3))
	    (set-frame-property frame 'left (+ x 3))
	    (check-frame-geometry (+ x 3) (+ y 3))))