equal
deleted
inserted
replaced
683 |
683 |
684 !FileStream class methodsFor:'Compatibility-Squeak'! |
684 !FileStream class methodsFor:'Compatibility-Squeak'! |
685 |
685 |
686 forceNewFileNamed:filename |
686 forceNewFileNamed:filename |
687 "return a writing FileStream for new file named filename, aString. |
687 "return a writing FileStream for new file named filename, aString. |
688 Raise an error, if it already exists." |
688 If it already exists, it is overwritten silently." |
689 |
689 |
690 filename asFilename exists ifTrue:[ |
|
691 self error:'file ',filename asFilename name,' already exists' |
|
692 ]. |
|
693 ^ self newFileNamed:filename |
690 ^ self newFileNamed:filename |
694 ! |
691 ! |
695 |
692 |
696 readOnlyFileNamed:filename |
693 readOnlyFileNamed:filename |
697 "return a readonly FileStream for the existing file named filename, aString." |
694 "return a readonly FileStream for the existing file named filename, aString." |
1995 ! ! |
1992 ! ! |
1996 |
1993 |
1997 !FileStream class methodsFor:'documentation'! |
1994 !FileStream class methodsFor:'documentation'! |
1998 |
1995 |
1999 version |
1996 version |
2000 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.170 2014-02-22 15:57:39 cg Exp $' |
1997 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.171 2014-02-22 16:34:26 cg Exp $' |
2001 ! |
1998 ! |
2002 |
1999 |
2003 version_CVS |
2000 version_CVS |
2004 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.170 2014-02-22 15:57:39 cg Exp $' |
2001 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.171 2014-02-22 16:34:26 cg Exp $' |
2005 ! ! |
2002 ! ! |
2006 |
2003 |
2007 |
2004 |
2008 FileStream initialize! |
2005 FileStream initialize! |