From 9894626fdb1c51b1df8506fd509fe7f1338dfd4f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 26 Nov 2002 18:38:02 +0000 Subject: [PATCH] .. original commit: 2699400454e9af11bea651e9eee67509687607ec --- collects/framework/private/group.ss | 5 ++++- collects/framework/private/handler.ss | 5 ++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss index eb91161d..8c4aa256 100644 --- a/collects/framework/private/group.ss +++ b/collects/framework/private/group.ss @@ -113,7 +113,10 @@ (lambda (frame) (let ([frame (frame-frame frame)]) (make-object menu-item% - (gui-utils:trim-string (get-name frame) 200) + (regexp-replace* + "&" + (gui-utils:trim-string (get-name frame) 200) + "&&") menu (lambda (_1 _2) (send frame show #t))))) diff --git a/collects/framework/private/handler.ss b/collects/framework/private/handler.ss index eaf72d40..c6762726 100644 --- a/collects/framework/private/handler.ss +++ b/collects/framework/private/handler.ss @@ -226,7 +226,10 @@ (let ([filename (car recent-list-item)]) (instantiate menu-item% () (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)))))) recently-opened-files)))