From ce82c74b758150a7fa35e6a79b2f00409196b1a0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 19 Feb 2011 06:38:25 -0700 Subject: [PATCH] win32: fix ALT-space to pop up system menu Closes PR 11754 --- collects/mred/private/wx/win32/frame.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wx/win32/frame.rkt b/collects/mred/private/wx/win32/frame.rkt index 8a32696d8f..d1bc043248 100644 --- a/collects/mred/private/wx/win32/frame.rkt +++ b/collects/mred/private/wx/win32/frame.rkt @@ -429,7 +429,6 @@ (define/override (get-top-frame) this) (define/public (designate-root-frame) (void)) - (def/public-unimplemented system-menu) (define modified? #f) (define/public (set-modified on?) @@ -561,5 +560,7 @@ (define/public (popup-menu-with-char c) (DefWindowProcW hwnd WM_SYSKEYDOWN (char->integer c) (arithmetic-shift 1 29)) - (DefWindowProcW hwnd WM_SYSCHAR (char->integer c) (arithmetic-shift 1 29)))) + (DefWindowProcW hwnd WM_SYSCHAR (char->integer c) (arithmetic-shift 1 29))) + (define/public (system-menu) + (popup-menu-with-char #\space)))