--- a/WindowEvent.st	Fri Aug 05 03:15:24 1994 +0200
+++ b/WindowEvent.st	Fri Aug 05 03:16:44 1994 +0200
@@ -17,6 +17,13 @@
          category:'Interface-Support'
 !
 
+WindowEvent comment:'
+COPYRIGHT (c) 1993 by Claus Gittinger
+              All Rights Reserved
+
+$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.6 1994-08-05 01:16:15 claus Exp $
+'!
+
 !WindowEvent class methodsFor:'documentation'!
 
 copyright
@@ -35,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.5 1994-06-03 00:54:00 claus Exp $
+$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.6 1994-08-05 01:16:15 claus Exp $
 "
 !
 
@@ -78,6 +85,12 @@
     ^ type
 !
 
+isDamage
+    "return true, if this is a damage event"
+
+    ^ type == #damage
+!
+
 arguments
     "return the arguments of the event"
 
@@ -104,12 +117,15 @@
 
     |delegate selector|
 
-    type == #keyPress:x:y: ifTrue:[
-        view device sendKeyPress:(arguments at:1)
-                               x:(arguments at:2)
-                               y:(arguments at:3)
-                              to:view 
-    ] ifFalse:[
+"/    type == #keyPress:x:y: ifTrue:[
+        "/
+        "/ send it via the device, which does the key-mapping
+        "/
+"/        view device sendKeyPress:(arguments at:1)
+"/                               x:(arguments at:2)
+"/                               y:(arguments at:3)
+"/                              to:view 
+"/    ] ifFalse:[
         delegate := view delegate.
         delegate notNil ifTrue:[
             "what a kludge - sending to delegate needs another
@@ -129,7 +145,7 @@
         ] ifFalse:[
             view perform:type withArguments:arguments
         ]
-    ]
+"/    ]
 ! !
 
 !WindowEvent methodsFor:'private accessing'!