[mcclim-cvs] CVS mcclim/Backends/CLX

[dlichteblau]

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

Modified Files:
	medium.lisp 
Log Message:
Fixed "Draw images from the upper-left corner in the CLX backend":
Use a matching clipping region.

Strange sense of deja-vu for me, too.


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2008/01/25 07:36:39	1.87
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2008/01/30 18:56:40	1.88
@@ -1211,7 +1211,7 @@
 	      (xlib:with-gcontext (gcontext 
 				   :clip-mask mask
 				   :clip-x x
-				   :clip-y (- y height))
+				   :clip-y y)
 		(xlib:copy-area pixmap gcontext 0 0 width height
 				da x y)))
 	    (t