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

fix keymap chaining when restoring a disabled menu item

Browse Source 
svn: r3600
This commit is contained in:
Matthew Flatt 2006-07-05 17:02:33 +00:00
parent a8ab7c9c26
commit 96bfdf5101
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wxmenu.ss
View File

@ -129,11 +129,9 @@
[get-items (lambda () items)]
[append-item (lambda (i iwx)
(set! items (append items (list i)))
(unless (or (send iwx ignore-enabled?)
(not (send iwx is-enabled?)))
(let ([k (send iwx get-keymap)])
(when k
(send keymap chain-to-keymap k #f)))))]
(let ([k (send iwx get-keymap)])
(when k
(send keymap chain-to-keymap k #f))))]
[delete-sep (lambda (i iwx)
(delete-by-position (find-pos items i eq?))
(set! items (remq i items)))]