anchor.diff:  (defmethod schedule-timer-event ((pane pane) token delay)
     (schedule-event pane (make-instance 'timer-event :token token :sheet pane) delay))
   
  +
  +
  
positive.code:     (setf (cursor-visibility cursor) t)))
  
  ;; Will uncomment later, this depends on changes I'm not ready to commit yet.
  #+NIL
  (defmethod note-input-focus-changed ((pane interactor-pane) state)
    (setf (cursor-shape (stream-text-cursor pane))
          (if state :block :hollow)))
  
negative.code: ;;; CHANGING-SPACE-REQUIREMENTS macro
  
  (defmacro changing-space-requirements ((&key resize-frame layout) &body body)
    `(invoke-with-changing-space-requirements (lambda () ,@body) :resize-frame ,resize-frame :layout ,layout))
  
  (defun invoke-with-changing-space-requirements (continuation &key resize-frame layout)
    (cond (*changed-space-requirements*
  