Probably a bug.
I started to clean this part 4 years ago and my changes got killed by SDL
+ OS Window and
now apparently SDL 20 is not good enough.
May be in 3 years from now it will be cleaned, who knows.
Stef
Why do we have this twice in processEvents?
self mouseOverHandler processMouseOver: lastMouseEvent
?
Well, maybe that is not there that things happen but if you spy on
mouseEnter and mouseLeave events, you will notice that they are both
sent **twice** all the time.
I think that this happens so often that we would benefit from getting
rid of that twice enter/leave thing (and it is really annoying to have
to deal with these two events when you expect only one. I >am not
"entering entering" a rectangle).
processEvents
"Process user input events from the local input devices."
| evt evtBuf type hadAny |
ActiveEvent ifNotNil: ["Meaning that we were invoked from within an
event response.
Make sure z-order is up to date"
self mouseOverHandler processMouseOver: lastMouseEvent].
hadAny := false.
[(evtBuf := Sensor nextEvent) isNil] whileFalse: [evt := nil. "for
unknown event types"
type := evtBuf first.
type = EventTypeMouse ifTrue: [recentModifiers := evtBuf sixth. evt
:= self generateMouseEvent: evtBuf].
type = EventTypeKeyboard ifTrue: [recentModifiers := evtBuf fifth.
evt := self generateKeyboardEvent: evtBuf].
type = EventTypeDragDropFiles ifTrue: [evt := self
generateDropFilesEvent: evtBuf].
type = EventTypeWindow
ifTrue:[evt := self generateWindowEvent:
evtBuf].
"All other events are ignored"
(type ~= EventTypeDragDropFiles and: [evt isNil])
ifTrue: [^self].
evt isNil ifFalse:
["Finally, handle it"
self handleEvent: evt.
hadAny := true.
"For better user feedback, return immediately after a mouse event
has been processed."
(evt isMouse and: [evt isMouseWheel
not]) ifTrue: [^self]]].
"note: if we come here we didn't have any mouse events"
mouseClickState notNil ifTrue: ["No mouse events during this cycle.
Make sure click states time out accordingly"
mouseClickState handleEvent: lastMouseEvent asMouseMove
from: self].
hadAny ifFalse: ["No pending events. Make
sure z-order is up to date"
self mouseOverHandler processMouseOver: lastMouseEvent]
Clues?
Phil
--
Using Opera's mail client: http://www.opera.com/mail/
