4.
For PasteUpMorph>>
processEvent: anEvent using: defaultDispatcher
"Why not reject events not on the morph.. rather than send rejectEvent call
to the morph"

(anEvent isMouse | anEvent isKeyboard
and: [(self fullContainsPoint: anEvent cursorPoint) not])
ifTrue: [^ #rejected].

(self rejectsEvent: anEvent)
ifTrue: [^ #rejected].
^ defaultDispatcher dispatchEvent: anEvent with: self

Reply via email to