anchor.diff:            (t
              (setf last-button code)
              (focus child)
  -           (grab-pointer child '(:pointer-motion :button-release))
  +           (grab-mouse 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*))))
  
positive.code:     (grab-it b :inverse-p t))
    (grab-it *prefix* :inverse-p t))
  
  (defun load-rc ()
    (ungrab-all)
    (ignore-errors (load *rc*))
  
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)
  