[mcclim-cvs] CVS mcclim/Backends/CLX

[ahefner]

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