[mcclim-cvs] CVS mcclim/Backends/CLX

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