From 046d50582f456f20f300d0751e6e39773291513e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 Jun 2006 02:55:20 +0000
Subject: [PATCH] fix dialog/frame handling of radio-box shortcuts

svn: r3364

original commit: 2707426cdf69cc594adf56978a3fa6715bad4764
---
 collects/mred/private/wxtop.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/private/wxtop.ss b/collects/mred/private/wxtop.ss
index 99f93096..583cb293 100644
--- a/collects/mred/private/wxtop.ss
+++ b/collects/mred/private/wxtop.ss
@@ -531,7 +531,7 @@
 					       (let loop ([i 0])
 						 (if (= i n)
 						     #f
-						     (let ([l (send o get-string i)])
+						     (let ([l (send win get-item-label i)])
 						       (if (and (string? l)
 								(regexp-match re l))
 							   (begin