equal
deleted
inserted
replaced
2585 ] ifTrue:[ |
2585 ] ifTrue:[ |
2586 [ |
2586 [ |
2587 doAppend ifTrue:[ |
2587 doAppend ifTrue:[ |
2588 aStream := filename appendingWriteStream. |
2588 aStream := filename appendingWriteStream. |
2589 ] ifFalse:[ |
2589 ] ifFalse:[ |
|
2590 UserPreferences current generateBackupFileWhenSaving ifTrue:[ |
|
2591 filename exists ifTrue:[ |
|
2592 filename moveTo:(filename pathName,'.bak') asFilename |
|
2593 ]. |
|
2594 ]. |
2590 aStream := filename newReadWriteStream. |
2595 aStream := filename newReadWriteStream. |
2591 ]. |
2596 ]. |
2592 aStream eolMode:eolMode. |
2597 aStream eolMode:eolMode. |
2593 self fileOutContentsOn:aStream compressTabs:compressTabs encoding:externalEncoding. |
2598 self fileOutContentsOn:aStream compressTabs:compressTabs encoding:externalEncoding. |
2594 aStream syncData; close. |
2599 aStream syncData; close. |