anchor.diff:          (_handle-modules evt nil modules)))))
   
   (defmethod event-manager _dispatch (type evt)
  -  (log-events "Dispatching ~A event on ~A, X: ~A, Y: ~A.~%"
  +  (log-events ">>> ~A on ~A, X: ~A, Y: ~A.~%"
                 type (!? (evt.element) !.tag-name) (evt.pointer-x) (evt.pointer-y))
     (let e (copy-hash-table evt)
       (= e.type type)
  
positive.code:     (| e._send-natively?
         (e._stop-original))
      ,(& *log-events?*
          `(format t "~A event ~Asent natively.~%" type (? evt._send-natively? "" "NOT "))))
    t)
  
  ;;;; DRAG'N DROP EVENT GENERATION
  
negative.code: 
  (defmethod event-manager _handle-modules (evt elm modules)
    (@ (i modules)
      (unless i._killed?
        (_call-handlers evt i (_find-handlers evt i elm))
        (& evt._stop
  