From c7a4b945c83d201615e3726a7e5ec64f1c2f819d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 9 Mar 2004 18:18:58 +0000 Subject: [PATCH] . original commit: 1b697e702b05ce41e8f67b472abcf23a89b7da62 --- collects/mred/private/kernel.ss | 1 - collects/tests/mred/item.ss | 4 +++- 2 files changed, 3 insertions(+), 2 deletions(-) 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)])