anchor.diff:  (defmethod stream-text-margin ((stream standard-extended-output-stream))
     (with-slots (margin) stream
       (or margin
  -	(- (port-mirror-width (port stream) stream)
  +	(- (bounding-rectangle-width (or (pane-viewport stream)
  +                                         stream))
   	   6))))
   
   (defmethod stream-line-height ((stream standard-extended-output-stream) &key (text-style nil))
  
positive.code:                    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))
  	 (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)))
      (if visible
  	(setf (cursor-visibility cursor) nil))
      (with-slots (baseline height vspace) stream
  
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)
  