[mcclim-cvs] CVS mcclim/Extensions

[thenriksen]

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

Modified Files:
	rgb-image.lisp 
Log Message:
Fixed some bugs in freeing rgb-images.


--- /project/mcclim/cvsroot/mcclim/Extensions/rgb-image.lisp	2008/01/09 16:59:04	1.4
+++ /project/mcclim/cvsroot/mcclim/Extensions/rgb-image.lisp	2008/01/09 19:27:04	1.5
@@ -56,6 +56,9 @@
 
 (defgeneric medium-free-image-design (medium design))
 
+(defmethod medium-free-image-design ((sheet sheet-with-medium-mixin) design)
+  (medium-free-image-design (sheet-medium sheet) design))
+
 (defun free-image-design (design)
   (medium-free-image-design (slot-value design 'medium) design))
 
@@ -129,8 +132,6 @@
 
 (defmethod draw-design
     (medium (design rgb-image-design) &rest options
-     &key x y &allow-other-keys)
-  (unless (and x y)
-    (setf (values x y) (stream-cursor-position medium)))
+     &key (x 0) (y 0) &allow-other-keys)
   (with-medium-options (medium options)
     (medium-draw-image-design* medium design x y)))