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)