EventHandler>>on: eventName send: selector to: recipient
�� eventName == #mouseDown ifTrue:
�� [mouseDownRecipient := recipient.� mouseDownSelector := selector. ^ self].
�� eventName == #mouseMove ifTrue:
�� [mouseMoveRecipient := recipient.� mouseMoveSelector := selector. ^ self].
�� eventName == #mouseStillDown ifTrue:
�� [mouseStillDownRecipient := recipient.� mouseStillDownSelector := selector. ^ self].
�� eventName == #mouseUp ifTrue:
�� [mouseUpRecipient := recipient.� mouseUpSelector := selector. ^ self].
�� eventName == #mouseEnter ifTrue:
�� [mouseEnterRecipient := recipient.� mouseEnterSelector := selector. ^ self].
�� eventName == #mouseLeave ifTrue:
�� [mouseLeaveRecipient := recipient.� mouseLeaveSelector := selector. ^ self].
�� eventName == #mouseEnterDragging ifTrue:
�� [mouseEnterDraggingRecipient := recipient.� mouseEnterDraggingSelector := selector. ^ self].
�� eventName == #mouseLeaveDragging ifTrue:
�� [mouseLeaveDraggingRecipient := recipient.� mouseLeaveDraggingSelector := selector. ^ self].
�� eventName == #click ifTrue:
�� [clickRecipient := recipient. clickSelector := selector. ^ self].
�� eventName == #doubleClick ifTrue:
�� [doubleClickRecipient := recipient. doubleClickSelector := selector. ^ self].
�� eventName == #doubleClickTimeout ifTrue:
�� [doubleClickTimeoutRecipient := recipient. doubleClickTimeoutSelector := selector. ^ self].
�� eventName == #startDrag ifTrue:
�� [startDragRecipient := recipient. startDragSelector := selector. ^ self].
�� eventName == #keyStroke ifTrue:
�� [keyStrokeRecipient := recipient.� keyStrokeSelector := selector. ^ self].
�� eventName == #gesture ifTrue:
�� [ ^self onGestureSend: selector to: recipient ].
�� self error: 'Event name, ' , eventName , ' is not recognizable.'

First) It is not handling KeyDown and keyUp :)
Second) it does not support multiple handlers for the same event

Moving it to announcements in a first attempt seems too agressive :P.

Working a bit on it :).

Guille