anchor.diff:    (_dochook doc (_non-generic-event "drop")       (bind-event-listener this this._externaldrop))
     (_dochook doc (_non-generic-event *key-events*) (bind-event-listener this this._generic-keyhandler))
     (_dochook doc *ignored-dragndrop-events* #'native-stop-event)
  -  (native-add-event-listener doc "unload" #'((evt)
  -								               (_generic-handler evt)
  -							                   (_remove-event-listeners doc))))
  +  (native-add-event-listener doc "unload" [(_generic-handler _)
  +							               (_remove-event-listeners doc)]))
   
   (defmethod event-manager _externaldrop (evt)
     (evt._stop-original)
  
positive.code: 
  (defmethod event-manager _mousedown (evt)
    (= _last-click-shift-down? (shift-down?))
    (when (== 0 evt.button)
  	(_dnd-mousedown evt))
    (_mousebutton evt "down"))
  
  (defmethod event-manager _mouseup (evt)
    (when (== 0 evt.button)
  	(_dnd-mouseup evt))
    (_mousebutton evt "up"))
  
  (finalize-class event-manager)
  
negative.code: 	(evt._reset-flags)
      (unless (| !._killed? (member ! (queue-list stopped-modules) :test #'eq))
        (_call-handlers evt ! (_find-handlers evt ! elm))
        (& evt._stop
           (return))
  	  (when evt._stop-bubbling
  		(enqueue stopped-modules !)))))
  
  