--- a/WindowEvent.st	Fri Oct 13 14:07:59 2006 +0200
+++ b/WindowEvent.st	Fri Oct 13 14:08:42 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 MessageSend subclass:#WindowEvent
@@ -355,7 +354,14 @@
 !
 
 dropFiles:files view:view position:dropPositionOrNil handle:dropHandleOrNil
-    ^ self dropMessage:#files data:files view:view position:dropPositionOrNil handle:dropHandleOrNil
+    ^ self 
+        dropMessage:(self dropType_files) 
+        data:files 
+        view:view 
+        position:dropPositionOrNil 
+        handle:dropHandleOrNil
+
+    "Modified: / 13-10-2006 / 10:11:47 / cg"
 !
 
 dropMessage:dropTypeSymbol data:dropValue view:aView position:positionOrNil handle:dropHandleOrNil
@@ -509,6 +515,32 @@
         type:#unmapped
 ! !
 
+!WindowEvent class methodsFor:'constants'!
+
+dropType_directory
+    ^ #directory
+
+    "Created: / 13-10-2006 / 10:08:59 / cg"
+!
+
+dropType_file
+    ^ #file
+
+    "Created: / 13-10-2006 / 10:08:52 / cg"
+!
+
+dropType_files
+    ^ #files
+
+    "Created: / 13-10-2006 / 10:09:04 / cg"
+!
+
+dropType_text
+    ^ #text
+
+    "Created: / 13-10-2006 / 10:09:36 / cg"
+! !
+
 !WindowEvent class methodsFor:'instance creation basic'!
 
 for:aView type:aSymbol
@@ -1447,7 +1479,7 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.86 2006-09-29 09:28:16 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.87 2006-10-13 12:08:42 cg Exp $'
 ! !
 
 WindowEvent::InputEvent initialize!