--- a/WindowEvent.st	Wed Jul 09 14:20:10 2008 +0200
+++ b/WindowEvent.st	Wed Jul 09 14:43:33 2008 +0200
@@ -144,6 +144,13 @@
 	privateIn:WindowEvent
 !
 
+WindowEvent::ButtonEvent subclass:#MouseWheelMotionEvent
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:WindowEvent
+!
+
 WindowEvent::InputEvent subclass:#NativeWidgetCommandEvent
 	instanceVariableNames:''
 	classVariableNames:''
@@ -452,7 +459,7 @@
 !
 
 mouseWheelMotion:state x:x y:y amount:amount deltaTime:deltaTime view:aView
-    ^ InputEvent
+    ^ MouseWheelMotionEvent
              for:aView
              type:#mouseWheelMotion:x:y:amount:deltaTime:
              arguments:(Array with:state with:x with:y with:amount with:deltaTime).
@@ -1298,6 +1305,23 @@
     ^ (receiver == aView)
 ! !
 
+!WindowEvent::EnterLeaveEvent methodsFor:'accessing'!
+
+state
+
+    ^ args at:1
+!
+
+x
+
+    ^ args at:2 ifAbsent:nil
+!
+
+y
+
+    ^ args at:3 ifAbsent:nil
+! !
+
 !WindowEvent::EnterLeaveEvent methodsFor:'queries'!
 
 isPointerEnterEvent
@@ -1446,6 +1470,13 @@
     ^ true
 ! !
 
+!WindowEvent::KeyboardFocusEvent methodsFor:'accessing'!
+
+hasFocus
+
+    ^ args at: 1
+! !
+
 !WindowEvent::KeyboardFocusEvent methodsFor:'queries'!
 
 isKeyboardFocusEvent
@@ -1471,6 +1502,20 @@
 
 ! !
 
+!WindowEvent::MouseWheelMotionEvent methodsFor:'accessing'!
+
+amount
+    "return the amount of the mouse wheel motion event   "
+
+    ^ args at:4
+!
+
+deltaTime
+    "return the deltaTime of the mouse wheel motion event   "
+
+    ^ args at:5
+! !
+
 !WindowEvent::NativeWidgetCommandEvent methodsFor:'accessing'!
 
 command
@@ -1545,7 +1590,7 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.93 2008-06-23 18:44:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.94 2008-07-09 12:43:33 fm Exp $'
 ! !
 
 WindowEvent::InputEvent initialize!