fix dialog/frame handling of radio-box shortcuts

svn: r3364 original commit: 2707426cdf69cc594adf56978a3fa6715bad4764
2006-06-15 02:55:20 +00:00 · 2006-06-15 02:55:20 +00:00 · 046d50582f
commit 046d50582f
parent bdd970bd47
1 changed files with 1 additions and 1 deletions
--- 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