anchor.diff:  (defmethod compose-space ((pane scroller-pane))
     (with-slots (viewport) pane
       (if viewport
  -	(let ((req (compute-and-set-space viewport)))
  +	(let ((req (compose-space viewport)))
   	  (incf (space-requirement-width req) 10)
   	  (incf (space-requirement-min-width req) 10)
   	  (incf (space-requirement-max-width req) 10)
  
positive.code: 	  (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)
  
negative.code: 			  :height 200
  			  :max-height 200))
  
  (defmethod compose-space :around ((pane pane))
    (with-slots (sr-width sr-height sr-max-width
  	       sr-max-height sr-min-width sr-min-height
  	       space-requirement) pane
      (unless space-requirement
        (let ((request (call-next-method)))
  	(when (spacer-p pane)
  	  (with-slots (margin-width margin-height
  		       margin-max-width margin-max-height
  		       margin-min-width margin-min-height) pane
  	    (let ((child (first (sheet-children pane))))
  	      (setf sr-width (+ margin-width (get-width child))
  		    sr-height (+ margin-height (get-height child))
  		    sr-max-width (+ margin-max-width (get-max-width child))
  		    sr-max-height (+ margin-max-height (get-max-height child))
  		    sr-min-width (+ margin-min-width (get-min-width child))
  		    sr-min-height (+ margin-min-height (get-min-height child))
  		    ))))
  	(setf space-requirement (make-space-requirement))
  	(with-slots (width height max-width max-height min-width min-height)
  	    space-requirement
  	  (setf width (or sr-width (space-requirement-width request))
  		height (or sr-height (space-requirement-height request))
  		max-width (or sr-max-width
  			      sr-width
  			      (space-requirement-max-width request))
  		max-height (or sr-max-height
  			       sr-height
  			       (space-requirement-max-height request))
  		min-width (or sr-min-width
  			      sr-width
  			      (space-requirement-min-width request))
  		min-height (or sr-min-height
  			       sr-height
  			       (space-requirement-min-height request))
  		width (do-in (or sr-width (space-requirement-width request))
  			     min-width
  			     max-width)
  		height (do-in (or sr-height (space-requirement-height request))
  			      min-height
  			      max-height))))
        (compute-extremum pane))
      space-requirement))
  
  (defmethod allocate-space ((pane pane) width height)
    (set-width-and-height pane width height))
  
  (defmethod compute-extremum ((pane pane))
    (declare (ignorable pane))
    nil)
  
  (defmethod change-space-requirements ((pane pane) &rest rest)
    (declare (ignore rest))
  