I do not know. :)
so far
PasteUpMorph>>processEvent: anEvent using: defaultDispatcher
"Reimplemented to install the receiver as the new ActiveWorld if it is
one"
| priorWorld result |
self isWorldMorph ifFalse:[^super processEvent: anEvent using:
defaultDispatcher].
priorWorld := ActiveWorld.
ActiveWorld := self.
result := super processEvent: anEvent using: defaultDispatcher.
ActiveWorld := priorWorld.
^result
and I would be inclined not to change it except if we really want to spend time
there.
Right now we are focusing on the other irons we have on the fire.
> 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
