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