From 1a8c0a351dc01bcc7da7f463fdf359dc245923a5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 2 Dec 2005 15:58:38 +0000
Subject: [PATCH] DEL forward deletes

svn: r1490
---
 src/mred/wxme/wx_media.cxx | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/mred/wxme/wx_media.cxx b/src/mred/wxme/wx_media.cxx
index cd4ae903e9..08f1e6835a 100644
--- a/src/mred/wxme/wx_media.cxx
+++ b/src/mred/wxme/wx_media.cxx
@@ -623,9 +623,16 @@ void wxMediaEdit::OnDefaultChar(wxKeyEvent *event)
 
   switch(code) {
   case WXK_BACK:
-  case WXK_DELETE:
     Delete();
     return;
+  case WXK_DELETE:
+    if (startpos == endpos) {
+      if (endpos < len) {
+	Delete(endpos, endpos + 1);
+      }
+    } else
+      Delete();
+    return;
   case WXK_RIGHT:
   case WXK_LEFT:
   case WXK_UP: