--- a/WindowEvent.st	Tue Jul 22 17:07:45 2008 +0200
+++ b/WindowEvent.st	Tue Jul 22 17:30:12 2008 +0200
@@ -334,6 +334,8 @@
 !
 
 clientMessageEvent:type format:format eventData:data view:aView
+    "this one is only used with X-Windows"
+
     ^ ClientEvent
          for:aView
          type:#clientMessage:format:eventData:
@@ -347,6 +349,15 @@
          arguments:(Array with:x with:y with:w with:h)
 !
 
+copyDataEvent:type eventData:data view:aView
+    "this one is only used with Win32"
+
+    ^ ClientEvent
+         for:aView
+         type:#copyDataEvent:eventData:
+         arguments:(Array with:type with:data)
+!
+
 coveredBy:coveringSiblingView view:coveredView
     ^ (WindowEvent basicNew)
         for:coveredView 
@@ -1592,7 +1603,7 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.95 2008-07-11 15:24:47 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.96 2008-07-22 15:30:12 cg Exp $'
 ! !
 
 WindowEvent::InputEvent initialize!