Mercurial > hg > xemacs-beta

comparison tests/frame.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents
children 931aaa7a6b37
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
1 ;;; Test geometry settings for frames
2 (defmacro check-frame-geometry (xx yy)
3 `(loop for frame in (list nil (selected-frame))
4 do
5 (assert (eq (frame-property frame 'top) ,yy))
6 (assert (eq (frame-property frame 'left) ,xx))
7 (assert (eq (frame-property frame 'top) ,yy))
8 (assert (eq (frame-property frame 'left) ,xx))
9 (loop for plist in
10 (list (frame-properties)
11 (frame-properties nil)
12 (frame-properties (selected-frame)))
13 do
14 (assert (eq (plist-get plist 'top) ,yy))
15 (assert (eq (plist-get plist 'left) ,xx)))))
16
17 (loop for (x y) in '((0 0) (1 1) (3 3) (9 9) (10 20) (20 40) (40 80) (100 200))
18 do
19 (loop for frame in (list nil (selected-frame))
20 do
21 (set-frame-properties frame `(left ,x top ,y))
22 (check-frame-geometry x y)
23 (set-frame-property frame 'top (+ y 3))
24 (check-frame-geometry x (+ y 3))
25 (set-frame-property frame 'left (+ x 3))
26 (check-frame-geometry (+ x 3) (+ y 3))))
27