Feb. 12, 2015
12:19 p.m.
Thanks Hilaire, that works fine. I can add the listener when the actual dragging starts and remove it on mouseUp. MDShape>>doDrag: aMouseMoveEvent with: aMDShape ActiveHand addEventListener: self. aMouseMoveEvent hand startDrag: aMouseMoveEvent with: aMDShape. MDShape>>handleListenEvent: anEvent anEvent isMouse ifFalse: [ ^self]. anEvent isMouseUp ifTrue: [ ActiveHand removeEventListener: self ]. anEvent isMouseMove ifTrue: [ self moved ] MDShape>>moved connectors do: [ :connector | connector moved ] Stephan