--- a/WEvent.st	Thu May 15 14:46:48 1997 +0200
+++ b/WEvent.st	Tue May 20 09:01:12 1997 +0200
@@ -539,6 +539,14 @@
       or:[type == #'buttonMotion:x:y:']]]]
 !
 
+isButtonMotionEvent
+    "return true, if this event is a buttonMotion event"
+
+    ^ (type == #buttonMotion:x:y:)
+
+    "Created: 5.3.1997 / 12:25:43 / cg"
+!
+
 isButtonPressEvent
     "return true, if this event is a buttonPress event"
 
@@ -761,6 +769,14 @@
     "Created: 4.4.1997 / 13:44:11 / cg"
 !
 
+isButtonMotionEvent
+    "return true, if this event is a buttonMotion event"
+
+    ^ (type == #buttonMotion:x:y:)
+
+    "Created: 4.4.1997 / 13:44:22 / cg"
+!
+
 isButtonPressEvent
     "return true, if this event is a buttonPress event"
 
@@ -772,5 +788,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.42 1997-04-12 09:31:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WEvent.st,v 1.43 1997-05-20 07:01:12 ca Exp $'
 ! !

--- a/WindowEvent.st	Thu May 15 14:46:48 1997 +0200
+++ b/WindowEvent.st	Tue May 20 09:01:12 1997 +0200
@@ -539,6 +539,14 @@
       or:[type == #'buttonMotion:x:y:']]]]
 !
 
+isButtonMotionEvent
+    "return true, if this event is a buttonMotion event"
+
+    ^ (type == #buttonMotion:x:y:)
+
+    "Created: 5.3.1997 / 12:25:43 / cg"
+!
+
 isButtonPressEvent
     "return true, if this event is a buttonPress event"
 
@@ -761,6 +769,14 @@
     "Created: 4.4.1997 / 13:44:11 / cg"
 !
 
+isButtonMotionEvent
+    "return true, if this event is a buttonMotion event"
+
+    ^ (type == #buttonMotion:x:y:)
+
+    "Created: 4.4.1997 / 13:44:22 / cg"
+!
+
 isButtonPressEvent
     "return true, if this event is a buttonPress event"
 
@@ -772,5 +788,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.42 1997-04-12 09:31:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.43 1997-05-20 07:01:12 ca Exp $'
 ! !