anchor.diff:    (intern-atom *display* :_motif_wm_hints)
     (setf (window-event-mask *root*) '(:substructure-notify))
   
  -  (setf *last* (setf *curr* (find-if #'ok-win-p (query-tree *root*))))
  +  (setf *last* (setf *curr* (first (windows))))
   
     (unwind-protect (evloop)
       (dolist (b (list *move* *resize* *close*))
  
positive.code:     (setf (drawable-x window) x (drawable-y window) y
            (drawable-width window) w (drawable-height window) h)))
  
  (defun ok-win-p (window)
    "Is this window managable?"
    (and (eql (window-map-state window) :viewable)
         (eql (window-override-redirect window) :off)))
  
  (defun win= (a b)
    (and (typep a 'window) (typep b 'window) (window-equal a b)))
  
  (defun focus (window)
    (unless (null window)
  
negative.code: 
  (defun finder ()
    (grab-keyboard *root*)
    (unwind-protect (recdo (windows) #'focus :key #'xclass :matcher #'in-matcher)
      (ungrab-keyboard *display*)))
  
  ;;; Mouse shorcuts
  