anchor.diff:    ()
     (:menu-bar seos-command-table)
     (:pane :application
  -         :width 350
  +         :width 400
            :height 400
            :display-function #'display
            :end-of-line-action :allow
            :end-of-page-action :allow
  -         :text-margin 300))
  +         :text-margins '(:left (:absolute 30)
  +                         :right (:relative 30)
  +                         :top (:relative 30)
  +                         :bottom (:absolute 370))))
   
   (defun show-line (stream &rest args)
     (loop for (size text) on args by #'cddr do
  
positive.code:   (setf (stream-end-of-page-action *standard-output*) :wrap))
  
  ;(run-frame-top-level (make-application-frame 'seos-baseline))
  
  
negative.code: 
  See the introduction in \"15.3 The Text Cursor\"."
            (stream-end-of-line-action pane))
    (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*
  