anchor.diff:    "Send an event to a window."
     (cond ((mezzano.supervisor:fifo-push event (fifo window) nil)
            (when (window-unresponsive window)
  -           (setf *clip-rect-width* (mezzano.supervisor:framebuffer-width *main-screen*)
  -                 *clip-rect-height* (mezzano.supervisor:framebuffer-height *main-screen*)
  -                 *clip-rect-x* 0
  -                 *clip-rect-y* 0)
  +           (expand-clip-rectangle-by-window window)
              (setf (window-unresponsive window) nil)))
           ((not (window-unresponsive window))
            (setf (window-unresponsive window) t)
  -         (setf *clip-rect-width* (mezzano.supervisor:framebuffer-width *main-screen*)
  -               *clip-rect-height* (mezzano.supervisor:framebuffer-height *main-screen*)
  -               *clip-rect-x* 0
  -               *clip-rect-y* 0))))
  +         (expand-clip-rectangle-by-window window))))
   
   ;; FIXME: This really shouldn't be synchronous.
   (defun get-window-by-kind (kind)
  
positive.code:     (when (and *m-tab-active*
                 (allow-m-tab win))
        (push win *m-tab-list*))
      (setf *clip-rect-width* (mezzano.supervisor:framebuffer-width *main-screen*)
            *clip-rect-height* (mezzano.supervisor:framebuffer-height *main-screen*)
            *clip-rect-x* 0
            *clip-rect-y* 0)))
  
  (defmacro with-window ((window fifo width height &rest options) &body body)
    `(let (,window)
  
negative.code:                  ((and (member :meta *keyboard-modifier-state*)
                         (eql translated #\F1))
                    (when (key-releasep event)
                      (damage-whole-screen)))
                   ((and (member :meta *keyboard-modifier-state*)
                         (eql translated #\F4))
                    (when *active-window*
  