anchor.diff:                             (new-h (max 1 (- root-y (drawable-y event-window)))))
                          (setf (drawable-width event-window) new-w
                                (drawable-height event-window) new-h)))))
  -                       ;; (setf (drawable-width event-window)
  -                       ;;       (max 1 (- root-x (drawable-x event-window)))
  -                       ;;       (drawable-height event-window)
  -                       ;;       (max 1 (- root-y (drawable-y event-window))))))))
                (:button-release ()
                                 (ungrab-pointer display)))))
         (dolist (button (list *move* *resize* *lower* *raise*))
  
positive.code:                                last-y (seventh lst)))))))
               (:motion-notify
                (event-window root-x root-y)
                ;; while(XCheckTypedEvent(display, MotionNotify, &ev));
                (cond ((member last-button *move*)
                       (let ((delta-x (- root-x last-x))
                             (delta-y (- root-y last-y)))
  
negative.code:              (display :discard-p t)
               ;; for key-press and key-release, code is the keycode
               ;; for button-press and button-release, code is the button number
               (:key-press
                ()
                ;; Not really portable isn't it
                (sb-ext:run-program "emacs" nil :wait nil :search t))
               (:button-press 
                (code child)
                (cond ((member code *raise*)
  