--- a/TextView.st	Thu Feb 12 22:26:49 2004 +0100
+++ b/TextView.st	Thu Feb 12 22:38:28 2004 +0100
@@ -1639,7 +1639,8 @@
 
     newFont := FontPanel fontFromUserInitial:font.
     newFont notNil ifTrue:[
-	self font:newFont.
+        self font:newFont.
+        characterEncoding := newFont encoding.
     ]
 
     "Modified: 27.2.1996 / 00:53:51 / cg"
@@ -3800,7 +3801,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.228 2004-02-12 21:24:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.229 2004-02-12 21:38:28 cg Exp $'
 ! !
 
 TextView initialize!