[mcclim-cvs] CVS mcclim/Backends/CLX - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

11 Jan 2008

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))

    