September 2005 - mcclim-cvs@common-lisp.net

[mcclim-cvs] CVS update: mcclim/Tests/commands.lisp
by crhodes＠common-lisp.net 30 Sep '05

30 Sep '05

Update of /project/mcclim/cvsroot/mcclim/Tests In directory common-lisp.net:/tmp/cvs-serv25896/Tests Modified Files: commands.lisp Log Message: Whoops. Fix obvious thinko Date: Fri Sep 30 18:02:40 2005 Author: crhodes Index: mcclim/Tests/commands.lisp diff -u mcclim/Tests/commands.lisp:1.1 mcclim/Tests/commands.lisp:1.2 --- mcclim/Tests/commands.lisp:1.1 Fri Sep 30 18:01:32 2005 +++ mcclim/Tests/commands.lisp Fri Sep 30 18:02:33 2005 @@ -35,7 +35,7 @@ (lambda (menu-name gesture item) (incf count) (assert - (and (equal menu-name nil) + (and (equal menu-name "Test") (equal gesture '(:keyboard #\u 0)) (equal (command-menu-item-value item) (lookup-keystroke-command-item gesture 'menu-test-table)))))

1 0

[mcclim-cvs] CVS update: mcclim/Tests/commands.lisp
by crhodes＠common-lisp.net 30 Sep '05

30 Sep '05

Update of /project/mcclim/cvsroot/mcclim/Tests In directory common-lisp.net:/tmp/cvs-serv24976/Tests Added Files: commands.lisp Log Message: Commit untested patch from JQS for command-table-keystroke mapping. Add untested tests for the problem. People with non-mutant mcclim trees and a certain amount of free time would be well advised to run the tests. Date: Fri Sep 30 18:01:32 2005 Author: crhodes

1 0

[mcclim-cvs] CVS update: mcclim/commands.lisp
by crhodes＠common-lisp.net 30 Sep '05

30 Sep '05

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv24976 Modified Files: commands.lisp Log Message: Commit untested patch from JQS for command-table-keystroke mapping. Add untested tests for the problem. People with non-mutant mcclim trees and a certain amount of free time would be well advised to run the tests. Date: Fri Sep 30 18:01:31 2005 Author: crhodes Index: mcclim/commands.lisp diff -u mcclim/commands.lisp:1.54 mcclim/commands.lisp:1.55 --- mcclim/commands.lisp:1.54 Thu Aug 18 06:30:09 2005 +++ mcclim/commands.lisp Fri Sep 30 18:01:30 2005 @@ -471,7 +471,8 @@ (loop for gesture in keystroke-accelerators for item in keystroke-items do (funcall function - (command-menu-item-name item) + (and (slot-boundp item 'menu-name) + (command-menu-item-name item)) gesture item)))))

1 0

[mcclim-cvs] CVS update: mcclim/Apps/Listener/package.lisp
by rschlatte＠common-lisp.net 22 Sep '05

22 Sep '05

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv10205/Apps/Listener Modified Files: package.lisp Log Message: Remove clim-listener:run-listener-process, since it's not used anymore. Also update comment in fix-sbcl Date: Thu Sep 22 13:40:31 2005 Author: rschlatte Index: mcclim/Apps/Listener/package.lisp diff -u mcclim/Apps/Listener/package.lisp:1.1 mcclim/Apps/Listener/package.lisp:1.2 --- mcclim/Apps/Listener/package.lisp:1.1 Sun Jan 2 06:08:46 2005 +++ mcclim/Apps/Listener/package.lisp Thu Sep 22 13:40:31 2005 @@ -3,7 +3,7 @@ (defpackage "CLIM-LISTENER" (:use "CLIM" "CLIM-LISP") - (:export #:run-listener #:run-listener-process #:dev-commands)) + (:export #:run-listener #:dev-commands)) (in-package :clim-listener)

1 0

[mcclim-cvs] CVS update: mcclim/Lisp-Dep/fix-sbcl.lisp
by rschlatte＠common-lisp.net 22 Sep '05

22 Sep '05

Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep In directory common-lisp.net:/tmp/cvs-serv10205/Lisp-Dep Modified Files: fix-sbcl.lisp Log Message: Remove clim-listener:run-listener-process, since it's not used anymore. Also update comment in fix-sbcl Date: Thu Sep 22 13:40:29 2005 Author: rschlatte Index: mcclim/Lisp-Dep/fix-sbcl.lisp diff -u mcclim/Lisp-Dep/fix-sbcl.lisp:1.9 mcclim/Lisp-Dep/fix-sbcl.lisp:1.10 --- mcclim/Lisp-Dep/fix-sbcl.lisp:1.9 Fri Aug 19 23:34:43 2005 +++ mcclim/Lisp-Dep/fix-sbcl.lisp Thu Sep 22 13:40:29 2005 @@ -19,10 +19,9 @@ (export sym :clim-mop)))) -;;; In SBCL the Common Lisp versions of CLASS-OF and FIND-CLASS return -;;; wrappers which the MOP can't grok, so use the PCL versions -;;; instead. - +;;; In SBCL the Common Lisp versions of CLASS-OF and FIND-CLASS used +;;; to return wrappers which the MOP couldn't grok. This has been fixed +;;; for some time, certainly in sbcl 0.9.4. #+nil (eval-when (:compile-toplevel :load-toplevel :execute) (flet ((reexport (symbols)

1 0

[mcclim-cvs] CVS update: mcclim/Backends/beagle/README.txt
by rschlatte＠common-lisp.net 22 Sep '05

22 Sep '05

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle In directory common-lisp.net:/tmp/cvs-serv10205/Backends/beagle Modified Files: README.txt Log Message: Remove clim-listener:run-listener-process, since it's not used anymore. Also update comment in fix-sbcl Date: Thu Sep 22 13:40:30 2005 Author: rschlatte Index: mcclim/Backends/beagle/README.txt diff -u mcclim/Backends/beagle/README.txt:1.18 mcclim/Backends/beagle/README.txt:1.19 --- mcclim/Backends/beagle/README.txt:1.18 Sun Jun 12 18:53:25 2005 +++ mcclim/Backends/beagle/README.txt Thu Sep 22 13:40:30 2005 @@ -118,13 +118,12 @@ 7. -> (setf climi:*default-server-path* :clx) 8. -> (clim-listener:run-listener) 9. CL-USER> (setf climi:*default-server-path* :beagle) -10. CL-USER> (clim-listener:run-listener-process) +10. CL-USER> (clim-listener:run-listener :new-process t) I can get both a CLX and a Beagle Listener running simultaneously. -You can also do a (clim-listener:run-listener-process) in (8) and -then run the other listener from the OpenMCL Listener. -Other variations probably work too, but I haven't experimented too -much. +You can also do a (clim-listener:run-listener :new-process t) in (8) +and then run the other listener from the OpenMCL Listener. Other +variations probably work too, but I haven't experimented too much. (7) isn't actually necessary, since the CLX port appears in the server- path search order before the Beagle port does.

1 0

[mcclim-cvs] CVS update: mcclim/Tests/transformations.lisp
by rstrandh＠common-lisp.net 21 Sep '05

21 Sep '05

Update of /project/mcclim/cvsroot/mcclim/Tests In directory common-lisp.net:/tmp/cvs-serv12191 Modified Files: transformations.lisp Log Message: more tests on transformations. Date: Wed Sep 21 22:18:09 2005 Author: rstrandh Index: mcclim/Tests/transformations.lisp diff -u mcclim/Tests/transformations.lisp:1.1 mcclim/Tests/transformations.lisp:1.2 --- mcclim/Tests/transformations.lisp:1.1 Mon Sep 19 00:12:04 2005 +++ mcclim/Tests/transformations.lisp Wed Sep 21 22:18:06 2005 @@ -54,3 +54,71 @@ (assert (typep (make-3-point-transformation p1 p2 p3 p4 p5 p6) 'transformation)) (assert (typep (make-3-point-transformation* x1 y1 x2 y2 x3 y3 x4 y4 x5 y5 x6 y6) 'transformation)))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; +;;; transformation protocol + +(let* ((t1 (make-rotation-transformation 0)) + (t2 (make-scaling-transformation 1 1))) + (assert (identity-transformation-p t1)) + (assert (identity-transformation-p t2)) + (assert (transformation-equal t1 t2)) + (assert (invertible-transformation-p t1)) + (assert (invertible-transformation-p t2)) + (assert (translation-transformation-p t1)) + (assert (translation-transformation-p t2)) +;;; tests fail +;;; (assert (reflection-transformation-p t1)) +;;; (assert (reflection-transformation-p t2)) + (assert (rigid-transformation-p t1)) + (assert (rigid-transformation-p t2)) + (assert (even-scaling-transformation-p t1)) + (assert (even-scaling-transformation-p t2)) + (assert (scaling-transformation-p t1)) + (assert (scaling-transformation-p t2)) + (assert (rectilinear-transformation-p t1)) + (assert (rectilinear-transformation-p t2)) + (assert (transformation-equal t1 (compose-transformations t1 t2))) + (assert (transformation-equal t1 (invert-transformation t1))) + (assert (transformation-equal t1 (compose-translation-with-transformation t1 0 0))) + (assert (transformation-equal t1 (compose-rotation-with-transformation t1 0))) + (assert (transformation-equal t1 (compose-scaling-with-transformation t1 1 1))) +;;; tests fail +;;; (assert (transformation-equal t1 (compose-transformation-with-translation t1 0 0))) + (assert (transformation-equal t1 (compose-transformation-with-rotation t1 0))) + (assert (transformation-equal t1 (compose-transformation-with-scaling t1 1 1)))) + + +(let ((tr (make-rotation-transformation 0)) + (r (make-rectangle* 10 20 30 40)) + (x 10) (y 20)) + (assert (region-equal r (transform-region tr r))) + (assert (region-equal r (untransform-region tr r))) + (multiple-value-bind (xx yy) (transform-position tr x y) + (assert (= (coordinate x) xx)) + (assert (= (coordinate y) yy))) + (multiple-value-bind (xx yy) (untransform-position tr x y) + (assert (= (coordinate x) xx)) + (assert (= (coordinate y) yy))) + (multiple-value-bind (xx yy) (transform-distance tr x y) + (assert (= (coordinate x) xx)) + (assert (= (coordinate y) yy))) + (multiple-value-bind (xx yy) (untransform-distance tr x y) + (assert (= (coordinate x) xx)) + (assert (= (coordinate y) yy))) + (let ((x2 55) (y2 -20)) + (multiple-value-bind (xx1 yy1 xx2 yy2) (transform-rectangle* tr x y x2 y2) + (assert (= xx1 (min (coordinate x) (coordinate x2)))) + (assert (= yy1 (min (coordinate y) (coordinate y2)))) + (assert (= xx2 (max (coordinate x) (coordinate x2)))) + (assert (= yy2 (max (coordinate y) (coordinate y2))))) + (multiple-value-bind (xx1 yy1 xx2 yy2) (untransform-rectangle* tr x y x2 y2) + (assert (= xx1 (min (coordinate x) (coordinate x2)))) + (assert (= yy1 (min (coordinate y) (coordinate y2)))) + (assert (= xx2 (max (coordinate x) (coordinate x2)))) + (assert (= yy2 (max (coordinate y) (coordinate y2))))))) + + + +

1 0

[mcclim-cvs] CVS update: mcclim/medium.lisp
by rgoldman＠common-lisp.net 20 Sep '05

20 Sep '05

Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv9719 Modified Files: medium.lisp Log Message: Fixed missing check for dashes part of line-style in LINE-STYLE-EQUALP. Date: Tue Sep 20 22:35:59 2005 Author: rgoldman Index: mcclim/medium.lisp diff -u mcclim/medium.lisp:1.54 mcclim/medium.lisp:1.55 --- mcclim/medium.lisp:1.54 Tue Jan 25 00:03:41 2005 +++ mcclim/medium.lisp Tue Sep 20 22:35:59 2005 @@ -585,7 +585,7 @@ (eql (line-style-thickness style1) (line-style-thickness style2)) (eql (line-style-joint-shape style1) (line-style-joint-shape style2)) (eql (line-style-cap-shape style1) (line-style-cap-shape style2)) - (eql (line-style-thickness style1) (line-style-thickness style2)))) + (eql (line-style-dashes style1) (line-style-dashes style2)))) ;;; Misc ops

1 0

[mcclim-cvs] CVS update: mcclim/Tests/transformations.lisp
by rstrandh＠common-lisp.net 18 Sep '05

18 Sep '05

Update of /project/mcclim/cvsroot/mcclim/Tests In directory common-lisp.net:/tmp/cvs-serv6875 Added Files: transformations.lisp Log Message: First part of the tests for affine transformations. Date: Mon Sep 19 00:12:04 2005 Author: rstrandh

1 0

[mcclim-cvs] CVS update: mcclim/Tests/bounding-rectangles.lisp
by rstrandh＠common-lisp.net 13 Sep '05

13 Sep '05

Update of /project/mcclim/cvsroot/mcclim/Tests In directory common-lisp.net:/tmp/cvs-serv19677 Added Files: bounding-rectangles.lisp Log Message: new file with tests related to bounding rectangles Date: Wed Sep 14 00:06:09 2005 Author: rstrandh

1 0