anchor.diff:      (setf (window-x win) 0
             (window-y win) 0)
       (push win *window-list*)
  -    (when (not *active-window*)
  -      (setf *active-window* win)
  -      (send-event win (make-instance 'window-activation-event
  -                                     :window win
  -                                     :state t)))))
  +    (when *active-window*
  +      (send-event *active-window* (make-instance 'window-activation-event
  +                                                 :window *active-window*
  +                                                 :state nil)))
  +    (setf *active-window* win)
  +    (send-event win (make-instance 'window-activation-event
  +                                   :window win
  +                                   :state t))))
   
   (defun make-window (fifo width height)
     (let ((window (make-instance 'window
  
positive.code:     (setf *mouse-buttons* buttons)
      ;; Dispatch events and stuff...
      ;; Raise windows when clicked on, deal with drag, etc.
      #+(or)(do-something)
      (when (or (not (zerop x-motion))
                (not (zerop y-motion)))
  
negative.code:                         *screen-backbuffer* c-row c-col))))
  
  (defun recompose-windows (&optional full)
    (when full
      ;; Expand the cliprect to the entire screen.
      (setf *clip-rect-width* (mezzanine.supervisor:framebuffer-width *main-screen*)
            *clip-rect-height* (mezzanine.supervisor:framebuffer-height *main-screen*)
            *clip-rect-x* 0
            *clip-rect-y* 0))
    (when (or (zerop *clip-rect-width*)
                   (zerop *clip-rect-height*))
      (return-from recompose-windows))
    ;; Draw windows back-to-front.
    (dolist (window (reverse *window-list*))
      (blit-with-clip (height window) (width window)
                      (window-buffer window)
                      (window-y window) (window-x window)))
    ;; Then the mouse pointer on top.
    (blit-with-clip (array-dimension *mouse-pointer* 0) (array-dimension *mouse-pointer* 1)
                    *mouse-pointer*
                    (- *mouse-y* *mouse-hot-y*) (- *mouse-x* *mouse-hot-x*))
    ;; Update the actual screen.
    (mezzanine.supervisor:framebuffer-blit *main-screen*
                                           *clip-rect-height*
                                           *clip-rect-width*
                                           *screen-backbuffer* *clip-rect-y* *clip-rect-x*
                                           *clip-rect-y* *clip-rect-x*)
    ;; Reset clip region.
    (setf *clip-rect-x* 0
          *clip-rect-y* 0
  