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

plain label strips parenthesized accelerators

Browse Source 
svn: r983

original commit: 50a666ebd9cb9211a1cccb3c78a5ee5b22eb07ed
This commit is contained in:
Matthew Flatt 2005-10-05 16:22:57 +00:00
parent 6c7daca1b1
commit cbf80b0bf7
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -70,8 +70,13 @@
(lambda (s) (lambda (s)
(car (regexp-match #rx"^[^\t]*" s))) (car (regexp-match #rx"^[^\t]*" s)))
(lambda (s) (lambda (s)
(regexp-replace* "&" (regexp-replace* #rx"&"
(regexp-replace* "&(.)" (car (regexp-match #rx"^[^\t]*" s)) "\\1") (regexp-replace* #rx"&(.)"
(regexp-replace*
#rx" *[(]&.[)] *"
(car (regexp-match #rx"^[^\t]*" s))
"")
"\\1")
"\\&\\&")))) "\\&\\&"))))
(define basic-labelled-menu-item% (define basic-labelled-menu-item%