From: erg <erg@trifocus.net>
Date: Wed, 18 Oct 2006 21:18:12 +0000 (+0000)
Subject: shift-delete/backspace YAY
X-Git-Tag: 0.85~19
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=fdb9cdcdb6ca7dc7d21b4f48fe1ab01b43d117b1

shift-delete/backspace YAY
---

diff --git a/library/ui/text/commands.factor b/library/ui/text/commands.factor
index 0f4e3f1093..93794d78f3 100644
--- a/library/ui/text/commands.factor
+++ b/library/ui/text/commands.factor
@@ -75,7 +75,9 @@ editor "editing" {
     { "Insert newline" T{ key-down f { S+ } "RETURN" } [ "\n" swap user-input ] }
     { "Insert newline" T{ key-down f f "ENTER" } [ "\n" swap user-input ] }
     { "Delete next character" T{ key-down f f "DELETE" } [ T{ char-elt } editor-delete ] }
+    { "Delete next character" T{ key-down f { S+ } "DELETE" } [ T{ char-elt } editor-delete ] }
     { "Delete previous character" T{ key-down f f "BACKSPACE" } [ T{ char-elt } editor-backspace ] }
+    { "Delete previous character" T{ key-down f { S+ } "BACKSPACE" } [ T{ char-elt } editor-backspace ] }
     { "Delete previous word" T{ key-down f { C+ } "DELETE" } [ T{ word-elt } editor-delete ] }
     { "Delete next word" T{ key-down f { C+ } "BACKSPACE" } [ T{ word-elt } editor-backspace ] }
     { "Delete to start of line" T{ key-down f { A+ } "DELETE" } [ T{ one-line-elt } editor-delete ] }