From 7fb206283e4a648bf5958a7361a7247267ab8d08 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 12 Jul 2001 05:17:42 +0000 Subject: [PATCH] ... original commit: eaedf4c28cb39eb14ec613289ea1312459890ed2 --- collects/framework/private/gen-standard-menus.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/gen-standard-menus.ss b/collects/framework/private/gen-standard-menus.ss index df4d2dee..e0bf1865 100644 --- a/collects/framework/private/gen-standard-menus.ss +++ b/collects/framework/private/gen-standard-menus.ss @@ -69,7 +69,7 @@ (instantiate (get-menu-item%) () (label ,(join menu-before-string menu-after-string `(,(an-item->string-name item)))) - (menu ,(menu-item-menu-name item)) + (parent ,(menu-item-menu-name item)) (callback (let ([,callback-name (lambda (item evt) (,callback-name item evt))]) ,callback-name)) (shortcut ,key)