anchor.diff:  	  (slot-value region 'y1) y)))
   
   (defmethod scroll-extent ((pane clim-stream-pane) x y)
  -;  (setf (sheet-transformation pane) (make-translation-transformation (- 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))
  +; (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)
  
positive.code:     (setf (cursor-visibility cursor) t)))
  
  
  ;; APPLICATION PANES
  
  (defclass application-pane (clim-stream-pane)
    ())
  
negative.code: 				      (height nil height-p)
  				      (min-height nil min-height-p)
  				      (max-height nil max-height-p))
    (with-slots (sr-width sr-height sr-max-width sr-max-height
  	       sr-min-width sr-min-height) pane
      (when width-p (setf sr-width width))
      (when min-width-p (setf sr-min-width min-width))
      (when max-width-p (setf sr-max-width max-width))
  