equal
deleted
inserted
replaced
514 oldPos := position. |
514 oldPos := position. |
515 self open. |
515 self open. |
516 filePointer isNil ifTrue:[ |
516 filePointer isNil ifTrue:[ |
517 "this happens, if after a restart, the file is no longer accessable ..." |
517 "this happens, if after a restart, the file is no longer accessable ..." |
518 |
518 |
519 ('FILESTREAM: could not reopen file: ', pathName) errorPrintNL. |
519 (self class name , ' [warning]: could not reOpen file: ', pathName) errorPrintCR. |
520 ] ifFalse:[ |
520 ] ifFalse:[ |
521 self position:oldPos. |
521 self position:oldPos. |
522 ] |
522 ] |
523 ] |
523 ] |
524 |
524 |
525 "Modified: 7.3.1996 / 19:15:07 / cg" |
525 "Modified: 10.1.1997 / 17:50:51 / cg" |
526 ! ! |
526 ! ! |
527 |
527 |
528 !FileStream methodsFor:'queries'! |
528 !FileStream methodsFor:'queries'! |
529 |
529 |
530 position |
530 position |
684 ! ! |
684 ! ! |
685 |
685 |
686 !FileStream class methodsFor:'documentation'! |
686 !FileStream class methodsFor:'documentation'! |
687 |
687 |
688 version |
688 version |
689 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.34 1997-01-07 16:37:39 stefan Exp $' |
689 ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.35 1997-01-10 18:00:57 cg Exp $' |
690 ! ! |
690 ! ! |