--- 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!