From 79aa722fab05375bb31d83edcb94d41a3f5f16eb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 9 Mar 2004 18:26:57 +0000 Subject: [PATCH] . original commit: 5f4a3b343c11b805ff7beb337721453f92c918ea --- collects/mred/private/kernel.ss | 1 - collects/tests/mred/item.ss | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index ae0dd1a8..66bb483e 100644 --- a/collects/mred/private/kernel.ss +++ b/collects/mred/private/kernel.ss @@ -612,7 +612,6 @@ (define-function file-selector) (define-class list-box% item% #f set-string - get-string set-first-visible-item set get-selections diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index 93f8a9d7..da7d4c43 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -386,7 +386,7 @@ (add-label-direction label-h? '(single)) (if alt-inits? 2 #f))) - (define cb (make-object (trace-mixin check-box%) "C&h\u0000E9ck" ip void null alt-inits?)) ; \uE9 is e with ' + (define cb (make-object (trace-mixin check-box%) "C&h\u00E9ck" ip void null alt-inits?)) ; \uE9 is e with ' (define icb (make-object (trace-mixin check-box%) mred-bmp ip void null alt-inits?)) @@ -413,7 +413,7 @@ (if alt-inits? 1 0))) (define ch (make-object (trace-mixin choice%) - (if null-label? #f "Ch&o\u0000EDce") ; \uED is i with ' + (if null-label? #f "Ch&o\u00EDce") ; \uED is i with ' '("Alpha" "Beta" "Gamma" "Delta & R\uE9st") ; \uE9 is e with ' ip void (add-label-direction label-h? null)