--- a/WindowEvent.st	Fri Aug 02 16:19:48 2002 +0200
+++ b/WindowEvent.st	Fri Aug 02 20:59:51 2002 +0200
@@ -771,34 +771,18 @@
 isConfigureEvent
     "return true, if this is a window geometry change event"
 
-    selector == #'configureX:y:width:height:' ifTrue:[
-        'oops-isConfigureEvent' errorPrintCR.
-        ^ true.
-    ].
     ^ false.
 !
 
 isDamage
     "return true, if this is a damage event"
 
-    selector == #damage ifTrue:[
-        'oops - isDamage broken' errorPrintCR.
-Display beep.
-thisContext sender fullPrintAll.
-        ^ true.
-    ].
     ^ false.
 !
 
 isDamageForView:aView
     "return true, if this is a damage event for a View"
 
-    selector == #damage ifTrue:[
-        'oops - isDamage broken' errorPrintCR.
-Display beep.
-thisContext sender fullPrintAll.
-        ^ (receiver == aView).
-    ].
     ^ false.
 !
 
@@ -872,11 +856,6 @@
 !
 
 isMouseWheelEvent
-    selector == #mouseWheelMotion:x:y:amount:deltaTime:
-    ifTrue:[
-        self halt.
-        ^ true.
-    ].
     ^ false
 !
 
@@ -927,10 +906,6 @@
     "Modified: 5.3.1997 / 11:27:40 / cg"
 !
 
-isWindowGeometryEvent
-    ^ false
-!
-
 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
@@ -1369,23 +1344,22 @@
     ^ true
 
     "Created: 4.4.1997 / 13:39:59 / cg"
-!
+! !
+
+!WindowEvent::KeyReleaseEvent methodsFor:'queries'!
+
+isKeyReleaseEvent
+    "return true, if this event is a keyboard press event"
+
+    ^ true
+! !
+
+!WindowEvent::KeyPressEvent methodsFor:'queries'!
 
 isKeyPressEvent
     "return true, if this event is a keyboard press event"
 
-    ^ (selector == #keyPress:x:y:)
-
-    "Created: / 28.1.1998 / 00:02:40 / cg"
-    "Modified: / 28.1.1998 / 00:02:52 / cg"
-!
-
-isKeyReleaseEvent
-    "return true, if this event is a keyboard release event"
-
-    ^ (selector == #keyRelease:x:y:)
-
-    "Created: / 28.1.1998 / 00:02:48 / cg"
+    ^ true
 ! !
 
 !WindowEvent::KeyboardFocusEvent methodsFor:'queries'!
@@ -1434,5 +1408,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.72 2002-08-02 11:55:19 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.73 2002-08-02 18:59:51 cg Exp $'
 ! !