Mercurial > hg > xemacs-beta

comparison tests/frame.el @ 4980:931aaa7a6b37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Martin Buchholz claims tests/frame.el.
author Jerry James <james@xemacs.org>
date Fri, 05 Feb 2010 10:50:06 -0700
parents 360340f9fd5f
children 308d34e9f07d
comparison
equal deleted inserted replaced
4979:4234fd5a7b17 4980:931aaa7a6b37
1 ;;; Test geometry settings for frames 1 ;;; Test geometry setting for frames.
2 ;;;
3 ;;; Copyright (C) 1997 Martin Buchholz
4 ;;;
5 ;;; This file is part of XEmacs.
6 ;;;
7 ;;; XEmacs is free software; you can redistribute it and/or modify it
8 ;;; under the terms of the GNU General Public License as published by
9 ;;; the Free Software Foundation; either version 2, or (at your
10 ;;; option) any later version.
11 ;;;
12 ;;; XEmacs is distributed in the hope that it will be useful, but
13 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 ;;; General Public License for more details.
16 ;;;
17 ;;; You should have received a copy of the GNU General Public License
18 ;;; along with XEmacs; see the file COPYING. If not, write to the Free
19 ;;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 ;;; Boston, MA 02110-1301, USA.
21
2 (defmacro check-frame-geometry (xx yy) 22 (defmacro check-frame-geometry (xx yy)
3 `(loop for frame in (list nil (selected-frame)) 23 `(loop for frame in (list nil (selected-frame))
4 do 24 do
5 (assert (eq (frame-property frame 'top) ,yy)) 25 (assert (eq (frame-property frame 'top) ,yy))
6 (assert (eq (frame-property frame 'left) ,xx)) 26 (assert (eq (frame-property frame 'left) ,xx))
22 (check-frame-geometry x y) 42 (check-frame-geometry x y)
23 (set-frame-property frame 'top (+ y 3)) 43 (set-frame-property frame 'top (+ y 3))
24 (check-frame-geometry x (+ y 3)) 44 (check-frame-geometry x (+ y 3))
25 (set-frame-property frame 'left (+ x 3)) 45 (set-frame-property frame 'left (+ x 3))
26 (check-frame-geometry (+ x 3) (+ y 3)))) 46 (check-frame-geometry (+ x 3) (+ y 3))))
27