properly deal with menu shortcuts that are symbols (e.g., 'f1) in

the "Show Active Keybindings" menu item

closes PR 12737

Thanks to Laurent Orseau for the fix!
This commit is contained in:
Robby Findler 2012-04-28 08:51:06 -05:00
parent a067380622
commit 98e06248b5

View File

@ -63,7 +63,10 @@
[(#\;) "semicolon"]
[(#\:) "colon"]
[(#\space) "space"]
[else (string short-cut)]))))])
[else
(cond
[(symbol? short-cut) (symbol->string short-cut)]
[(char? short-cut) (string short-cut)])]))))])
(hash-set! name-ht keyname (send item get-plain-label))))))
(when (is-a? item menu-item-container<%>)
(loop item)))