[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	graphics.lisp 
Log Message:
Added draw-design method for patterns.

I'm not completely sure that it is correct, but it worked for my test
cases.


--- /project/mcclim/cvsroot/mcclim/graphics.lisp	2007/07/19 06:52:51	1.58
+++ /project/mcclim/cvsroot/mcclim/graphics.lisp	2008/01/09 16:57:54	1.59
@@ -992,6 +992,11 @@
 
 ;;;;
 
+(defmethod draw-design (medium (pattern pattern) &key clipping-region transformation
+                        &allow-other-keys)
+  (draw-pattern* medium pattern 0 0
+   :clipping-region clipping-region :transformation transformation))
+
 (defun draw-pattern* (medium pattern x y &key clipping-region transformation)
   ;; Note: I believe the sample implementation in the spec is incorrect.
   ;; --GB