#BUGFIX by exept
authorClaus Gittinger <cg@exept.de>
Thu, 12 Sep 2019 22:50:48 +0200
changeset 6697 f9a89422df31
parent 6696 4cc270fac972
child 6698 378e50623340
#BUGFIX by exept class: EditTextView changed: #doKeyPress:x:y:
EditTextView.st
--- 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 ])