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