equal
deleted
inserted
replaced
194 ! ! |
194 ! ! |
195 |
195 |
196 !FileOperation::Copy class methodsFor:'documentation'! |
196 !FileOperation::Copy class methodsFor:'documentation'! |
197 |
197 |
198 version |
198 version |
199 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.24 2003-02-27 17:14:48 penk Exp $' |
199 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.25 2003-03-02 18:39:21 stefan Exp $' |
200 ! ! |
200 ! ! |
201 |
201 |
202 !FileOperation::Copy methodsFor:'accessing'! |
202 !FileOperation::Copy methodsFor:'accessing'! |
203 |
203 |
204 colOfCopiedFiles |
204 colOfCopiedFiles |
398 ! ! |
398 ! ! |
399 |
399 |
400 !FileOperation::Create class methodsFor:'documentation'! |
400 !FileOperation::Create class methodsFor:'documentation'! |
401 |
401 |
402 version |
402 version |
403 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.24 2003-02-27 17:14:48 penk Exp $' |
403 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.25 2003-03-02 18:39:21 stefan Exp $' |
404 ! ! |
404 ! ! |
405 |
405 |
406 !FileOperation::Create methodsFor:'accessing'! |
406 !FileOperation::Create methodsFor:'accessing'! |
407 |
407 |
408 createdFile |
408 createdFile |
520 self result:false. |
520 self result:false. |
521 ^ Dialog warn:errorString |
521 ^ Dialog warn:errorString |
522 ] do:[ |
522 ] do:[ |
523 aStream := newFile newReadWriteStream. |
523 aStream := newFile newReadWriteStream. |
524 ]. |
524 ]. |
525 aStream notNil ifTrue:[ |
525 aStream close. |
526 aStream close. |
526 self createdFile:newFile. |
527 self createdFile:newFile. |
527 LastCreatedFile := newFile. |
528 LastCreatedFile := newFile. |
528 self result:true. |
529 self result:true. |
|
530 ] ifFalse:[ |
|
531 msg := ('Cannot create file '', newName, '' !!') , '(' , (FileStream lastErrorString) , ')'. |
|
532 errorString := msg. |
|
533 self result:false. |
|
534 ^ Dialog warn:errorString |
|
535 ]. |
|
536 ]. |
529 ]. |
537 ! |
530 ! |
538 |
531 |
539 createHardLinkIn:aFile |
532 createHardLinkIn:aFile |
540 "create an new hard link in a files directory" |
533 "create an new hard link in a files directory" |
651 ! ! |
644 ! ! |
652 |
645 |
653 !FileOperation::Delete class methodsFor:'documentation'! |
646 !FileOperation::Delete class methodsFor:'documentation'! |
654 |
647 |
655 version |
648 version |
656 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.24 2003-02-27 17:14:48 penk Exp $' |
649 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.25 2003-03-02 18:39:21 stefan Exp $' |
657 ! ! |
650 ! ! |
658 |
651 |
659 !FileOperation::Delete methodsFor:'actions'! |
652 !FileOperation::Delete methodsFor:'actions'! |
660 |
653 |
661 deleteFile:aFileOrDirectory |
654 deleteFile:aFileOrDirectory |
687 ! |
680 ! |
688 |
681 |
689 deleteFiles:colOfFiles |
682 deleteFiles:colOfFiles |
690 "delete current selected files/directories |
683 "delete current selected files/directories |
691 " |
684 " |
692 |resources retVal ask size labels values contents | |
685 |resources retVal ask size labels values| |
693 |
686 |
694 resources := AbstractFileBrowser classResources. |
687 resources := AbstractFileBrowser classResources. |
695 |
688 |
696 ask := true. |
689 ask := true. |
697 size := colOfFiles size. |
690 size := colOfFiles size. |
725 ask := false. |
718 ask := false. |
726 retVal := #yes. |
719 retVal := #yes. |
727 ]. |
720 ]. |
728 retVal == #yes ifTrue:[ |
721 retVal == #yes ifTrue:[ |
729 doDelete := true. |
722 doDelete := true. |
730 filename isDirectory ifTrue:[ |
723 filename isNonEmptyDirectory ifTrue:[ |
731 contents := filename directoryContents. |
724 answer := Dialog |
732 contents isNilOrEmptyCollection ifFalse:[ |
725 confirmWithCancel:(('Directory ''%1'' is not empty', Character cr asString, 'remove anyway ?') |
733 answer := Dialog |
726 bindWith:filename pathName allBold) |
734 confirmWithCancel:(('Directory ''%1'' is not empty', Character cr asString, 'remove anyway ?') |
727 labels:( #('Cancel' 'Keep' 'Remove') ) |
735 bindWith:filename pathName allBold) |
728 values:#(nil false true) |
736 labels:( #('Cancel' 'Keep' 'Remove') ) |
729 default:2. |
737 values:#(nil false true) |
730 answer == nil ifTrue:[ |
738 default:2. |
731 ^ self |
739 answer == nil ifTrue:[ |
732 ]. |
740 ^ self |
733 doDelete := answer |
741 ]. |
|
742 doDelete := answer |
|
743 ] |
|
744 ]. |
734 ]. |
745 doDelete ifTrue:[ |
735 doDelete ifTrue:[ |
746 self deleteFile:filename. |
736 self deleteFile:filename. |
747 ] |
737 ] |
748 ]. |
738 ]. |
818 ! ! |
808 ! ! |
819 |
809 |
820 !FileOperation::Move class methodsFor:'documentation'! |
810 !FileOperation::Move class methodsFor:'documentation'! |
821 |
811 |
822 version |
812 version |
823 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.24 2003-02-27 17:14:48 penk Exp $' |
813 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.25 2003-03-02 18:39:21 stefan Exp $' |
824 ! ! |
814 ! ! |
825 |
815 |
826 !FileOperation::Move methodsFor:'accessing'! |
816 !FileOperation::Move methodsFor:'accessing'! |
827 |
817 |
828 colOfMovedFiles |
818 colOfMovedFiles |
988 ! ! |
978 ! ! |
989 |
979 |
990 !FileOperation::Rename class methodsFor:'documentation'! |
980 !FileOperation::Rename class methodsFor:'documentation'! |
991 |
981 |
992 version |
982 version |
993 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.24 2003-02-27 17:14:48 penk Exp $' |
983 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.25 2003-03-02 18:39:21 stefan Exp $' |
994 ! ! |
984 ! ! |
995 |
985 |
996 !FileOperation::Rename methodsFor:'accessing'! |
986 !FileOperation::Rename methodsFor:'accessing'! |
997 |
987 |
998 renamedFiles |
988 renamedFiles |
1075 ! ! |
1065 ! ! |
1076 |
1066 |
1077 !FileOperation class methodsFor:'documentation'! |
1067 !FileOperation class methodsFor:'documentation'! |
1078 |
1068 |
1079 version |
1069 version |
1080 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.24 2003-02-27 17:14:48 penk Exp $' |
1070 ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.25 2003-03-02 18:39:21 stefan Exp $' |
1081 ! ! |
1071 ! ! |