equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2004 by eXept Software AG |
4 COPYRIGHT (c) 2004 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1029 file := aFileName asFilename. |
1031 file := aFileName asFilename. |
1030 ws := self selectedWorkspacesTextView. |
1032 ws := self selectedWorkspacesTextView. |
1031 [ |
1033 [ |
1032 |contents| |
1034 |contents| |
1033 |
1035 |
1034 contents := file contents. |
1036 contents := file contentsOfEntireFile. |
1035 encodingSymbolOrNil notNil ifTrue:[ |
1037 encodingSymbolOrNil notNil ifTrue:[ |
1036 contents := contents encodeFrom:encodingSymbolOrNil into:#'unicode'. |
1038 contents := contents encodeFrom:encodingSymbolOrNil into:#'unicode'. |
1037 ws externalEncoding:encodingSymbolOrNil. |
1039 ws externalEncoding:encodingSymbolOrNil. |
1038 ]. |
1040 ]. |
1039 ws contents:contents. |
1041 ws contents:contents. |