--- a/EditTextView.st	Tue Feb 02 15:20:51 2010 +0100
+++ b/EditTextView.st	Mon Feb 22 09:32:25 2010 +0100
@@ -2380,7 +2380,7 @@
     "drop objects
      For bw. compatibility, also collections of drop objects are handled (may vanish)"
 
-    |answer text fn pasteWhat sensor dontAskAgainHolder enforcedDropMode|
+    |answer text fn pasteWhat sensor dontAskAgainHolder enforcedDropMode app|
 
     pasteWhat := #name.
 
@@ -2424,7 +2424,10 @@
     ] ifFalse:[
         self withWaitCursorDo:[
             text := fn contentsOfEntireFile
-        ]
+        ].
+        (app := self application) notNil ifTrue:[
+            app droppedFile:fn in:self
+        ].
     ].
 
     self 
@@ -7705,9 +7708,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.487 2009-12-14 11:40:42 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.488 2010-02-22 08:32:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.487 2009-12-14 11:40:42 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.488 2010-02-22 08:32:25 cg Exp $'
 ! !