From 808417739ec2ed226c5b471951f86ed8be943784 Mon Sep 17 00:00:00 2001
From: Greg Ercolano <erco@seriss.com>
Date: Sun, 12 Dec 2010 21:29:02 +0000
Subject: Fix STR#2477; problem with SHIFT-DEL not doing copy() operation.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.3@8020 ea41ed52-d2ee-0310-a9c1-e6b18d33e121
---
 src/Fl_Input.cxx | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/Fl_Input.cxx b/src/Fl_Input.cxx
index 0a94c872c..928398c14 100644
--- a/src/Fl_Input.cxx
+++ b/src/Fl_Input.cxx
@@ -164,11 +164,12 @@ int Fl_Input::handle_key() {
         return 1;
       } else return 1;
 #else
-      if (mods==0) {
-        ascii = ctrl('D'); 
-      } else if (mods==FL_SHIFT) {
-        ascii = ctrl('X');
-      } else return 1;
+      if (mods) return 1;		// Alt-Del/Ctrl-Del/Meta-Del: do nothing 
+      if (Fl::event_state() & FL_SHIFT) {
+	ascii = ctrl('X');		// Shift-Del -> ^X
+      } else {
+	ascii = ctrl('D');		// Del -> ^D
+      }
 #endif
       break;
     case FL_Left:
-- 
cgit v1.2.3