anchor.diff:                                             standard-extended-input-stream
                                              fundamental-character-output-stream
                                              standard-application-frame)
  -  ((stream))
  +  ((stream)
  +   (scroll-bars :initform :vertical
  +                :initarg :scroll-bars))
     (:panes
      (io
  -    (scrolling (:height 400 :width 700)
  +    (scrolling (:height 400 :width 700 :scroll-bar (slot-value *application-frame* 'scroll-bars))
         (setf (slot-value *application-frame* 'stream)
           (make-pane 'window-stream
                      :width 700
  
positive.code: 					:right right
  					:bottom bottom
  					:width width
  					:height height)))
      ;; Adopt and enable the pane
      (when (eq (frame-state frame) :disowned)
        (adopt-frame fm frame))
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.181 2007-03-04 15:08:00 thenriksen Exp $
  
  (in-package :clim-internals)
  
  