anchor.diff:          ;; avoid going into an infinite loop by not using (setf sheet-transformation)
           (setf (slot-value pane 'transformation)
   	      (make-translation-transformation x y))
  +        (invalidate-cached-transformations pane)
           ;; avoid going into an infinite loop by not using (setf sheet-region)
           (setf (slot-value pane 'region)
   	      (make-bounding-rectangle 0 0 width height))
  +        (invalidate-cached-regions pane)
           #+nil
           (allocate-space pane width height)
           (when (or (/= width  old-width)
  
positive.code:     ;; avoid going into an infinite loop by not using (setf sheet-transformation)
      (setf (slot-value pane 'transformation)
  	  (make-translation-transformation x y))
      ;; avoid going into an infinite loop by not using (setf sheet-region)
      (setf (slot-value pane 'region)
  	  (make-bounding-rectangle 0 0 width height))
      (allocate-space pane width height)))
  
  #-nil
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.83 2002-06-20 07:38:47 adejneka Exp $
  
  (in-package :CLIM-INTERNALS)
  
  