anchor.diff:  (defmethod text-style-width (ts (sheet sheet))
     (text-style-width ts (sheet-medium sheet)))
   
  -
  
positive.code:                                                   (- (bounding-rectangle-max-y (sheet-region scrollee))
                                                       (bounding-rectangle-height (sheet-region viewport)))
                                                    (bounding-rectangle-min-y (sheet-region scrollee)))
                (scroll-bar-thumb-size vscrollbar) (bounding-rectangle-height (sheet-region viewport)))))))
  
  (defmethod initialize-instance :after ((pane scroller-pane) &key contents &allow-other-keys)
    (sheet-adopt-child pane (first contents))
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.87 2002-06-27 16:45:13 gilbert Exp $
  
  (in-package :CLIM-INTERNALS)
  
  