MultiViewToolApplication.st
changeset 7745 de4f256227cd
parent 7663 c11efe4cbcf3
child 7824 09995d9a889d
--- a/MultiViewToolApplication.st	Thu Mar 15 11:54:44 2007 +0100
+++ b/MultiViewToolApplication.st	Thu Mar 15 11:54:57 2007 +0100
@@ -719,6 +719,18 @@
     ]
 !
 
+loadFile:aFileName label:lbl
+    |encoding|
+
+    encoding := CharacterEncoder guessEncodingOfFile:aFileName.
+    (encoding == #'iso8859-1' or:[encoding == #'ascii']) ifTrue:[
+        encoding := nil
+    ].
+    self loadFile:aFileName encoding:encoding label:lbl.
+
+    "Created: / 15-03-2007 / 11:52:21 / cg"
+!
+
 menuLoad
     |file|
 
@@ -1043,5 +1055,5 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.15 2007-02-21 15:03:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.16 2007-03-15 10:54:57 cg Exp $'
 ! !