anchor.diff:  
   (defclass pane (standard-sheet-input-mixin temporary-medium-sheet-output-mixin
   		sheet-transformation-mixin sheet)
  -  ((foreground :initarg :foreground
  +  (
  +   #+ignore(foreground :initarg :foreground
   	       :initform +black+
   	       :reader pane-foreground)
  -   (background :initarg :background
  +   #+ignore(background :initarg :background
   	       :initform +white+
   	       :reader pane-background)
      (text-style :initarg :text-style
  
positive.code:   (update-scrollbars (sheet-parent pane)))
  
  (defmethod update-scrollbars ((pane scroller-pane))
    )
  
  (defmethod scroll-extent ((pane clim-stream-pane) x y)
    (setf (sheet-transformation pane) (make-translation-transformation (- x) (- y)))
    (set-bounding-rectangle-position (sheet-region pane) x y)
    (update-scrollbars (sheet-parent pane))
    (clear-area pane)
    (replay (stream-output-history pane) pane)
    )
  
  
  ;; LABEL PANE
  
negative.code:     (setf (slot-value region 'x1) x
  	  (slot-value region 'y1) y)))
  
  (defmethod scroll-extent ((pane clim-stream-pane) x y)
  ;  (setf (sheet-transformation pane) (make-translation-transformation (- x) (- y)))
    (set-bounding-rectangle-position (sheet-region pane) x y)
  ;  (format *debug-io* "set region position ~D,~D for ~S~%" x y (sheet-region pane))
    (update-scrollbars (sheet-parent pane))
    (clear-area pane)
    (replay (stream-output-history pane) pane)
    )
  
  		    
  
  ;; INTERACTOR PANES 
  