fix dialog/frame handling of radio-box shortcuts

svn: r3364
2006-06-15 02:55:20 +00:00 · 2006-06-15 02:55:20 +00:00 · 2707426cdf
commit 2707426cdf
parent f4ce1a8d31
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