equal
deleted
inserted
replaced
2312 |
2312 |
2313 encoder := CharacterEncoder encoderToEncodeFrom:characterEncoding into:encodingSymOrNil. |
2313 encoder := CharacterEncoder encoderToEncodeFrom:characterEncoding into:encodingSymOrNil. |
2314 encoder isNullEncoder ifTrue:[ |
2314 encoder isNullEncoder ifTrue:[ |
2315 (list contains:[:lineOrNil | |
2315 (list contains:[:lineOrNil | |
2316 lineOrNil notNil |
2316 lineOrNil notNil |
2317 and:[lineOrNil string string bitsPerCharacter > 8] |
2317 and:[lineOrNil string string bitsPerCharacter > 8 |
|
2318 and:[lineOrNil string string asSingleByteStringIfPossible bitsPerCharacter > 8 ]] |
2318 ] |
2319 ] |
2319 ) ifTrue:[ |
2320 ) ifTrue:[ |
2320 (Dialog confirm:'The text contains non-8bit characters. Encode as UTF8?') ifFalse:[ |
2321 (Dialog confirm:'The text contains non-8bit characters. Encode as UTF8?') ifFalse:[ |
2321 ^ self |
2322 ^ self |
2322 ] |
2323 ] |
4567 ! ! |
4568 ! ! |
4568 |
4569 |
4569 !TextView class methodsFor:'documentation'! |
4570 !TextView class methodsFor:'documentation'! |
4570 |
4571 |
4571 version |
4572 version |
4572 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.339 2012-10-01 12:59:20 cg Exp $' |
4573 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.340 2012-10-02 14:23:34 cg Exp $' |
4573 ! |
4574 ! |
4574 |
4575 |
4575 version_CVS |
4576 version_CVS |
4576 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.339 2012-10-01 12:59:20 cg Exp $' |
4577 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.340 2012-10-02 14:23:34 cg Exp $' |
4577 ! ! |
4578 ! ! |
4578 |
4579 |
4579 TextView initialize! |
4580 TextView initialize! |