anchor.diff:  (defclass standard-repainting-mixin () ())
   
   (defmethod dispatch-event
  -    ((sheet standard-repainting-mixin) (event window-repaint-event)) 
  +    ((sheet standard-repainting-mixin) (event window-repaint-event))
     (queue-repaint sheet event))
   
   (defmethod dispatch-repaint ((sheet standard-repainting-mixin) region)
  
positive.code: ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
  
  ;;;  (c) copyright 1998,1999,2000 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, 20014 by
  
negative.code:     (queue-repaint sheet (make-instance 'window-repaint-event
                                          :sheet sheet
                                          :region (transform-region
                                                   (sheet-native-transformation sheet)
                                                   region)))))
  
  (defmethod handle-event ((sheet standard-repainting-mixin)
                           (event window-repaint-event))
    (repaint-sheet sheet (window-event-region event)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  