diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index 8cae65a6..ae0dd1a8 100644 --- 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 diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index f34e303d..93f8a9d7 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -778,7 +778,7 @@ [sep (lambda () (make-object separator-menu-item% menu))]) (set! menu-bar mb) (set! main-menu menu) - + (set! ADD-APPLE (new "Add Apple" "Adds the Apple menu")) (set! ADD-BANANA (new "Add Banana")) (set! ADD-COCONUT (new "Add Coconut")) @@ -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)])