DEL forward deletes

svn: r1490
2005-12-02 15:58:38 +00:00 · 2005-12-02 15:58:38 +00:00 · 1a8c0a351d
commit 1a8c0a351d
parent 2526db5610
1 changed files with 8 additions and 1 deletions
--- 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: