anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.160 2005-11-28 15:24:37 gbaumann Exp $
  +;;; $Id: panes.lisp,v 1.161 2005-11-29 10:41:59 gbaumann Exp $
   
   (in-package :clim-internals)
   
  
positive.code: (defparameter *scrollbar-thickness* 17)
  
  (defclass scroller-pane (composite-pane)
    ((scroll-bar :type (member t :vertical :horizontal)
  	       :initform t
  	       :initarg :scroll-bar
  	       :accessor scroller-pane-scroll-bar)
     (viewport   :initform nil)
     (vscrollbar :initform nil)
     (hscrollbar :initform nil)
  
negative.code:   (sheet-adopt-child pane (first contents))
    (with-slots (scroll-bar viewport vscrollbar hscrollbar) pane
      (setq viewport (first (sheet-children pane)))
      (when (member scroll-bar '(:vertical t))
        (setq vscrollbar
              (make-pane 'scroll-bar-pane
                         :orientation :vertical
  