equal
deleted
inserted
replaced
786 ^ self |
786 ^ self |
787 ! ! |
787 ! ! |
788 |
788 |
789 !DirectoryTreeBrowser methodsFor:'drag & drop'! |
789 !DirectoryTreeBrowser methodsFor:'drag & drop'! |
790 |
790 |
791 doDrop:aContext |
791 dropDestinationPath |
792 |col destination destinationPath receiver| |
792 |destination| |
793 |
793 |
794 destination := self fileList draggedItem. |
794 destination := self fileList draggedItem. |
795 self dropLeave:aContext. |
795 destination ifNil:[^ nil]. |
796 destination ifNil:[^ false]. |
796 |
797 |
797 ^ destination fileName. |
798 destinationPath := destination fileName. |
|
799 |
|
800 aContext dropSource argument == #archivApplication ifTrue:[ |
|
801 receiver := aContext dropSource receiver. |
|
802 receiver extractSelectedFilesTo:destinationPath askForExtractOptions:true. |
|
803 ^ true |
|
804 ]. |
|
805 col := OrderedCollection new. |
|
806 aContext dropObjects do:[:obj | |
|
807 col add:(obj theObject) |
|
808 ]. |
|
809 self copyOrMoveFiles:col to:destinationPath. |
|
810 ^ true |
|
811 ! |
798 ! |
812 |
799 |
813 dropOver:aDropContext |
800 dropOver:aDropContext |
814 "called during drag & drop while moving over the widget." |
801 "called during drag & drop while moving over the widget." |
815 |
802 |
1252 ! ! |
1239 ! ! |
1253 |
1240 |
1254 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1241 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1255 |
1242 |
1256 version |
1243 version |
1257 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.55 2003-03-24 16:59:37 cg Exp $' |
1244 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.56 2003-03-30 13:07:54 cg Exp $' |
1258 ! ! |
1245 ! ! |