anchor.diff:  					:right right
   					:bottom bottom
   					:width width
  -					:height height)))
  +					:height height
  +                                        :scroll-bars scroll-bars)))
       ;; Adopt and enable the pane
       (when (eq (frame-state frame) :disowned)
         (adopt-frame fm frame))
  
positive.code:                       initial-cursor-visibility
                        text-margin
                        save-under
                        scroll-bars
                        borders
                        label))
    (setf port (or port (find-port)))
  
negative.code:                                            standard-extended-input-stream
                                             fundamental-character-output-stream
                                             standard-application-frame)
    ((stream)
     (scroll-bars :initform :vertical
                  :initarg :scroll-bars))
    (:panes
     (io
      (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
  