--- a/DisplaySurface.st	Fri Jan 11 20:23:47 2008 +0100
+++ b/DisplaySurface.st	Fri Jan 11 20:24:25 2008 +0100
@@ -1401,6 +1401,11 @@
         deviceMessage := #'deviceButtonMultiPress:x:y:'.
         delegateMessage := #'buttonMultiPress:x:y:view:'.
         delegateQuery := #'handlesButtonMultiPress:inView:'.
+    ] ifFalse:[ (type == #mouseWheelMotion:x:y:amount:deltaTime:) ifTrue:[
+        isButtonEvent := true.
+        deviceMessage := type.
+        delegateMessage := #mouseWheelMotion:x:y:amount:deltaTime:view:.
+        delegateQuery := #handlesMouseWheelMotion:inView:.
     ] ifFalse:[ (type == #'pointerEnter:x:y:') ifTrue:[
         isPointerEvent := true.
         deviceMessage := #'devicePointerEnter:x:y:'.
@@ -1415,7 +1420,7 @@
         deviceMessage := #'deviceExposeX:y:width:height:'.
     ] ifFalse:[ (type == #'graphicsExposeX:y:width:height:final:') ifTrue:[
         deviceMessage := #'deviceGraphicsExposeX:y:width:height:final:'.
-    ]]]]]]]]]]].
+    ]]]]]]]]]]]].
 
     "
      if there is a focusView, and its a keyboard event, pass it
@@ -2438,7 +2443,7 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.132 2007-05-31 15:29:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.133 2008-01-11 19:24:25 stefan Exp $'
 ! !
 
 DisplaySurface initialize!