equal
deleted
inserted
replaced
3648 selStartCol := self selectionStartCol. |
3648 selStartCol := self selectionStartCol. |
3649 selEndLine := selectionEndLine. |
3649 selEndLine := selectionEndLine. |
3650 selEndCol := self selectionEndCol. |
3650 selEndCol := self selectionEndCol. |
3651 sel := self selection. |
3651 sel := self selection. |
3652 |
3652 |
3653 (characterEncoding ? #'unicode') ~= 'unicode' ifTrue:[ |
3653 (characterEncoding ? #'iso10646-1') ~~ #'iso10646-1' ifTrue:[ |
3654 key := CharacterEncoder encode:key from:'unicode' into:characterEncoding. |
3654 key := CharacterEncoder encode:key from:#'iso10646-1' into:characterEncoding. |
3655 ]. |
3655 ]. |
3656 |
3656 |
3657 "replace selection by what is typed in - |
3657 "replace selection by what is typed in - |
3658 if word was selected with a space, keep it" |
3658 if word was selected with a space, keep it" |
3659 |
3659 |
5647 ! ! |
5647 ! ! |
5648 |
5648 |
5649 !EditTextView class methodsFor:'documentation'! |
5649 !EditTextView class methodsFor:'documentation'! |
5650 |
5650 |
5651 version |
5651 version |
5652 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.337 2004-02-27 11:41:14 cg Exp $' |
5652 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.338 2004-02-28 12:57:53 cg Exp $' |
5653 ! ! |
5653 ! ! |