--- a/AbstractFileBrowser.st Sat Mar 29 16:50:26 2003 +0100
+++ b/AbstractFileBrowser.st Sun Mar 30 15:04:24 2003 +0200
@@ -3248,14 +3248,15 @@
"
|hdl|
-
hdl := DragAndDropManager new.
hdl disabledCursor:self class disabledCursorImage.
hdl enabledCursor:self class enabledCursorImage.
hdl alienCursor:nil.
- hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
+ hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft.
+
+self halt.
! !
!AbstractFileBrowser methodsFor:'file operations'!
@@ -3334,8 +3335,10 @@
!
copyOrMoveFiles:aColOfSourceFiles to:aDestinationDirectory
- "copy aColOfSourceFiles to aDirectory
- "
+ "copy or move aColOfSourceFiles to aDirectory.
+ Asks the used if a move or a copy is wanted.
+ Returns true if the copyOrMove happened, false if user aborted the operation."
+
|answer lastOld lastNew|
answer := self copyOrMoveDialog:aColOfSourceFiles for:aDestinationDirectory.
@@ -3351,22 +3354,23 @@
goodRenameDefaultForFile:srcBase lastOld:lastOld lastNew:lastNew.
].
dstBase := Dialog request:('Copy %1 as:' bindWith:srcBase) initialAnswer:initial.
- dstBase isNil ifTrue:[^ self].
+ dstBase isNil ifTrue:[^ false].
self copyFile:eachSourceFile to:(aDestinationDirectory construct:dstBase).
lastOld := srcBase.
lastNew := dstBase.
].
- ^ self.
+ ^ true.
].
answer == #copy ifTrue:[
self copyFiles:aColOfSourceFiles to:aDestinationDirectory.
- ^ self.
+ ^ true.
].
answer == #move ifTrue:[
self moveFiles:aColOfSourceFiles to:aDestinationDirectory.
- ^ self.
+ ^ true.
].
+ ^ false.
!
deleteFile:aFile
@@ -6090,5 +6094,5 @@
!AbstractFileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.119 2003-03-29 13:08:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.120 2003-03-30 13:04:24 cg Exp $'
! !