[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv12716

Modified Files:
	bordered-output.lisp 
Log Message:
Added some valid default values for line styles in borders.


--- /project/mcclim/cvsroot/mcclim/bordered-output.lisp	2007/02/05 03:16:55	1.15
+++ /project/mcclim/cvsroot/mcclim/bordered-output.lisp	2007/03/12 17:36:52	1.16
@@ -175,9 +175,9 @@
   `(or line-style
     (merge-line-styles
      (make-line-style
-      :unit      line-unit
-      :thickness line-thickness
-      :cap-shape line-cap-shape
+      :unit      (or line-unit :point)
+      :thickness (or line-thickness 1)
+      :cap-shape (or line-cap-shape :butt)
       :dashes    line-dashes)
      (medium-line-style stream))))