anchor.diff:  	  (loop
           (when (evt.element)._hooked?
             (_handle-modules evt (evt.element) modules stopped-modules))
  -        (!? (| evt._stop
  -               (not (evt.bubble)))
  -            (return !)))
  +        (& (| evt._stop
  +              (not (evt.bubble)))
  +            (return)))
         (unless evt._stop
           (= evt._element init-elm)
           (_handle-modules evt nil modules stopped-modules)))))
  
positive.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 !)))))
  
  
negative.code: 
  (defmethod event-manager _mousedown (evt)
    (= _last-click-shift-down? (shift-down?))
    (& (zero? evt.button)
  	 (_dnd-mousedown evt))
    (_mousebutton evt "down"))
  
  (defmethod event-manager _mouseup (evt)
    (& (zero? evt.button)
  	 (_dnd-mouseup evt))
    (_mousebutton evt "up"))
  
  (finalize-class event-manager)
  