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

fixed PR 8229

Browse Source 
svn: r4091
This commit is contained in:
Robby Findler 2006-08-18 21:48:17 +00:00
parent e88f4afa71
commit d98140e347
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/unit.ss
View File

@ -709,7 +709,10 @@ module browser threading seems wrong.
(make-object (if checked? (make-object (if checked?
menu:can-restore-checkable-menu-item% menu:can-restore-checkable-menu-item%
menu:can-restore-menu-item%) menu:can-restore-menu-item%)
(gui-utils:trim-string (defn-name defn) 200) (regexp-replace*
#rx"&"
(gui-utils:trim-string (defn-name defn) 200)
"&&")
menu menu
(λ (x y) (λ (x y)
(reset) (reset)

2
collects/framework/private/group.ss
View File

@ -105,7 +105,7 @@
(let ([frame (frame-frame frame)]) (let ([frame (frame-frame frame)])
(make-object menu-item% (make-object menu-item%
(regexp-replace* (regexp-replace*
"&" #rx"&"
(gui-utils:trim-string (get-name frame) 200) (gui-utils:trim-string (get-name frame) 200)
"&&") "&&")
menu menu