anchor.diff:  
   See the introduction in \"15.3 The Text Cursor\"."
             (stream-end-of-line-action pane))
  -  (draw-rectangle* pane
  -                   (climi::stream-effective-left-margin pane)
  -                   (climi::stream-effective-top-margin pane)
  -                   (climi::stream-effective-right-margin pane)  ; may be nil!
  -                   (climi::stream-effective-bottom-margin pane) ; may be nil!
  -                   :ink +red+ :line-dashes t :filled nil))
  +  (draw-design pane (clime:stream-page-region pane)
  +               :ink +red+ :line-dashes t :filled nil))
   
   (define-seos-baseline-command (com-redisplay :keystroke #\space) ()
     (schedule-event *standard-output*
  
positive.code:   (show-line pane :normal "Last " :huge "line " :normal "bam bam")
  
    (terpri pane)
    (let ((y (nth-value 1 (stream-cursor-position pane))))
     (draw-line* pane (climi::stream-effective-left-margin pane)
                 y
                 (climi::stream-effective-right-margin pane)
                 y
                 :ink +blue+ :line-dashes t))
    (terpri pane)
    (format pane "All lines should have text aligned on the same baseline. Likely failures:
  
  
negative.code:   (setf (stream-end-of-page-action *standard-output*) :wrap))
  
  ;(run-frame-top-level (make-application-frame 'seos-baseline))
  