--- a/WindowEvent.st	Thu Feb 25 13:15:27 1999 +0100
+++ b/WindowEvent.st	Thu Feb 25 13:41:02 1999 +0100
@@ -348,6 +348,17 @@
     ^ type == #damage
 !
 
+isDamageForView:aView
+    "return true, if this is a damage event"
+
+    type == #damage ifTrue:[
+        view == aView ifTrue:[
+            ^ true
+        ]
+    ].
+    ^ false
+!
+
 isFocusEvent
     "return true, if this event is a focusIn/focusOut event"
 
@@ -732,5 +743,5 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.57 1998-11-12 17:06:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.58 1999-02-25 12:41:02 cg Exp $'
 ! !