+extern "C" {
+static void gtk_radiobutton_clicked_callback( GtkToggleButton *button, wxRadioBox *rb )
+{
+ if (!rb->m_hasVMT) return;
+ if (g_blockEventsOnDrag) return;
+
+ if (!button->active) return;
+
+ wxCommandEvent event( wxEVT_COMMAND_RADIOBOX_SELECTED, rb->GetId() );
+ event.SetInt( rb->GetSelection() );
+ event.SetString( rb->GetStringSelection() );
+ event.SetEventObject( rb );
+ rb->HandleWindowEvent(event);
+}
+}
+
+//-----------------------------------------------------------------------------
+// "key_press_event"
+//-----------------------------------------------------------------------------
+
+extern "C" {
+static gint gtk_radiobox_keypress_callback( GtkWidget *widget, GdkEventKey *gdk_event, wxRadioBox *rb )
+{
+ if (!rb->m_hasVMT) return FALSE;
+ if (g_blockEventsOnDrag) return FALSE;
+
+ if ( ((gdk_event->keyval == GDK_Tab) ||
+ (gdk_event->keyval == GDK_ISO_Left_Tab)) &&
+ rb->GetParent() && (rb->GetParent()->HasFlag( wxTAB_TRAVERSAL)) )
+ {
+ wxNavigationKeyEvent new_event;
+ new_event.SetEventObject( rb->GetParent() );
+ // GDK reports GDK_ISO_Left_Tab for SHIFT-TAB
+ new_event.SetDirection( (gdk_event->keyval == GDK_Tab) );
+ // CTRL-TAB changes the (parent) window, i.e. switch notebook page
+ new_event.SetWindowChange( (gdk_event->state & GDK_CONTROL_MASK) );
+ new_event.SetCurrentFocus( rb );
+ return rb->GetParent()->HandleWindowEvent(new_event);
+ }
+
+ if ((gdk_event->keyval != GDK_Up) &&
+ (gdk_event->keyval != GDK_Down) &&
+ (gdk_event->keyval != GDK_Left) &&
+ (gdk_event->keyval != GDK_Right))
+ {
+ return FALSE;
+ }
+
+ wxRadioBoxButtonsInfoList::compatibility_iterator node = rb->m_buttonsInfo.GetFirst();
+ while( node && GTK_WIDGET( node->GetData()->button ) != widget )
+ {
+ node = node->GetNext();
+ }
+ if (!node)
+ {
+ return FALSE;
+ }
+
+ if ((gdk_event->keyval == GDK_Up) ||
+ (gdk_event->keyval == GDK_Left))
+ {
+ if (node == rb->m_buttonsInfo.GetFirst())
+ node = rb->m_buttonsInfo.GetLast();
+ else
+ node = node->GetPrevious();
+ }
+ else
+ {
+ if (node == rb->m_buttonsInfo.GetLast())
+ node = rb->m_buttonsInfo.GetFirst();
+ else
+ node = node->GetNext();
+ }
+
+ GtkWidget *button = (GtkWidget*) node->GetData()->button;
+
+ gtk_widget_grab_focus( button );
+
+ return TRUE;
+}
+}
+
+extern "C" {
+static gint gtk_radiobutton_focus_out( GtkWidget * WXUNUSED(widget),
+ GdkEventFocus *WXUNUSED(event),
+ wxRadioBox *win )