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

shortcut selection of checkable menu item should toggle checkmark (merge to 4.1.4)

Browse Source 
svn: r13220
This commit is contained in:
Matthew Flatt 2009-01-19 12:28:37 +00:00
parent c79532d551
commit a016c8c108
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/mrmenu.ss
View File

@ -305,7 +305,11 @@
;; keymap function callback already in exit mode:
(lambda (edit event)
(if (is-enabled?)
(callback this (make-object wx:control-event% 'menu))
(begin
(when (this . is-a? . checkable-menu-item%)
(begin
(send this check (not (send this is-checked?)))))
(callback this (make-object wx:control-event% 'menu)))
(wx:bell))))
(send keymap map-function key-binding "menu-item")
keymap))])