Mercurial > hg > xemacs-beta

view tests/frame.el @ 4375:74e0e1131e01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update window-size computation. 2008-01-02 Mike Sperber <mike@xemacs.org> * window.c (set_window_pixsize): Factor in the modeline when looking at window_min_width. Remove obsolete comment about incorrect use of `default_face_height_and_width'. (change_window_height): Remove obsolete comment about incorrect use of `default_face_height_and_width'.
author Mike Sperber <sperber@deinprogramm.de>
date Wed, 02 Jan 2008 10:12:04 +0100
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))))