From cab23e083d026313fc47e6e67f66696bc464a391 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 15 Sep 2004 21:58:29 +0000
Subject: [PATCH] .

original commit: 725a656fb7d2c3a103b7e695fe952418de255a0d
---
 collects/tests/mred/item.ss | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index 81fd741c..628f2097 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -753,7 +753,8 @@
       DELETE-COCONUT-2
       COCONUT-ID
       DELETE-ONCE
-      APPLE-CHECK-ID)
+      APPLE-CHECK-ID
+      CHINESE)
     (private-field
       menu-bar
       main-menu
@@ -806,7 +807,7 @@
 	     (make-object menu-item% "Disable Second" menu (mk-enable #f))
 	     (make-object menu-item% "Enable Second" menu (mk-enable #t)))
 
-	   (make-object menu-item% "Chinese: \U7238" menu void)
+	   (set! CHINESE (make-object menu-item% "Chinese: \U7238" menu void))
 	   
 	   (let ([make-menu
 		  (opt-lambda (title parent help-string)
@@ -1031,6 +1032,8 @@
 			 (send DELETE-APPLE set-help-string (tmp-pick "DELETER" "Deletes the Apple menu"))
 			 (send COCONUT-ID set-help-string (tmp-pick "SUBMENU" "Submenu"))
 			 (send DELETE-COCONUT set-help-string (tmp-pick "CDELETER" #f))
+			 (send CHINESE set-label (tmp-pick "Chinese: \U7239" "Chinese: \U7238"))
+			 (send CHINESE set-shortcut (tmp-pick #\C #\K))
 			 (send main-menu set-label (if temp-labels? "Hi" "&Tester")))))
 	(letrec ([by-bar (make-object check-box%
 				      "Via Menubar" lblp