anchor.diff:                     cx (+ cy baseline)))))
   
   (defmethod stream-write-char ((stream standard-extended-output-stream) char)
  -  (let* ((cursor (stream-text-cursor stream))
  -	 (visible (cursor-visibility cursor))
  -	 (medium (sheet-medium stream))
  -	 (port (port stream))
  -	 (text-style (medium-text-style medium))
  +  (let* ((cursor       (stream-text-cursor stream))
  +	 (visible      (cursor-visibility cursor))
  +	 (medium       (sheet-medium stream))
  +	 (port         (port stream))
  +	 (text-style   (medium-text-style medium))
   	 (new-baseline (text-style-ascent text-style medium))
  -	 (new-height (text-style-height text-style medium))
  -	 (margin (stream-text-margin stream))
  -	 (view-height (port-mirror-height port stream)))
  +	 (new-height   (text-style-height text-style medium))
  +	 (margin       (stream-text-margin stream))
  +         (%view-height (bounding-rectangle-height
  +                        (or (pane-viewport stream)
  +                            stream)))
  +	 (view-height  (bounding-rectangle-height
  +                        stream)))
       (if visible
   	(setf (cursor-visibility cursor) nil))
       (with-slots (baseline height vspace) stream
  
positive.code: 	 :accessor stream-default-view)
     (baseline :initform 0
  	     :reader stream-baseline)
     (height :initform 0)
     )
    )
  
  (defmethod initialize-instance :after ((stream standard-extended-output-stream) &rest args)
    (declare (ignore args))
  
negative.code: 	 ((eq char #\Newline)
  	  (setq cx 0
  		cy (+ cy height vspace))
  	  (when (> (+ cy height) view-height)
  	    (ecase (stream-end-of-page-action stream)
  	      (:scroll
                 (let ((jump 0))
                   (with-slots (seos-current-width seos-current-height) stream
                     (setf seos-current-width  (max (bounding-rectangle-width stream))
                           seos-current-height (max (+ cy height)))
                     (change-space-requirements stream
                                                :width seos-current-width
                                                :height seos-current-height))
                   )
  	       ;;(scroll-vertical stream (+ height vspace))
                 )
  	      (:wrap
  	       (setq cy 0))
  	      (:allow
  	       )))
            (scroll-extent stream 0 (max 0 (- (+ cy height) %view-height)))
  	  (draw-rectangle* medium cx cy (+ margin 4) (+ cy height)
  			   :ink +background-ink+
  			   :filled t)
  