equal
deleted
inserted
replaced
4689 ]. |
4689 ]. |
4690 |
4690 |
4691 (key == #Delete |
4691 (key == #Delete |
4692 or:[key == #BasicDelete]) ifTrue:[ |
4692 or:[key == #BasicDelete]) ifTrue:[ |
4693 selectionStartLine notNil ifTrue:[ |
4693 selectionStartLine notNil ifTrue:[ |
4694 self setLastStringToReplace: self selection asStringWithoutFinalCR. |
4694 "/ Again function is not supporting Delete action (on purpose, to avoid replacing the next search string) |
4695 lastReplacementInfo lastReplacement: nil. |
4695 "/ To remove text repetetively, use Cut instead. |
|
4696 "/ self setLastStringToReplace: self selection asStringWithoutFinalCR. |
|
4697 "/ lastReplacementInfo lastReplacement: nil. |
4696 ((key == #BasicDelete) |
4698 ((key == #BasicDelete) |
4697 or:[UserPreferences current deleteSetsClipboardText not]) ifTrue:[ |
4699 or:[UserPreferences current deleteSetsClipboardText not]) ifTrue:[ |
4698 self deleteSelection. |
4700 self deleteSelection. |
4699 ] ifFalse:[ |
4701 ] ifFalse:[ |
4700 self copyAndDeleteSelection. |
4702 self copyAndDeleteSelection. |
7701 ! ! |
7703 ! ! |
7702 |
7704 |
7703 !EditTextView class methodsFor:'documentation'! |
7705 !EditTextView class methodsFor:'documentation'! |
7704 |
7706 |
7705 version |
7707 version |
7706 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.486 2009-12-14 11:22:36 fm Exp $' |
7708 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.487 2009-12-14 11:40:42 fm Exp $' |
7707 ! |
7709 ! |
7708 |
7710 |
7709 version_CVS |
7711 version_CVS |
7710 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.486 2009-12-14 11:22:36 fm Exp $' |
7712 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.487 2009-12-14 11:40:42 fm Exp $' |
7711 ! ! |
7713 ! ! |