static void _GuiGtkRadioButton_handleToggle (GuiObject widget, gpointer void_me) {
iam (GuiRadioButton);
if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (widget))) {
struct structGuiRadioButtonEvent event = { me };
event. position = _GuiRadioButton_getPosition (me);
if (my d_valueChangedCallback != NULL) {
my d_valueChangedCallback (my d_valueChangedBoss, & event);
}
}
}
static void _GuiGtkRadioButton_handleToggle (GuiObject widget, gpointer void_me) {
iam (GuiRadioButton);
trace (U"enter");
if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (widget))) {
trace (U"on");
if (my d_valueChangedCallback && ! my d_blockValueChangedCallbacks) {
struct structGuiRadioButtonEvent event { me };
event. position = _GuiRadioButton_getPosition (me);
my d_valueChangedCallback (my d_valueChangedBoss, & event);
}
}
}
void _GuiWinRadioButton_handleClick (GuiObject widget) {
iam_radiobutton;
Button_SetCheck (widget -> window, BST_CHECKED);
/*
* Deselect the sister buttons.
*/
for (GuiRadioButton sibling = my d_previous; sibling != NULL; sibling = sibling -> d_previous) {
Button_SetCheck (sibling -> d_widget -> window, BST_UNCHECKED);
}
for (GuiRadioButton sibling = my d_next; sibling != NULL; sibling = sibling -> d_next) {
Button_SetCheck (sibling -> d_widget -> window, BST_UNCHECKED);
}
if (my d_valueChangedCallback != NULL) {
struct structGuiRadioButtonEvent event = { me };
event. position = _GuiRadioButton_getPosition (me);
my d_valueChangedCallback (my d_valueChangedBoss, & event);
}
}
void _GuiMacRadioButton_handleClick (GuiObject widget, EventRecord *macEvent) {
iam_radiobutton;
_GuiMac_clipOnParent (widget);
bool clicked = HandleControlClick (widget -> nat.control.handle, macEvent -> where, macEvent -> modifiers, NULL);
GuiMac_clipOff ();
if (clicked) {
/*
* Deselect the sister buttons.
*/
for (GuiRadioButton sibling = my d_previous; sibling != NULL; sibling = sibling -> d_previous) {
SetControlValue (sibling -> d_widget -> nat.control.handle, 0);
}
for (GuiRadioButton sibling = my d_next; sibling != NULL; sibling = sibling -> d_next) {
SetControlValue (sibling -> d_widget -> nat.control.handle, 0);
}
if (my d_valueChangedCallback != NULL) {
struct structGuiRadioButtonEvent event = { me };
event. position = _GuiRadioButton_getPosition (me);
my d_valueChangedCallback (my d_valueChangedBoss, & event);
}
}
}
