From c7d784fa509c48f867b1051c72980906b2dc2b2d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 21 Jul 2005 20:50:35 +0000
Subject: [PATCH] less agressive cursor hiding

svn: r424
---
 src/mred/wxme/wx_media.cxx | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/mred/wxme/wx_media.cxx b/src/mred/wxme/wx_media.cxx
index db5f186aa2..ddbe23e4fb 100644
--- a/src/mred/wxme/wx_media.cxx
+++ b/src/mred/wxme/wx_media.cxx
@@ -597,7 +597,16 @@ void wxMediaEdit::OnChar(wxKeyEvent *event)
     return;
   }
 
-  wxHideCursor();
+  {
+    int code;
+    code = event->keyCode;
+    if ((code != WXK_RELEASE)
+	&& (code != WXK_SHIFT)
+	&& (code != WXK_CONTROL)
+	&& (code != WXK_MENU)
+	&& (code != 0))
+      wxHideCursor();
+  }
 
   OnLocalChar(event);
 }