equal
deleted
inserted
replaced
3381 self notify:msg. |
3381 self notify:msg. |
3382 ^ copy result |
3382 ^ copy result |
3383 ! |
3383 ! |
3384 |
3384 |
3385 copyFiles:aColOfSourceFiles to:aDirectory |
3385 copyFiles:aColOfSourceFiles to:aDirectory |
3386 |copy| |
3386 |copy result| |
3387 |
3387 |
3388 self withWaitCursorDo:[ |
3388 self withWaitCursorDo:[ |
3389 copy := FileOperation copyFiles:aColOfSourceFiles to:aDirectory. |
3389 copy := FileOperation copyFiles:aColOfSourceFiles to:aDirectory. |
3390 copy result ifFalse:[ |
3390 copy result ifTrue:[ |
|
3391 result := Dictionary withKeys:(copy collectionOfCopiedFiles) andValues:(copy collectionOfNewFiles). |
|
3392 ] ifFalse:[ |
3391 self notify:copy errorString. |
3393 self notify:copy errorString. |
3392 ]. |
3394 ]. |
3393 self updateCurrentDirectory. |
3395 self updateCurrentDirectory. |
3394 ]. |
3396 ]. |
3395 ^ copy collectionOfCopiedFiles |
3397 ^ result |
3396 ! |
3398 ! |
3397 |
3399 |
3398 copyOrMoveDialog:aCollectionOfFiles for:aDestinationDirectory |
3400 copyOrMoveDialog:aCollectionOfFiles for:aDestinationDirectory |
3399 |size stream msg answer file| |
3401 |size stream msg answer file| |
3400 |
3402 |
3745 buffer files remove:aFile. |
3747 buffer files remove:aFile. |
3746 ]. |
3748 ]. |
3747 ]. |
3749 ]. |
3748 ]. |
3750 ]. |
3749 copiedFiles := self copyFiles:(buffer files) to:destination. |
3751 copiedFiles := self copyFiles:(buffer files) to:destination. |
3750 thisIsAFileMoveOperation ifTrue:[ |
3752 copiedFiles notEmptyOrNil ifTrue:[ |
3751 self deleteFiles:copiedFiles confirm:false. |
3753 thisIsAFileMoveOperation ifTrue:[ |
3752 ]. |
3754 self deleteFiles:(copiedFiles keys) confirm:false. |
3753 "/ select those pasted files. |
3755 ]. |
3754 self halt. |
3756 |
3755 self currentFileNameHolder value:buffer files. |
3757 "/ select those pasted files. |
|
3758 self updateCurrentDirectory:true. |
|
3759 self currentFileNameHolder value:copiedFiles values. |
|
3760 ] |
3756 ! |
3761 ! |
3757 |
3762 |
3758 renameFile:aFile |
3763 renameFile:aFile |
3759 "rename the selected file(s)" |
3764 "rename the selected file(s)" |
3760 |
3765 |
6797 ! ! |
6802 ! ! |
6798 |
6803 |
6799 !AbstractFileBrowser class methodsFor:'documentation'! |
6804 !AbstractFileBrowser class methodsFor:'documentation'! |
6800 |
6805 |
6801 version |
6806 version |
6802 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.304 2005-08-05 09:34:33 cg Exp $' |
6807 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.305 2005-08-05 10:04:57 cg Exp $' |
6803 ! ! |
6808 ! ! |