.

original commit: 1b697e702b05ce41e8f67b472abcf23a89b7da62
2004-03-09 18:18:58 +00:00 · 2004-03-09 18:18:58 +00:00 · c7a4b945c8
commit c7a4b945c8
parent 7211a69314
2 changed files with 3 additions and 2 deletions
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@ -313,7 +313,6 @@
    on-kill-focus)
  (define-class choice% item% #f
    set-selection
-    get-string-selection
    get-selection
    number
    clear
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@ -808,6 +808,8 @@
 	     (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)
+	   
 	   (let ([make-menu
 		  (opt-lambda (title parent help-string)
 		    (let ([m (make-object menu% title parent help-string)])