Mercurial > hg > xemacs-beta
view tests/frame.el @ 1230:78781398fc4c
[xemacs-hg @ 2003-01-23 10:09:41 by michaels]
2003-01-10 Mike Sperber <mike@xemacs.org>
* window-xemacs.el: Revert his change
2003-01-10 Mike Sperber <mike@xemacs.org>
* window-xemacs.el (window-reduce-to-one): Rewrite in terms of
`delete-other-windows.'
(window-find-buffer-subwindow): Add.
It caused subtle breakage. (And add a comment to that effect.)
author | michaels |
---|---|
date | Thu, 23 Jan 2003 10:09:41 +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))))