[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv4027

Modified Files:
	pixmap.lisp 
Log Message:
Define sheet-direct-mirror on pixmaps (patch from Evgeny M. Zubok)


--- /project/mcclim/cvsroot/mcclim/pixmap.lisp	2003/03/21 21:36:59	1.7
+++ /project/mcclim/cvsroot/mcclim/pixmap.lisp	2009/06/03 04:07:48	1.8
@@ -88,3 +88,6 @@
    (transform-region
     (sheet-device-transformation pixmap)
     (medium-clipping-region (pixmap-medium pixmap)))))
+
+(defmethod sheet-direct-mirror ((pixmap mirrored-pixmap))
+  (port-lookup-mirror (port pixmap) pixmap))