--- a/SynchronousWindowSensor.st	Thu Aug 19 14:21:25 2004 +0200
+++ b/SynchronousWindowSensor.st	Thu Aug 19 14:22:44 2004 +0200
@@ -83,57 +83,6 @@
                          with:aRectangle height)
 !
 
-buttonMotion:buttonAndModifierState x:x y:y view:aView
-    "forward a button-motion for some view"
-
-    |buttonState ev|
-
-    "/ in the following, we are only interested in the buttons (i.e. mask out the modifiers)
-    buttonState := buttonAndModifierState bitAnd:(aView device anyButtonStateMask).
-
-    ev := WindowEvent buttonMotion:buttonState x:x y:y view:aView.
-    self sendEvent:ev to:aView.
-!
-
-buttonMultiPress:button x:x y:y view:aView
-    "forward a button-multi-press event for some view"
-
-    |ev|
-
-    ev := WindowEvent buttonMultiPress:button x:x y:y view:aView.
-    self sendEvent:ev to:aView.
-
-    "Created: / 24.11.1995 / 19:14:14 / cg"
-    "Modified: / 20.5.1998 / 22:56:07 / cg"
-!
-
-buttonPress:button x:x y:y view:aView
-    "forward a button-press event for some view"
-
-    |ev|
-
-    ev := WindowEvent buttonPress:button x:x y:y view:aView.
-    self sendEvent:ev to:aView.
-!
-
-buttonRelease:button x:x y:y view:aView
-    "forward a button-release event for some view"
-
-    |ev|
-
-    ev := WindowEvent buttonRelease:button x:x y:y view:aView.
-    self sendEvent:ev to:aView.
-!
-
-configureX:x y:y width:w height:h view:aView
-    "forward a configure for some view"
-
-    |ev|
-
-    ev := WindowEvent configureX:x y:y width:w height:h view:aView.
-    aView dispatchEvent:ev
-!
-
 exposeX:x y:y width:w height:h view:aView
     "forward an expose for some view"
 
@@ -164,63 +113,6 @@
     "Modified: / 20.5.1998 / 22:57:32 / cg"
 !
 
-keyPress:untranslatedKey x:x y:y view:aView
-    "forward a key-press event for some view"
-
-    |xlatedKey ev|
-
-    self key:untranslatedKey state:true. 
-
-    xlatedKey := aView graphicsDevice translateKey:untranslatedKey forView:aView.
-    xlatedKey notNil ifTrue:[
-        ev := WindowEvent 
-                keyPress:xlatedKey
-                rawKey:untranslatedKey
-                hasShift:shiftDown ctrl:ctrlDown alt:altDown meta:metaDown
-                button1:leftButtonDown button2:middleButtonDown button3:rightButtonDown
-                x:x y:y view:aView.
-
-        self sendEvent:ev to:aView.
-    ]
-
-    "Created: / 24.11.1995 / 19:17:23 / cg"
-    "Modified: / 20.5.1998 / 22:57:52 / cg"
-!
-
-keyRelease:untranslatedKey x:x y:y view:aView
-    "forward a key-release event for some view"
-
-    |xlatedKey ev|
-
-    self key:untranslatedKey state:false. 
-
-    xlatedKey := aView graphicsDevice translateKey:untranslatedKey forView:aView.
-    xlatedKey notNil ifTrue:[
-        ev := WindowEvent
-                keyRelease:xlatedKey
-                rawKey:untranslatedKey
-                hasShift:shiftDown ctrl:ctrlDown alt:altDown meta:metaDown
-                button1:leftButtonDown button2:middleButtonDown button3:rightButtonDown
-                x:x y:y view:aView.
-
-        self sendEvent:ev to:aView.
-    ]
-
-    "Created: / 24.11.1995 / 19:17:50 / cg"
-    "Modified: / 20.5.1998 / 22:58:05 / cg"
-!
-
-mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime view:aView
-    "forward a wheel-motion for some view"
-
-    |ev|
-
-    ev := WindowEvent mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime view:aView.
-    self sendEvent:ev to:aView.
-
-    "Created: / 21.5.1999 / 13:07:51 / cg"
-!
-
 noExposeView:aView
     "forward a noExpose event for some view"
 
@@ -238,30 +130,6 @@
     "Modified: 29.1.1997 / 20:46:47 / cg"
 !
 
-pointerEnter:buttonState x:x y:y view:aView
-    "forward a pointer enter for some view"
-
-    |ev|
-
-    ev := WindowEvent pointerEnter:buttonState x:x y:y view:aView.
-    aView dispatchEvent:ev
-
-    "Created: / 24.11.1995 / 19:18:20 / cg"
-    "Modified: / 20.5.1998 / 22:58:20 / cg"
-!
-
-pointerLeave:buttonState view:aView
-    "forward a pointer leave for some view"
-
-    |ev|
-
-    ev := WindowEvent pointerLeave:buttonState view:aView.
-    aView dispatchEvent:ev
-
-    "Created: / 24.11.1995 / 19:18:30 / cg"
-    "Modified: / 20.5.1998 / 22:58:35 / cg"
-!
-
 saveAndTerminateView:aView
     "forward a saveAndTerminate event for some view"
 
@@ -280,20 +148,37 @@
 
 !SynchronousWindowSensor methodsFor:'event processing-private'!
 
-pushDamageEvent:ev
-    self sendEvent:ev to:ev view
+pushDamageEvent:anEvent
+    WindowGroup lastEventQuerySignal answer:anEvent do:[
+        anEvent view dispatchEvent:anEvent
+    ].
+!
+
+pushEvent:anEvent
+    WindowGroup lastEventQuerySignal answer:anEvent do:[
+        anEvent view dispatchEvent:anEvent
+    ].
 !
 
 pushUserEvent:selector for:anyObject withArguments:argList
     ^ anyObject perform:selector withArguments:argList.
 ! !
 
-!SynchronousWindowSensor methodsFor:'private'!
+!SynchronousWindowSensor methodsFor:'initialization'!
+
+initialize
+    "initialize the event queues to empty"
+
 
-sendEvent:anEvent to:aView
-    WindowGroup lastEventQuerySignal answer:anEvent do:[
-        aView dispatchEvent:anEvent
-    ].
+    gotExpose := IdentitySet new.
+    catchExpose := IdentitySet new.
+    gotOtherEvent := IdentitySet new.
+
+    compressMotionEvents := false.
+    translateKeyboardEvents := true.
+    ignoreUserInput := false.
+    shiftDown := ctrlDown := altDown := metaDown := false.
+    leftButtonDown := middleButtonDown := rightButtonDown := false.
 ! !
 
 !SynchronousWindowSensor methodsFor:'specials'!
@@ -352,5 +237,5 @@
 !SynchronousWindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.26 2004-03-20 15:42:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.27 2004-08-19 12:22:44 stefan Exp $'
 ! !