anchor.diff:                         :min-value 0
                          :max-value 1))
         (sheet-adopt-child pane vscrollbar))
  -    (when (not (eq scroll-bar :vertical))
  +    (when (member scroll-bar '(:horizontal t))
         (setq hscrollbar
               (make-pane 'scroll-bar-pane
                          :orientation :horizontal
  
positive.code: ;;; 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 $
  
  (in-package :clim-internals)
  
  
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
  