--- a/DirectoryTreeBrowser.st	Sun Mar 30 15:04:24 2003 +0200
+++ b/DirectoryTreeBrowser.st	Sun Mar 30 15:07:54 2003 +0200
@@ -788,26 +788,13 @@
 
 !DirectoryTreeBrowser methodsFor:'drag & drop'!
 
-doDrop:aContext 
-    |col destination destinationPath receiver|
+dropDestinationPath
+    |destination|
 
     destination := self fileList draggedItem.
-    self dropLeave:aContext.
-    destination ifNil:[^ false].
-
-    destinationPath := destination fileName.
+    destination ifNil:[^ nil].
 
-    aContext dropSource argument == #archivApplication ifTrue:[
-        receiver := aContext dropSource receiver.
-        receiver extractSelectedFilesTo:destinationPath askForExtractOptions:true.
-        ^ true
-    ].
-    col := OrderedCollection new.
-    aContext dropObjects do:[:obj | 
-        col add:(obj theObject)
-    ].
-    self copyOrMoveFiles:col to:destinationPath.
-    ^ true
+    ^ destination fileName.
 !
 
 dropOver:aDropContext 
@@ -1254,5 +1241,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.55 2003-03-24 16:59:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.56 2003-03-30 13:07:54 cg Exp $'
 ! !