MultiViewToolApplication.st
changeset 18351 f6c68b4220d3
parent 17896 8369fe890ec9
child 18399 6a442bd44640
equal deleted inserted replaced
18350:023dfe4e9820 18351:f6c68b4220d3
       
     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.