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