--- a/EditTextView.st	Wed Aug 09 14:39:39 2006 +0200
+++ b/EditTextView.st	Wed Aug 09 21:26:15 2006 +0200
@@ -3953,7 +3953,9 @@
 
     (key == #BackSpace or:[key == #BasicBackspace]) ifTrue:[
         selectionStartLine notNil ifTrue:[
-            (key == #BasicBackspace) ifTrue:[
+            ((key == #BasicBackspace) 
+            or:[ UserPreferences current deleteSetsClipboardText not ])
+            ifTrue:[
                 self deleteSelection.
             ] ifFalse: [
                 self copyAndDeleteSelection.
@@ -6560,5 +6562,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.397 2006-08-09 11:53:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.398 2006-08-09 19:26:15 fm Exp $'
 ! !