+#include "wx/gtk/private.h"
+
+//-----------------------------------------------------------------------------
+// idle system
+//-----------------------------------------------------------------------------
+
+extern void wxapp_install_idle_handler();
+extern bool g_isIdle;
+
+//-----------------------------------------------------------------------------
+// data
+//-----------------------------------------------------------------------------
+
+extern bool g_blockEventsOnDrag;
+extern wxCursor g_globalCursor;
+
+//-----------------------------------------------------------------------------
+// "clicked"
+//-----------------------------------------------------------------------------
+
+static
+void gtk_radiobutton_clicked_callback( GtkToggleButton *button, wxRadioButton *rb )
+{
+ if (g_isIdle) wxapp_install_idle_handler();
+
+ if (!rb->m_hasVMT) return;
+
+ if (g_blockEventsOnDrag) return;
+
+ if (!button->active) return;
+
+ if (rb->m_blockEvent) return;
+
+ wxCommandEvent event( wxEVT_COMMAND_RADIOBUTTON_SELECTED, rb->GetId());
+ event.SetInt( rb->GetValue() );
+ event.SetEventObject( rb );
+ rb->GetEventHandler()->ProcessEvent( event );
+}
+
+//-----------------------------------------------------------------------------
+// wxRadioButton
+//-----------------------------------------------------------------------------
+
+IMPLEMENT_DYNAMIC_CLASS(wxRadioButton,wxControl)
+
+bool wxRadioButton::Create( wxWindow *parent, wxWindowID id, const wxString& label,
+ const wxPoint& pos, const wxSize& size, long style,
+ const wxValidator& validator, const wxString& name )
+{
+ m_acceptsFocus = TRUE;
+ m_needParent = TRUE;
+ m_isRadioButton = TRUE;
+
+ m_blockEvent = FALSE;
+
+ if (!PreCreation( parent, pos, size ) ||
+ !CreateBase( parent, id, pos, size, style, validator, name ))
+ {
+ wxFAIL_MSG( wxT("wxRadioButton creation failed") );
+ return FALSE;
+ }
+
+ if (HasFlag(wxRB_GROUP))
+ {
+ // start a new group
+ m_radioButtonGroup = (GSList*) NULL;
+ }
+ else
+ {
+ // search backward for last group start
+ wxRadioButton *chief = (wxRadioButton*) NULL;
+ wxWindowList::Node *node = parent->GetChildren().GetLast();
+ while (node)
+ {
+ wxWindow *child = node->GetData();
+ if (child->m_isRadioButton)
+ {
+ chief = (wxRadioButton*) child;
+ if (child->HasFlag(wxRB_GROUP)) break;
+ }
+ node = node->GetPrevious();
+ }
+ if (chief)
+ {
+ // we are part of the group started by chief
+ m_radioButtonGroup = gtk_radio_button_group( GTK_RADIO_BUTTON(chief->m_widget) );
+ }
+ else
+ {
+ // start a new group
+ m_radioButtonGroup = (GSList*) NULL;
+ }
+ }
+
+ m_widget = gtk_radio_button_new_with_label( m_radioButtonGroup, label.mbc_str() );
+
+ SetLabel(label);
+
+ gtk_signal_connect( GTK_OBJECT(m_widget), "clicked",
+ GTK_SIGNAL_FUNC(gtk_radiobutton_clicked_callback), (gpointer*)this );
+
+ m_parent->DoAddChild( this );
+
+ PostCreation();
+
+ SetFont( parent->GetFont() );
+
+ wxSize size_best( DoGetBestSize() );
+ wxSize new_size( size );
+ if (new_size.x == -1)
+ new_size.x = size_best.x;
+ if (new_size.y == -1)
+ new_size.y = size_best.y;
+ if ((new_size.x != size.x) || (new_size.y != size.y))
+ SetSize( new_size.x, new_size.y );
+
+ SetBackgroundColour( parent->GetBackgroundColour() );
+ SetForegroundColour( parent->GetForegroundColour() );
+
+ Show( TRUE );
+
+ return TRUE;
+}
+
+void wxRadioButton::SetLabel( const wxString& label )
+{
+ wxCHECK_RET( m_widget != NULL, wxT("invalid radiobutton") );
+
+ wxControl::SetLabel( label );
+ GtkLabel *g_label = GTK_LABEL( BUTTON_CHILD(m_widget) );
+ gtk_label_set( g_label, GetLabel().mbc_str() );
+}
+
+void wxRadioButton::SetValue( bool val )
+{
+ wxCHECK_RET( m_widget != NULL, wxT("invalid radiobutton") );
+
+ if (val == GetValue())
+ return;
+
+ m_blockEvent = TRUE;
+
+ if (val)
+ {
+ gtk_toggle_button_set_active( GTK_TOGGLE_BUTTON(m_widget), TRUE );
+ }
+ else
+ {
+ // should give an assert
+ // RL - No it shouldn't. A wxGenericValidator might try to set it
+ // as FALSE. Failing silently is probably TRTTD here.
+ }
+
+ m_blockEvent = FALSE;
+}
+
+bool wxRadioButton::GetValue() const
+{
+ wxCHECK_MSG( m_widget != NULL, FALSE, wxT("invalid radiobutton") );
+
+ return GTK_TOGGLE_BUTTON(m_widget)->active;
+}
+
+bool wxRadioButton::Enable( bool enable )
+{
+ if ( !wxControl::Enable( enable ) )
+ return FALSE;
+
+ gtk_widget_set_sensitive( BUTTON_CHILD(m_widget), enable );
+
+ return TRUE;
+}
+
+void wxRadioButton::ApplyWidgetStyle()
+{
+ SetWidgetStyle();
+ gtk_widget_set_style( m_widget, m_widgetStyle );
+ gtk_widget_set_style( BUTTON_CHILD(m_widget), m_widgetStyle );
+}
+
+bool wxRadioButton::IsOwnGtkWindow( GdkWindow *window )
+{
+ return window == TOGGLE_BUTTON_EVENT_WIN(m_widget);
+}
+
+void wxRadioButton::OnInternalIdle()
+{
+ wxCursor cursor = m_cursor;
+ if (g_globalCursor.Ok()) cursor = g_globalCursor;
+
+ GdkWindow *win = TOGGLE_BUTTON_EVENT_WIN(m_widget);
+ if ( win && cursor.Ok())
+ {
+ /* I now set the cursor the anew in every OnInternalIdle call
+ as setting the cursor in a parent window also effects the
+ windows above so that checking for the current cursor is
+ not possible. */
+
+ gdk_window_set_cursor( win, cursor.GetCursor() );
+ }
+
+ UpdateWindowUI();
+}
+
+wxSize wxRadioButton::DoGetBestSize() const
+{
+ return wxControl::DoGetBestSize();
+}
+
+#endif