suzanne.soy/gui
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

original commit: 96bfdf51018eea380653852fad4ee4a6f986581e
This commit is contained in:
Matthew Flatt 2006-07-05 17:02:33 +00:00
parent 588ab9921e
commit 4d31b0ce6a
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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