equal
deleted
inserted
replaced
4573 collection will be an empty string." |
4573 collection will be an empty string." |
4574 |
4574 |
4575 |sel| |
4575 |sel| |
4576 |
4576 |
4577 selectionStartLine isNil ifTrue:[^ nil]. |
4577 selectionStartLine isNil ifTrue:[^ nil]. |
4578 sel := self textFromLine:selectionStartLine col:selectionStartCol toLine:selectionEndLine col:selectionEndCol. |
4578 sel := self textFromLine:selectionStartLine col:(selectionStartCol max:1) toLine:selectionEndLine col:selectionEndCol. |
4579 sel notNil ifTrue:[ |
4579 sel notNil ifTrue:[ |
4580 (characterEncoding ? #'iso10646-1' "eg unicode") ~~ #'iso10646-1' ifTrue:[ |
4580 (characterEncoding ? #'iso10646-1' "eg unicode") ~~ #'iso10646-1' ifTrue:[ |
4581 sel := sel encodeFrom:characterEncoding into:#'iso10646-1' |
4581 sel := sel encodeFrom:characterEncoding into:#'iso10646-1' |
4582 ]. |
4582 ]. |
4583 ]. |
4583 ]. |
4709 ! ! |
4709 ! ! |
4710 |
4710 |
4711 !TextView class methodsFor:'documentation'! |
4711 !TextView class methodsFor:'documentation'! |
4712 |
4712 |
4713 version |
4713 version |
4714 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.341 2012-10-23 12:58:41 cg Exp $' |
4714 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.342 2012-10-23 17:19:10 cg Exp $' |
4715 ! |
4715 ! |
4716 |
4716 |
4717 version_CVS |
4717 version_CVS |
4718 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.341 2012-10-23 12:58:41 cg Exp $' |
4718 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.342 2012-10-23 17:19:10 cg Exp $' |
4719 ! ! |
4719 ! ! |
4720 |
4720 |
4721 TextView initialize! |
4721 TextView initialize! |