--- a/WindowEvent.st	Wed Feb 25 11:14:54 2009 +0100
+++ b/WindowEvent.st	Wed Feb 25 11:35:01 2009 +0100
@@ -1180,10 +1180,6 @@
     "Created: / 21.5.1999 / 19:49:30 / cg"
 !
 
-isMouseWheelEvent
-    ^ selector == #mouseWheelMotion:x:y:amount:deltaTime:
-!
-
 targetView
     "return the view which will eventually handle the event;
      for most events, this is the same as the view, for which the event was
@@ -1556,6 +1552,18 @@
     ^ args at:5
 ! !
 
+!WindowEvent::MouseWheelMotionEvent methodsFor:'queries'!
+
+isDelegatedToFocusView
+    "return true, if this event will be forwarded to a focusView."
+
+    ^ true.
+!
+
+isMouseWheelEvent
+    ^ true.
+! !
+
 !WindowEvent::NativeWidgetCommandEvent methodsFor:'accessing'!
 
 command
@@ -1630,7 +1638,7 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.99 2009-02-25 10:14:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.100 2009-02-25 10:35:01 sr Exp $'
 ! !
 
 WindowEvent::InputEvent initialize!