equal
deleted
inserted
replaced
947 aStream nextPut:$) |
947 aStream nextPut:$) |
948 |
948 |
949 "Modified: 30.7.1997 / 16:43:50 / cg" |
949 "Modified: 30.7.1997 / 16:43:50 / cg" |
950 ! ! |
950 ! ! |
951 |
951 |
952 !FileStream methodsFor:'private'! |
952 !FileStream privateMethodsFor:'private'! |
953 |
953 |
954 closeFile |
954 closeFile |
955 "low level close - may be redefined in subclasses. |
955 "low level close - may be redefined in subclasses. |
956 Don't send this message, send #close instead" |
956 Don't send this message, send #close instead" |
957 |
957 |
959 removeOnClose == true ifTrue:[ |
959 removeOnClose == true ifTrue:[ |
960 pathName asFilename remove. |
960 pathName asFilename remove. |
961 ] |
961 ] |
962 |
962 |
963 "Created: / 13.8.1998 / 12:11:22 / cg" |
963 "Created: / 13.8.1998 / 12:11:22 / cg" |
964 ! |
964 ! ! |
|
965 |
|
966 !FileStream methodsFor:'private'! |
965 |
967 |
966 createForReadWrite |
968 createForReadWrite |
967 "create/truncate the file for read/write. |
969 "create/truncate the file for read/write. |
968 If the file existed, its truncated; otherwise its created." |
970 If the file existed, its truncated; otherwise its created." |
969 |
971 |
1455 ! ! |
1457 ! ! |
1456 |
1458 |
1457 !FileStream class methodsFor:'documentation'! |
1459 !FileStream class methodsFor:'documentation'! |
1458 |
1460 |
1459 version |
1461 version |
1460 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.109 2004-08-12 13:51:02 stefan Exp $' |
1462 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.110 2004-08-12 15:48:55 stefan Exp $' |
1461 ! ! |
1463 ! ! |
1462 |
1464 |
1463 FileStream initialize! |
1465 FileStream initialize! |