author | Claus Gittinger <cg@exept.de> |
Thu, 12 Sep 2019 22:50:48 +0200 | |
changeset 6697 | f9a89422df31 |
parent 6696 | 4cc270fac972 |
child 6698 | 378e50623340 |
EditTextView.st | file | annotate | diff | comparison | revisions |
--- a/EditTextView.st Thu Sep 12 18:38:01 2019 +0200 +++ b/EditTextView.st Thu Sep 12 22:50:48 2019 +0200 @@ -5682,7 +5682,7 @@ ^ self. ]. - (rawKey == #BackSpace or:[key == #BasicBackspace]) ifTrue:[ + (rawKey == #BackSpace or:[key == #BackSpace or:[key == #BasicBackspace]]) ifTrue:[ selectionStartLine notNil ifTrue:[ ((key == #BasicBackspace) or:[ currentUserPrefs deleteSetsClipboardText not ])