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

don't allow menu access via shortcuts when then entire menu bar is disabled

Browse Source 
svn: r9238
This commit is contained in:
Matthew Flatt 2008-04-10 12:58:23 +00:00
parent 04c27f3a72
commit 6c4ab3dad7
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mred/private/wxtop.ss
View File

@ -709,6 +709,7 @@
[handle-menu-key [handle-menu-key
(lambda (event) (lambda (event)
(and menu-bar (and menu-bar
(send menu-bar all-enabled?)
;; It can't be a menu event without a ;; It can't be a menu event without a
;; control, meta, alt key, or function key ;; control, meta, alt key, or function key
(or (send event get-control-down) (or (send event get-control-down)