[mcclim-cvs] CVS mcclim/Backends/CLX

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory clnet:/tmp/cvs-serv871/Backends/CLX

Modified Files:
	medium.lisp 
Log Message:
Draw images from the upper-left corner in the CLX backend.
Strange sense of deja-vu. Didn't I fix this already?


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2008/01/06 01:37:06	1.83
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2008/01/11 05:55:52	1.84
@@ -1200,10 +1200,10 @@
 				   :clip-x x
 				   :clip-y (- y height))
 		(xlib:copy-area pixmap gcontext 0 0 width height
-				da x (- y height))))
+				da x y)))
 	    (t
 	      (xlib:copy-area pixmap gcontext 0 0 width height
-			      da x (- y height)))))))))
+			      da x y))))))))
 
 (defmethod climi::medium-free-image-design
     ((medium clx-medium) (design climi::rgb-image-design))