Permalink
Browse files

Define sheet-direct-mirror on pixmaps (patch from Evgeny M. Zubok)

  • Loading branch information...
1 parent 91990e6 commit 9c3be6f8571bb13f6148d82d7d16359bf4d04761 Andy Hefner committed Jun 3, 2009
Showing with 3 additions and 0 deletions.
  1. +3 −0 pixmap.lisp
View
@@ -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))

0 comments on commit 9c3be6f

Please sign in to comment.