[mcclim-cvs] CVS update: mcclim/medium.lisp

[Robert Goldman]

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