suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

win32: fix ALT-space to pop up system menu

Browse Source 
Closes PR 11754
This commit is contained in:
Matthew Flatt 2011-02-19 06:38:25 -07:00
parent aacb98f51b
commit ce82c74b75
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wx/win32/frame.rkt
View File

@ -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)))