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

@@ -164,11 +164,12 @@ int Fl_Input::handle_key() {
         return 1;
       } else return 1;
 #else
-      if (mods==0) {
+      if (mods) return 1;		// Alt-Del/Ctrl-Del/Meta-Del: do nothing 
-        ascii = ctrl('D'); 
+      if (Fl::event_state() & FL_SHIFT) {
-      } else if (mods==FL_SHIFT) {
+	ascii = ctrl('X');		// Shift-Del -> ^X
-        ascii = ctrl('X');
+      } else {
-      } else return 1;
+	ascii = ctrl('D');		// Del -> ^D
+      }
 #endif
       break;
     case FL_Left: