# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1204280488 -3600
# Node ID 7bfe0f1a8b3d14ff170510a8bdf4c83bdd6fe1a3
# Parent  c9e2f7506f6eb4ab28bc2a0a90b7738ee57b371f
fixed external file drop

diff -r c9e2f7506f6e -r 7bfe0f1a8b3d AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Fri Feb 29 11:10:58 2008 +0100
+++ b/AbstractFileBrowser.st	Fri Feb 29 11:21:28 2008 +0100
@@ -3502,9 +3502,13 @@
 !
 
 dropObjects:aCollectionOfDropObjects in:aWidget at:position
-    |destDir dropObject fn d|
-
-    aWidget model == self fileEntryFieldHolder ifTrue:[
+    |fileEntryFieldHolder destDir dropObject fn d|
+
+    fileEntryFieldHolder := self masterApplication notNil 
+                              ifTrue:[ self masterApplication fileEntryFieldHolder ]
+                              ifFalse:[ self fileEntryFieldHolder ].
+
+    aWidget model == fileEntryFieldHolder ifTrue:[
         dropObject := aCollectionOfDropObjects first.
         dropObject isFileObject ifTrue:[
             fn := dropObject theObject asFilename.
@@ -3513,7 +3517,7 @@
             ] ifFalse:[
                 d := fn directory.
             ].
-            self fileEntryFieldHolder value:d pathName.
+            fileEntryFieldHolder value:d pathName.
         ].
         ^ self.
     ].
@@ -7309,5 +7313,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.361 2008-01-25 09:26:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.362 2008-02-29 10:21:28 cg Exp $'
 ! !