equal
deleted
inserted
replaced
317 ] ifFalse:[ |
317 ] ifFalse:[ |
318 targetDirectory := aDestFile directory. |
318 targetDirectory := aDestFile directory. |
319 newFile := aDestFile. |
319 newFile := aDestFile. |
320 ]. |
320 ]. |
321 "/ do not copy if destination directory doest exist. |
321 "/ do not copy if destination directory doest exist. |
322 (targetDirectory exists not) ifTrue:[ |
322 targetDirectory exists ifFalse:[ |
323 Dialog warn:'cant copy to not existing directory ', targetDirectory asString. |
323 Dialog warn:'cant copy to not existing directory ', targetDirectory asString. |
324 result := false. |
324 result := false. |
325 ^ self |
325 ^ self |
326 ]. |
326 ]. |
327 (newFile exists) ifTrue:[ |
327 (newFile exists) ifTrue:[ |
641 (box addTextLabel:(resources string:'to:')) adjust:#left. |
641 (box addTextLabel:(resources string:'to:')) adjust:#left. |
642 if2 := box addFilenameInputFieldOn:newPath in:nil value tabable:true. |
642 if2 := box addFilenameInputFieldOn:newPath in:nil value tabable:true. |
643 |
643 |
644 box addAbortAndOkButtons. |
644 box addAbortAndOkButtons. |
645 |
645 |
646 aFile isDirectory not ifTrue:[ |
646 aFile isDirectory ifFalse:[ |
647 box focusOnField:if1. |
647 box focusOnField:if1. |
648 ]. |
648 ]. |
649 box showAtPointer. |
649 box showAtPointer. |
650 |
650 |
651 box accepted ifFalse:[ |
651 box accepted ifFalse:[ |
1004 ] ifFalse:[ |
1004 ] ifFalse:[ |
1005 targetDirectory := aDestFile directory. |
1005 targetDirectory := aDestFile directory. |
1006 newFile := aDestFile. |
1006 newFile := aDestFile. |
1007 ]. |
1007 ]. |
1008 "/ do not copy if destination directory doest exist. |
1008 "/ do not copy if destination directory doest exist. |
1009 (targetDirectory exists not) ifTrue:[ |
1009 targetDirectory exists ifFalse:[ |
1010 Dialog warn:'Cannot move to non-existing directory ', targetDirectory asString. |
1010 Dialog warn:'Cannot move to non-existing directory ', targetDirectory asString. |
1011 result := false. |
1011 result := false. |
1012 ^ self |
1012 ^ self |
1013 ]. |
1013 ]. |
1014 (newFile exists) ifTrue:[ |
1014 (newFile exists) ifTrue:[ |
1283 ! ! |
1283 ! ! |
1284 |
1284 |
1285 !FileOperation class methodsFor:'documentation'! |
1285 !FileOperation class methodsFor:'documentation'! |
1286 |
1286 |
1287 version |
1287 version |
1288 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.65 2005-02-14 16:13:59 cg Exp $' |
1288 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.66 2005-04-14 09:12:32 cg Exp $' |
1289 ! ! |
1289 ! ! |