+// "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 )
+{
+ // NB: This control is composed of several GtkRadioButton widgets and
+ // when focus changes from one of them to another in the same
+ // wxRadioBox, we get a focus-out event followed by focus-in for
+ // another GtkRadioButton owned by the same control. We don't want
+ // to generate two spurious wxEVT_SET_FOCUS events in this case,
+ // so we defer sending wx events until idle time.
+ win->GTKHandleFocusOut();
+
+ // never stop the signal emission, it seems to break the kbd handling
+ // inside the radiobox
+ return FALSE;
+}
+}
+
+extern "C" {
+static gint gtk_radiobutton_focus_in( GtkWidget * WXUNUSED(widget),
+ GdkEventFocus *WXUNUSED(event),
+ wxRadioBox *win )
+{
+ win->GTKHandleFocusIn();
+
+ // never stop the signal emission, it seems to break the kbd handling
+ // inside the radiobox
+ return FALSE;
+}
+}