From 5efb890e32a80d5087d5f2d90175d0513c74ece3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 21 Jul 1999 23:57:32 +0000
Subject: [PATCH] .

original commit: b4ddabcd5403090c1505a7ae7637d528dfcc982d
---
 src/mred/wrap/mred.ss | 34 +++++++++++++++++++---------------
 1 file changed, 19 insertions(+), 15 deletions(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 9d6260f2..f12ce060 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -3653,7 +3653,7 @@
 
 (define wx-menu-bar%
   (class* wx:menu-bar% (wx<%>) (mred)
-    (inherit delete)
+    (inherit delete select-system)
     (rename [super-append append]
 	    [super-enable-top enable-top])
     (private
@@ -3671,20 +3671,24 @@
 				(send event get-meta-down)
 				(char? (send event get-key-code))
 				(let ([c (send event get-key-code)])
-				  (and (or (char-alphabetic? c)
-					   (char-numeric? c))
-				       (let ([re (key-regexp c)])
-					 (ormap
-					  (lambda (i)
-					    (let* ([data (send (mred->wx i) get-menu-data)]
-						   [label (car data)]
-						   [menu (cdr data)])
-					      (if (regexp-match re label)
-						  (begin
-						    (send menu select)
-						    #t)
-						  #f)))
-					  items)))))))))]
+				  (or (and (char=? #\space c)
+					   (eq? 'windows (system-type))
+					   (select-system)
+					   #t)
+				      (and (or (char-alphabetic? c)
+					       (char-numeric? c))
+					   (let ([re (key-regexp c)])
+					     (ormap
+					      (lambda (i)
+						(let* ([data (send (mred->wx i) get-menu-data)]
+						       [label (car data)]
+						       [menu (cdr data)])
+						  (if (regexp-match re label)
+						      (begin
+							(send menu select)
+							#t)
+						      #f)))
+					      items))))))))))]
       [get-mred (lambda () mred)]
       [get-items (lambda () items)]
       [append-item (lambda (item menu title)