equal
deleted
inserted
replaced
3824 |
3824 |
3825 |errno newName| |
3825 |errno newName| |
3826 |
3826 |
3827 newName := newNameArg asFilename. |
3827 newName := newNameArg asFilename. |
3828 (OperatingSystem |
3828 (OperatingSystem |
3829 renameFile:(self osNameForFile) |
3829 renameFile:(self osNameForFile) |
3830 to:(newName osNameForFile) |
3830 to:(newName osNameForFile) |
3831 ) ifFalse:[ |
3831 ) ifFalse:[ |
3832 errno := OperatingSystem lastErrorNumber. |
3832 errno := OperatingSystem lastErrorNumber. |
3833 |
3833 |
3834 self exists ifFalse:[ |
3834 self exists ifFalse:[ |
3835 ^ self fileNotFoundError:self |
3835 ^ self fileNotFoundError:self |
3836 ]. |
3836 ]. |
3837 (OperatingSystem errorHolderForNumber:errno) |
3837 (OperatingSystem errorHolderForNumber:errno) |
3838 parameter:newName; |
3838 parameter:newName; |
3839 reportError. |
3839 reportError. |
3840 ]. |
3840 ]. |
3841 |
3841 |
3842 " |
3842 " |
3843 '/tmp/foo' asFilename renameTo:'/tmp/bar' |
3843 '/tmp/foo' asFilename renameTo:'/tmp/bar' |
|
3844 'C:\windows' asFilename renameTo:'C:\win' |
3844 " |
3845 " |
3845 |
3846 |
3846 "Modified: / 5.5.1999 / 13:41:27 / cg" |
3847 "Modified: / 5.5.1999 / 13:41:27 / cg" |
3847 ! |
3848 ! |
3848 |
3849 |