anchor.diff:  (defun grab-all ()
     "Grab prefix and mouse buttons on root."
     (grab-it *prefix*)
  -  (dolist (b (list *move* *resize* *close*))
  +  (dolist (b (list *move* *center-resize* *resize* *close*))
       (grab-it b)))
   
   (defun ungrab-all ()
  -  (dolist (b (list *move* *resize* *close*))
  +  (dolist (b (list *move* *center-resize* *resize* *close*))
       (grab-it b :inverse-p t))
     (grab-it *prefix* :inverse-p t))
   
  
positive.code: (defvar last-button nil)
  (defvar last-x nil)
  (defvar last-y nil)
  (defvar last-motion nil)
  (defvar waiting-shortcut nil)
  
  
negative.code:             (t
               (cond ((sc= *move* state code)
                      (setf last-x x last-y y))
                     ((or (sc= *resize* state code)
  			(sc= *center-resize* state code))
  		    (let ((x (xlib:drawable-x window))
  			  (y (xlib:drawable-y window))
  			  (width (xlib:drawable-width window))
  			  (height (xlib:drawable-height window)))
  		      ;; here i use [last-x; last-y] as the [x; y]
  		      ;; position of the current window
  		      (setf last-x x last-y y
  			    last-center (window-center window))
  		      (xlib:warp-pointer window width height))))
               (setf last-button code)
               (focus window)
  