--- a/Filename.st Fri Sep 10 14:04:29 2004 +0200
+++ b/Filename.st Fri Sep 10 15:16:26 2004 +0200
@@ -2364,9 +2364,18 @@
|inStream outStream|
+ "Contents is not copied if newName represent same file as me."
+ newName asFilename asAbsoluteFilename = self asAbsoluteFilename ifTrue: [ ^ self ].
+
inStream := self readStream.
+ inStream isNil ifTrue:[
+ ^ self fileNotFoundError:self
+ ].
[
outStream := newName asFilename writeStream.
+ outStream isNil ifTrue:[
+ ^ self fileCreationError:newName asFilename
+ ].
[
inStream copyToEndInto:outStream.
@@ -2385,6 +2394,7 @@
"
"Modified: / 23.12.1999 / 21:52:36 / cg"
+ "Modified: / 10.9.2004 / 09:49:28 / janfrog"
!
createAsEmptyFile
@@ -5021,7 +5031,7 @@
!Filename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.281 2004-08-13 19:30:22 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.282 2004-09-10 13:16:26 cg Exp $'
! !
Filename initialize!