anchor.diff:        (send-event *active-window* (make-instance 'window-activation-event
                                                    :window *active-window*
                                                    :state t))))
  +  (setf *m-tab-list* (remove (window event) *window-list*))
     (setf *clip-rect-width* (mezzano.supervisor:framebuffer-width *main-screen*)
           *clip-rect-height* (mezzano.supervisor:framebuffer-height *main-screen*)
           *clip-rect-x* 0
  
positive.code:   "Set to true when the drag was compositor-initiated.
  A passive drag sends no drag events to the window.")
  (defvar *resize-origin* nil)
  
  (defun activate-window (window)
    "Make WINDOW the active window."
  
negative.code:       (send-event win (make-instance 'window-activation-event
                                       :window win
                                       :state t)))
      (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
  