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_macIsUserPane = false;
if ( !wxControl::Create( parent, id, pos, size, style, validator, name ) )
return false;
m_label = label;
Rect bounds = wxMacGetBoundsForControl( this, pos, size );
m_peer = new wxMacControl( this );
OSStatus err = CreateRadioButtonControl(
MAC_WXHWND(parent->MacGetTopLevelWindowRef()), &bounds, CFSTR(""),
0, false /* no autotoggle */, m_peer->GetControlRefAddr() );
verify_noerr( err );
MacPostControlCreate( pos, size );
m_cycle = this;
if (HasFlag( wxRB_GROUP ))
{
AddInCycle( NULL );
}
else
{
// search backward for last group start
wxRadioButton *chief = NULL;
wxWindowList::compatibility_iterator node = parent->GetChildren().GetLast();
while (node)
{
wxWindow *child = node->GetData();
if (child->IsKindOf( CLASSINFO( wxRadioButton ) ))
{
chief = (wxRadioButton*)child;
if (child->HasFlag( wxRB_GROUP ))
break;
}
node = node->GetPrevious();
}
AddInCycle( chief );
}
return true;
}
wxWidgetImplType* wxWidgetImpl::CreateRadioButton( wxWindowMac* wxpeer,
wxWindowMac* parent,
wxWindowID WXUNUSED(id),
const wxString& WXUNUSED(label),
const wxPoint& pos,
const wxSize& size,
long WXUNUSED(style),
long WXUNUSED(extraStyle))
{
Rect bounds = wxMacGetBoundsForControl( wxpeer , pos , size ) ;
wxMacControl* peer = new wxMacControl(wxpeer) ;
OSStatus err = CreateRadioButtonControl(
MAC_WXHWND(parent->MacGetTopLevelWindowRef()), &bounds, CFSTR(""),
0, false /* no autotoggle */, peer->GetControlRefAddr() );
verify_noerr( err );
return peer;
}
GuiRadioButton GuiRadioButton_create (GuiForm parent, int left, int right, int top, int bottom,
const wchar_t *buttonText, void (*valueChangedCallback) (void *boss, GuiRadioButtonEvent event), void *valueChangedBoss, unsigned long flags)
{
trace ("begin: text %ls", buttonText);
GuiRadioButton me = Thing_new (GuiRadioButton);
my d_shell = parent -> d_shell;
my d_parent = parent;
my d_valueChangedCallback = valueChangedCallback;
my d_valueChangedBoss = valueChangedBoss;
my d_previous = latestRadioButton;
my d_next = NULL;
#if gtk
my d_widget = gtk_radio_button_new_with_label_from_widget (latestRadioButton ? GTK_RADIO_BUTTON (latestRadioButton -> d_widget) : NULL, Melder_peekWcsToUtf8 (buttonText));
_GuiObject_setUserData (my d_widget, me);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
if (flags & GuiRadioButton_SET) {
gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (my d_widget), TRUE);
} else {
gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (my d_widget), FALSE);
}
g_signal_connect (G_OBJECT (my d_widget), "destroy", G_CALLBACK (_GuiGtkRadioButton_destroyCallback), me);
my d_valueChangedHandlerId = g_signal_connect (GTK_TOGGLE_BUTTON (my d_widget), "toggled", G_CALLBACK (_GuiGtkRadioButton_handleToggle), me);
#elif cocoa
#elif win
my d_widget = _Gui_initializeWidget (xmToggleButtonWidgetClass, parent -> d_widget, buttonText);
_GuiObject_setUserData (my d_widget, me);
my d_widget -> isRadioButton = true;
my d_widget -> window = CreateWindow (L"button", _GuiWin_expandAmpersands (buttonText),
WS_CHILD
| ( my d_widget -> parent -> radioBehavior ? BS_AUTORADIOBUTTON : BS_RADIOBUTTON )
| WS_CLIPSIBLINGS,
my d_widget -> x, my d_widget -> y, my d_widget -> width, my d_widget -> height,
my d_widget -> parent -> window, (HMENU) 1, theGui.instance, NULL);
SetWindowLongPtr (my d_widget -> window, GWLP_USERDATA, (LONG_PTR) my d_widget);
SetWindowFont (my d_widget -> window, GetStockFont (ANSI_VAR_FONT), FALSE);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
if (flags & GuiRadioButton_SET) {
Button_SetCheck (my d_widget -> window, BST_CHECKED);
}
#elif mac
my d_widget = _Gui_initializeWidget (xmToggleButtonWidgetClass, parent -> d_widget, buttonText);
_GuiObject_setUserData (my d_widget, me);
my d_widget -> isRadioButton = true;
CreateRadioButtonControl (my d_widget -> macWindow, & my d_widget -> rect, NULL,
(flags & GuiRadioButton_SET) != 0, true, & my d_widget -> nat.control.handle);
Melder_assert (my d_widget -> nat.control.handle != NULL);
SetControlReference (my d_widget -> nat.control.handle, (long) my d_widget);
my d_widget -> isControl = true;
_GuiNativeControl_setFont (my d_widget, 0, 13);
_GuiNativeControl_setTitle (my d_widget);
my v_positionInForm (my d_widget, left, right, top, bottom, parent);
#endif
if (flags & GuiRadioButton_INSENSITIVE) {
my f_setSensitive (false);
}
if (my d_previous) {
Melder_assert (my d_previous != NULL);
Melder_assert (my d_previous -> classInfo == classGuiRadioButton);
my d_previous -> d_next = me;
}
latestRadioButton = me;
trace ("end");
return me;
}
