anchor.diff:                     (drawable-height event-window) new-h))))
       (setf last-motion time)))
   
  -(defhandler :button-release () (ungrab-pointer *display*))
  +(defhandler :button-release () (ungrab-mouse))
   
   (defhandler :map-notify (window override-redirect-p)
     (unless override-redirect-p
  
positive.code:           (t
             (setf last-button code)
             (focus child)
             (grab-pointer child '(:pointer-motion :button-release))
             (when (sc= *resize* state code)
               (warp-pointer child (drawable-width child) (drawable-height child)))
             (let ((lst (multiple-value-list (query-pointer *root*))))
  
negative.code:                                                     *shortcuts*))))
                               (when (functionp fn) (funcall fn)))))
                    (ungrab-keyboard *display*)
                    (ungrab-mouse)
                    (setf waiting-shortcut nil))))
            ((sc= *prefix* state code)
             (grab-keyboard *root*)
             (grab-mouse *root* nil)
             (setf waiting-shortcut t)))))
  
  (defhandler :button-press (state code child)
  