anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.173 2006-11-08 01:18:22 thenriksen Exp $
  +;;; $Id: panes.lisp,v 1.174 2006-12-05 02:08:44 rgoldman Exp $
   
   (in-package :clim-internals)
   
  
positive.code:                        :min-value 0
                         :max-value 1))
        (sheet-adopt-child pane vscrollbar))
      (when (member scroll-bar '(:horizontal t))
        (setq hscrollbar
              (make-pane 'scroll-bar-pane
                         :orientation :horizontal
  
negative.code:                             mouse-wheel-scroll-mixin
                              cut-and-paste-mixin)
    ((redisplay-needed :initarg :display-time) 
     (scroll-bars :type scroll-bar-spec ; (member t :vertical :horizontal nil)
  		:initform nil
  		:initarg :scroll-bars
  		:accessor pane-scroll-bars)
  