fixed PR 8229
svn: r4091
This commit is contained in:
parent
e88f4afa71
commit
d98140e347
|
@ -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%)
|
||||||
|
(regexp-replace*
|
||||||
|
#rx"&"
|
||||||
(gui-utils:trim-string (defn-name defn) 200)
|
(gui-utils:trim-string (defn-name defn) 200)
|
||||||
|
"&&")
|
||||||
menu
|
menu
|
||||||
(λ (x y)
|
(λ (x y)
|
||||||
(reset)
|
(reset)
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user