equal
deleted
inserted
replaced
680 ]. |
680 ]. |
681 ^ s |
681 ^ s |
682 ! ! |
682 ! ! |
683 |
683 |
684 !FileStream class methodsFor:'Compatibility-Squeak'! |
684 !FileStream class methodsFor:'Compatibility-Squeak'! |
|
685 |
|
686 forceNewFileNamed:filename |
|
687 "return a writing FileStream for new file named filename, aString. |
|
688 Raise an error, if it already exists." |
|
689 |
|
690 filename asFilename exists ifTrue:[ |
|
691 self error:'file ',filename asFilename name,' already exists' |
|
692 ]. |
|
693 ^ self newFileNamed:filename |
|
694 ! |
685 |
695 |
686 readOnlyFileNamed:filename |
696 readOnlyFileNamed:filename |
687 "return a readonly FileStream for the existing file named filename, aString." |
697 "return a readonly FileStream for the existing file named filename, aString." |
688 |
698 |
689 ^ self readonlyFileNamed:filename |
699 ^ self readonlyFileNamed:filename |
1985 ! ! |
1995 ! ! |
1986 |
1996 |
1987 !FileStream class methodsFor:'documentation'! |
1997 !FileStream class methodsFor:'documentation'! |
1988 |
1998 |
1989 version |
1999 version |
1990 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.169 2013-08-10 11:32:53 stefan Exp $' |
2000 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.170 2014-02-22 15:57:39 cg Exp $' |
1991 ! |
2001 ! |
1992 |
2002 |
1993 version_CVS |
2003 version_CVS |
1994 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.169 2013-08-10 11:32:53 stefan Exp $' |
2004 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.170 2014-02-22 15:57:39 cg Exp $' |
1995 ! ! |
2005 ! ! |
1996 |
2006 |
1997 |
2007 |
1998 FileStream initialize! |
2008 FileStream initialize! |