--- a/WindowSensor.st Fri Feb 05 00:14:52 1999 +0100
+++ b/WindowSensor.st Fri Feb 05 21:25:47 1999 +0100
@@ -734,7 +734,7 @@
buttonMotion:state x:x y:y view:aView
"mouse was moved - this is sent from the device (Display)"
- |args ev|
+ |args ev ignoreIt|
"/ update my idea of shift/alt/ctrl pressed information
self updateModifierStateFrom:state device:(aView graphicsDevice).
@@ -756,16 +756,25 @@
merge with last motion
"
self criticalUserEventQueueAccess:[
- mouseAndKeyboard reverseDo:[:ev |
+ |idx|
+
+ idx := mouseAndKeyboard size.
+ [idx > 0] whileTrue:[
+ ev := mouseAndKeyboard at:idx.
ev notNil ifTrue:[
((ev type == #buttonMotion:x:y:)
and:[(ev view == aView)
and:[(ev arguments at:1) == state]]) ifTrue:[
ev arguments:args.
- ^ self
+ idx := 0.
+ ignoreIt := true
]
- ]
- ]
+ ].
+ idx := idx - 1.
+ ].
+ ].
+ ignoreIt == true ifTrue:[
+ ^ self
]
].
@@ -777,7 +786,7 @@
button1:leftButtonDown button2:middleButtonDown button3:rightButtonDown.
self pushEvent:ev.
- "Modified: / 6.6.1998 / 21:09:14 / cg"
+ "Modified: / 5.2.1999 / 21:23:31 / cg"
!
buttonMultiPress:button x:x y:y view:aView
@@ -1805,13 +1814,11 @@
].
idx := idx + 1.
].
- damageSize > 10 ifTrue:[
- firstNonNilIndex isNil ifTrue:[
- damage removeAll
- ] ifFalse:[
- firstNonNilIndex ~~ 1 ifTrue:[
- damage removeFromIndex:1 toIndex:firstNonNilIndex
- ]
+ firstNonNilIndex isNil ifTrue:[
+ damage removeAll
+ ] ifFalse:[
+ firstNonNilIndex ~~ 1 ifTrue:[
+ damage removeFromIndex:1 toIndex:firstNonNilIndex
]
]
].
@@ -1819,7 +1826,7 @@
^ theEvent
"Created: / 3.12.1998 / 13:41:49 / cg"
- "Modified: / 3.2.1999 / 01:39:26 / cg"
+ "Modified: / 5.2.1999 / 20:58:20 / cg"
!
nextEvent
@@ -1886,13 +1893,11 @@
idx := idx + 1.
].
- damageSize > 10 ifTrue:[
- firstNonNilIndex isNil ifTrue:[
- damage removeAll
- ] ifFalse:[
- firstNonNilIndex ~~ 1 ifTrue:[
- damage removeFromIndex:1 toIndex:firstNonNilIndex-1
- ]
+ firstNonNilIndex isNil ifTrue:[
+ damage removeAll
+ ] ifFalse:[
+ firstNonNilIndex ~~ 1 ifTrue:[
+ damage removeFromIndex:1 toIndex:firstNonNilIndex-1
]
].
].
@@ -1900,7 +1905,7 @@
^ theEvent
"Created: / 21.5.1996 / 17:20:54 / cg"
- "Modified: / 3.2.1999 / 01:41:31 / cg"
+ "Modified: / 5.2.1999 / 20:58:28 / cg"
!
pendingEvent
@@ -2710,6 +2715,6 @@
!WindowSensor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.140 1999-02-04 23:13:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.141 1999-02-05 20:25:47 cg Exp $'
! !
WindowSensor initialize!