From 1aa997875f57ee46be1ab35c505bc1b3ce374dac Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 12 Aug 2000 20:40:20 +0000 Subject: [PATCH] ... original commit: c78746c867010e879e6b7b444ad88924e176d8b8 --- collects/framework/gen-standard-menus.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/gen-standard-menus.ss b/collects/framework/gen-standard-menus.ss index 783ef21f..d5a8ea2a 100755 --- a/collects/framework/gen-standard-menus.ss +++ b/collects/framework/gen-standard-menus.ss @@ -97,7 +97,8 @@ string=? ; exec mred -qr $0 ,(join menu-before-string menu-after-string `(,(build-id item "-string"))) ,(menu-name->id name-string) - ,name + (let ([,name (lambda (item evt) (,name item evt))]) + ,name) (if (preferences:get 'framework:menu-bindings) ,key #f) (,(build-id item "-help-string"))))])))