equal
deleted
inserted
replaced
878 ^ self accessDeniedError:newName asFilename. |
878 ^ self accessDeniedError:newName asFilename. |
879 ]. |
879 ]. |
880 |
880 |
881 " |
881 " |
882 '/tmp/foo' asFilename renameTo:'/tmp/bar' |
882 '/tmp/foo' asFilename renameTo:'/tmp/bar' |
|
883 " |
|
884 ! |
|
885 |
|
886 truncateTo:newSize |
|
887 "change the files size. |
|
888 This may not be supported on all operating systems" |
|
889 |
|
890 (OperatingSystem truncateFile:nameString to:newSize) ifFalse:[ |
|
891 ^ self reportError:'unsupported operation' with:self |
|
892 ] |
|
893 |
|
894 " |
|
895 |s| |
|
896 |
|
897 s := 'test' asFilename writeStream. |
|
898 s next:1000 put:$1. |
|
899 s close. |
|
900 ('test' asFilename fileSize) printNL. |
|
901 'test' asFilename truncateTo:100. |
|
902 ('test' asFilename fileSize) printNL. |
883 " |
903 " |
884 ! ! |
904 ! ! |
885 |
905 |
886 !Filename methodsFor:'file queries'! |
906 !Filename methodsFor:'file queries'! |
887 |
907 |
1615 ! ! |
1635 ! ! |
1616 |
1636 |
1617 !Filename class methodsFor:'documentation'! |
1637 !Filename class methodsFor:'documentation'! |
1618 |
1638 |
1619 version |
1639 version |
1620 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.49 1996-01-18 21:34:08 cg Exp $' |
1640 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.50 1996-02-04 19:06:34 cg Exp $' |
1621 ! ! |
1641 ! ! |