anchor.diff:                           (setf (drawable-width event-window) new-w
                                  (drawable-height event-window) new-h)))))
                  (:button-release () (ungrab-pointer *display*))
  -               (:map-notify 
  +               (:map-notify
                   (window override-redirect-p)
                   (unless override-redirect-p
  -                  (set-input-focus *display* window :parent)))
  -               ((:configure-notify :exposure) () t)))
  -      (ungrab-button *root* (cdr move) :modifiers (car move))
  -      (ungrab-button *root* (cdr resize) :modifiers (car resize))
  -      (ungrab-key *root* (cdr prefix) :modifiers (car prefix))
  +                  (pushnew window *windows* :test #'window-equal)
  +                  (focus window)))
  +               (:destroy-notify
  +                (window)
  +                (setf *windows* (remove window *windows* :test #'window-equal))
  +                (when *windows*
  +                    (focus (first *windows*))))))
  +      (ungrab-button *root* (code move) :modifiers (state move))
  +      (ungrab-button *root* (code resize) :modifiers (state resize))
  +      (ungrab-key *root* (code prefix) :modifiers (state prefix))
         (close-display *display*))))
   
   (main)
  
positive.code:         last-button last-x last-y waiting-shortcut)
  
      ;; Grab prefix and mouse buttons on root
      (grab-key *root* (cdr prefix) :modifiers (car prefix))
      (grab-button *root* (cdr move) '(:button-press) :modifiers (car move))
      (grab-button *root* (cdr resize) '(:button-press) :modifiers (car resize))
  
      (setf (window-event-mask *root*) '(:substructure-notify))
  
  
negative.code:                                      ((eq fn 'quit) (return-from eventloop))))))
                           (ungrab-keyboard *display*)
                           (setf waiting-shortcut nil)))
                        ((and (= state (state prefix)) (= code (code prefix)))
                         (grab-keyboard *root*)
                         (setf waiting-shortcut t))))
                 (:button-press
  