equal
deleted
inserted
replaced
689 compressFile:aFile to:newFile |
689 compressFile:aFile to:newFile |
690 | cmd directory| |
690 | cmd directory| |
691 |
691 |
692 directory := newFile directory. |
692 directory := newFile directory. |
693 (directory exists) ifFalse:[ |
693 (directory exists) ifFalse:[ |
694 DialogBox warn:'cannot compress to non-existing directory ', directory asString. |
694 self warn:'Cannot compress to non-existing directory ', directory asString. |
695 ]. |
695 ]. |
696 (directory isDirectory) ifFalse:[ |
696 (directory isDirectory) ifFalse:[ |
697 DialogBox warn:'cannot compress to non-directory ', directory asString. |
697 self warn:'Cannot compress to non-directory ', directory asString. |
698 ]. |
698 ]. |
699 |
699 |
700 cmd := self getCommandToCompress:aFile asNew:newFile. |
700 cmd := self getCommandToCompress:aFile asNew:newFile. |
701 self executeCommand:cmd directory:directory. |
701 self executeCommand:cmd directory:directory. |
702 newFile exists ifTrue:[ |
702 newFile exists ifTrue:[ |
710 |
710 |
711 uncompressTo:aDirectory |
711 uncompressTo:aDirectory |
712 | cmd file newFile| |
712 | cmd file newFile| |
713 |
713 |
714 (aDirectory exists) ifFalse:[ |
714 (aDirectory exists) ifFalse:[ |
715 DialogBox warn:'cannot uncompress to non-existing directory ', aDirectory asString. |
715 self warn:'Cannot uncompress to non-existing directory ', aDirectory asString. |
716 ^ self |
716 ^ self |
717 ]. |
717 ]. |
718 (aDirectory isDirectory) ifFalse:[ |
718 (aDirectory isDirectory) ifFalse:[ |
719 DialogBox warn:'cannot uncompress to file ', aDirectory asString. |
719 self warn:'Cannot uncompress to file ', aDirectory asString. |
720 ^ self |
720 ^ self |
721 ]. |
721 ]. |
722 file := newFile := self fileName. |
722 file := newFile := self fileName. |
723 (file directory pathName = aDirectory pathName) ifFalse:[ |
723 (file directory pathName = aDirectory pathName) ifFalse:[ |
724 newFile := aDirectory construct:(file baseName). |
724 newFile := aDirectory construct:(file baseName). |
1295 ! ! |
1295 ! ! |
1296 |
1296 |
1297 !Archiver class methodsFor:'documentation'! |
1297 !Archiver class methodsFor:'documentation'! |
1298 |
1298 |
1299 version |
1299 version |
1300 ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.33 2008-10-20 14:32:10 cg Exp $' |
1300 ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.34 2009-01-13 21:03:16 cg Exp $' |
1301 ! ! |
1301 ! ! |
1302 |
1302 |
1303 Archiver initialize! |
1303 Archiver initialize! |