anchor.diff:                (scroll-bar-thumb-size vscrollbar) (bounding-rectangle-height (sheet-region viewport)))))))
   
   (defmethod initialize-instance :after ((pane scroller-pane) &key contents &allow-other-keys)
  -  (declare (ignore args))
     (sheet-adopt-child pane (first contents))
     (with-slots (scroll-bar viewport vscrollbar hscrollbar) pane
       (setq viewport (first (sheet-children pane)))
  
positive.code:   (multiple-value-bind (right top left bottom) (label-pane-margins pane)
      (declare (ignorable right top left bottom))
      (when (sheet-children pane)
        (with-bounding-rectangle* (x1 y1 x2 y2) (sheet-region pane);seems bogus
          (move-sheet (first (sheet-children pane))
                      (+ x1 left) (+ y1 top))
          (allocate-space (first (sheet-children pane))
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.76 2002-04-28 07:56:19 gilbert Exp $
  
  (in-package :CLIM-INTERNALS)
  
  