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