fix gtk callback on first radio button in a box

original commit: 1c4b543fb529092fbf8a680996250bbfe52effdb
2010-07-28 12:31:11 -05:00 · 2010-07-28 12:31:11 -05:00 · 668c68837f
commit 668c68837f
parent 07597c6b53
1 changed files with 1 additions and 2 deletions
--- 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))