Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv1203

Modified Files: medium.lisp Log Message: Fix medium-copy-area between pixmaps - we need a graphics context, but none of the medium-gcontext methods apply to pixmaps, so create one using the medium of sheet associated with the destination pixmap.

--- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp 2007/04/01 17:23:22 1.80 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp 2007/07/19 06:35:42 1.81 @@ -638,9 +638,10 @@ (defmethod medium-copy-area ((from-drawable pixmap) from-x from-y width height (to-drawable pixmap) to-x to-y) (xlib:copy-area (pixmap-mirror from-drawable) - (medium-gcontext from-drawable +background-ink+) + (medium-gcontext (sheet-medium (slot-value to-drawable 'sheet)) + +background-ink+) (round-coordinate from-x) (round-coordinate from-y) - (round width) (round height) + (round width) (round height) (pixmap-mirror to-drawable) (round-coordinate to-x) (round-coordinate to-y)))