anchor.diff:              (xlib:put-image (pixmap-xmirror pm) pm-gc image
                               :x 0 :y 0
                               :width w :height h)))
  -        
  +
           ;; Fallback for unsupported visual, plotting pixels
           (progn
             (dotimes (y h)
               (dotimes (x w)
                 (let ((ink (elt inks (aref array y x))))
  -                (unless (eq ink +transparent-ink+) 
  +                (unless (eq ink +transparent-ink+)
                     (draw-point* pm x y :ink ink)))))
             (convert-indexed->mask array mask-data w h inks)))
   
       ;; We can use image upload for the mask in either case.
       (let ((mask-image (xlib:create-image :bits-per-pixel 1 :depth 1
                                            :bit-lsb-first-p t
  -                                         :byte-lsb-first-p t                                          
  +                                         :byte-lsb-first-p t
                                            :width w :height h
                                            :data mask-data)))
         (xlib:put-image mask mask-gc mask-image
  
positive.code: 
        (xlib:draw-rectangle mask mask-gc 0 0 w h t)
        (setf (xlib:gcontext-foreground mask-gc) 0)
        
        (let ((gc (xlib:create-gcontext :drawable drawable)))
          (setf (xlib:gcontext-fill-style gc) :tiled
                (xlib:gcontext-tile gc) (port-lookup-mirror (port pm) pm)
  
negative.code: ;;; -*- Mode: Lisp; Package: CLIM-CLX -*-
  
  ;;;  (c) copyright 1998,1999,2000,2001 by Michael McDonald (mikemac@mikemac.com)
  ;;;  (c) copyright 2000 by
  ;;;           Iban Hatchondo (hatchond@emi.u-bordeaux.fr)
  ;;;           Julien Boninfante (boninfan@emi.u-bordeaux.fr)
  ;;;  (c) copyright 2000, 2014 by
  ;;;           Robert Strandh (robert.strandh@gmail.com)
  ;;;  (c) copyright 2001 by Arnaud Rouanet (rouanet@emi.u-bordeaux.fr)
  ;;;  (c) copyright 1998,1999 by Gilbert Baumann
  