From 2707426cdf69cc594adf56978a3fa6715bad4764 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
---
 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 99f9309690..583cb293ec 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