[mcclim-cvs] CVS update: mcclim/Backends/CLX/medium.lisp

[Gilbert Baumann]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp.net:/tmp/cvs-serv26265

Modified Files:
	medium.lisp 
Log Message:
MEDIUM-COPY-AREA (CLX-MEDIUM T T T T CLX-MEDIUM T T):
    - we transform width and height too now.

Date: Mon Nov 28 14:01:59 2005
Author: gbaumann

Index: mcclim/Backends/CLX/medium.lisp
diff -u mcclim/Backends/CLX/medium.lisp:1.69 mcclim/Backends/CLX/medium.lisp:1.70
--- mcclim/Backends/CLX/medium.lisp:1.69	Mon Nov 28 12:53:41 2005
+++ mcclim/Backends/CLX/medium.lisp	Mon Nov 28 14:01:59 2005
@@ -359,12 +359,14 @@
                               from-x from-y)
     (with-transformed-position ((sheet-native-transformation (medium-sheet to-drawable))
                                 to-x to-y)
-      (xlib:copy-area (sheet-direct-mirror (medium-sheet from-drawable))
-                      (medium-gcontext from-drawable +background-ink+)
-                      (round-coordinate from-x) (round-coordinate from-y)
-		      (round width) (round height)
-                      (or (medium-buffer to-drawable) (sheet-direct-mirror (medium-sheet to-drawable)))
-                      (round-coordinate to-x) (round-coordinate to-y)))))
+      (multiple-value-bind (width height) (transform-distance (medium-transformation from-drawable)
+                                                              width height)
+        (xlib:copy-area (sheet-direct-mirror (medium-sheet from-drawable))
+                        (medium-gcontext from-drawable +background-ink+)
+                        (round-coordinate from-x) (round-coordinate from-y)
+                        (round width) (round height)
+                        (or (medium-buffer to-drawable) (sheet-direct-mirror (medium-sheet to-drawable)))
+                        (round-coordinate to-x) (round-coordinate to-y))))))
 
 (defmethod medium-copy-area ((from-drawable clx-medium) from-x from-y width height
                              (to-drawable pixmap) to-x to-y)