[mcclim-cvs] CVS mcclim

[ahefner]

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

Modified Files:
	graphics.lisp 
Log Message:
Fix draw-arrow* when applied directly to a medium (it assumed a sheet).


--- /project/mcclim/cvsroot/mcclim/graphics.lisp	2007/02/05 02:58:46	1.57
+++ /project/mcclim/cvsroot/mcclim/graphics.lisp	2007/07/19 06:52:51	1.58
@@ -572,14 +572,13 @@
                (p end)
                (q start)
 
-               (medium     (sheet-medium sheet))
-               (line-style (medium-line-style medium))
+               (line-style (medium-line-style sheet))
                ;; FIXME: I believe this thickness is in "line-style-units",
                ;; which are only coincidentally the same as pixel coorindates
                ;; on screen backends, using :normal units. There is no function
                ;; documented for converting the units to stream coordinates.
                (thickness  (multiple-value-bind (dx dy)
-                               (transform-distance (invert-transformation (medium-transformation medium))
+                               (transform-distance (invert-transformation (medium-transformation sheet))
                                                (line-style-thickness line-style)
                                                0)
                              (sqrt (+ (* dx dx) (* dy dy)))))