Mercurial > hg > xemacs-beta

view tests/frame.el @ 4956:3461165c79be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix compile errors due to mismatched string pointer types -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-01-28 Ben Wing <ben@xemacs.org> * device-x.c (x_init_device): * emodules.c (emodules_load): * emodules.c (emodules_doc_subr): * emodules.c (emodules_doc_sym): * emodules.h: Make the externally-called functions emodules_doc_sym() and emodules_doc_subr() take Ascbyte * pointers since they're usually passed string constants and we can't guarantee the encoding if it's not ASCII. Fix pointer type in calls to dll_variable(), etc.
author Ben Wing <ben@xemacs.org>
date Thu, 28 Jan 2010 01:15:10 -0600
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))))