From 1c4b543fb529092fbf8a680996250bbfe52effdb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Jul 2010 12:31:11 -0500 Subject: [PATCH] fix gtk callback on first radio button in a box --- collects/mred/private/wx/gtk/radio-box.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/mred/private/wx/gtk/radio-box.rkt b/collects/mred/private/wx/gtk/radio-box.rkt index c56091c75c..dc91cd37b8 100644 --- a/collects/mred/private/wx/gtk/radio-box.rkt +++ b/collects/mred/private/wx/gtk/radio-box.rkt @@ -73,9 +73,8 @@ [no-show? (memq 'deleted style)]) (set-auto-size) - (for ([radio-gtk (in-list (cdr radio-gtks))]) - (connect-clicked radio-gtk)) (for ([radio-gtk (in-list radio-gtks)]) + (connect-clicked radio-gtk) (connect-key-and-mouse radio-gtk) (connect-focus radio-gtk))