--- a/TextView.st Mon Oct 01 14:59:20 2012 +0200
+++ b/TextView.st Tue Oct 02 16:23:34 2012 +0200
@@ -2314,7 +2314,8 @@
encoder isNullEncoder ifTrue:[
(list contains:[:lineOrNil |
lineOrNil notNil
- and:[lineOrNil string string bitsPerCharacter > 8]
+ and:[lineOrNil string string bitsPerCharacter > 8
+ and:[lineOrNil string string asSingleByteStringIfPossible bitsPerCharacter > 8 ]]
]
) ifTrue:[
(Dialog confirm:'The text contains non-8bit characters. Encode as UTF8?') ifFalse:[
@@ -4569,11 +4570,11 @@
!TextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.339 2012-10-01 12:59:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.340 2012-10-02 14:23:34 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.339 2012-10-01 12:59:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.340 2012-10-02 14:23:34 cg Exp $'
! !
TextView initialize!