'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 19 November 2008 at 8:44:30 am'!

!OldMorph methodsFor: 'event handling' stamp: 'jmv 11/19/2008 08:44'!
on: eventName send: selector to: recipient

	self flag: #jmv.
	"Do NOT implement EventHandler in Morphic 3 or LightWidgets.
	Even more. Try to avoid all the stuff in Morphic-OldEvents"
	
	self eventHandler ifNil: [self eventHandler: EventHandler new].
	self eventHandler on: eventName send: selector to: recipient! !

!OldMorph methodsFor: 'event handling' stamp: 'jmv 11/19/2008 08:44'!
on: eventName send: selector to: recipient withValue: value
	"NOTE: selector must take 3 arguments, of which value will be the *** FIRST ***"

	self flag: #jmv.
	"Do NOT implement EventHandler in Morphic 3 or LightWidgets.
	Even more. Try to avoid all the stuff in Morphic-OldEvents"
	
	self eventHandler ifNil: [self eventHandler: EventHandler new].
	self eventHandler on: eventName send: selector to: recipient withValue: value
! !

OldPolygonMorph removeSelector: #dragVertex:fromHandle:vertIndex:!
OldPolygonMorph removeSelector: #dropVertex:fromHandle:vertIndex:!
OldPolygonMorph removeSelector: #newVertex:fromHandle:afterVert:!
EventHandler removeSelector: #fixReversedValueMessages!
EventHandler removeSelector: #forgetDispatchesTo:!
EventHandler removeSelector: #replaceSendsIn:with:!

!EventHandler reorganize!
('access' allRecipients firstMouseSelector messageList methodRefList mouseDownSelector mouseStillDownRecipient mouseStillDownSelector mouseUpSelector)
('copying' veryDeepFixupWith: veryDeepInner:)
('events' click:fromMorph: doubleClick:fromMorph: doubleClickTimeout:fromMorph: keyStroke:fromMorph: mouseDown:fromMorph: mouseEnter:fromMorph: mouseEnterDragging:fromMorph: mouseLeave:fromMorph: mouseLeaveDragging:fromMorph: mouseMove:fromMorph: mouseStillDown:fromMorph: mouseUp:fromMorph: send:to:withEvent:fromMorph: startDrag:fromMorph:)
('initialization' on:send:to: on:send:to:withValue: onGestureSend:to:)
('printing' printOn:)
('testing' handlesClickOrDrag: handlesGestureStart: handlesKeyboard handlesMouseDown: handlesMouseMove: handlesMouseOver: handlesMouseOverDragging: handlesMouseStillDown:)
!

