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

..

Browse Source 
original commit: 2699400454e9af11bea651e9eee67509687607ec
This commit is contained in:
Robby Findler 2002-11-26 18:38:02 +00:00
parent 5d8a541445
commit 9894626fdb
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -113,7 +113,10 @@
(lambda (frame) (lambda (frame)
(let ([frame (frame-frame frame)]) (let ([frame (frame-frame frame)])
(make-object menu-item% (make-object menu-item%
(gui-utils:trim-string (get-name frame) 200) (regexp-replace*
"&"
(gui-utils:trim-string (get-name frame) 200)
"&&")
menu menu
(lambda (_1 _2) (lambda (_1 _2)
(send frame show #t))))) (send frame show #t)))))

5
collects/framework/private/handler.ss
View File

@ -226,7 +226,10 @@
(let ([filename (car recent-list-item)]) (let ([filename (car recent-list-item)])
(instantiate menu-item% () (instantiate menu-item% ()
(parent menu) (parent menu)
(label (gui-utils:trim-string filename 200)) (label (regexp-replace*
"&"
(gui-utils:trim-string filename 200)
"&&"))
(callback (lambda (x y) (open-recent-list-item recent-list-item)))))) (callback (lambda (x y) (open-recent-list-item recent-list-item))))))
recently-opened-files))) recently-opened-files)))