--- /dev/null
+#ifdef INTERFACE
+void RadioButton_Click(entity me, entity other);
+CLASS(RadioButton) EXTENDS(CheckBox)
+ METHOD(RadioButton, configureRadioButton, void(entity, string, float, string, float, float))
+ ATTRIB(RadioButton, checked, float, 0)
+ ATTRIB(RadioButton, group, float, 0)
+ ATTRIB(RadioButton, allowDeselect, float, 0)
+ ATTRIB(RadioButton, onClick, void(entity, entity), RadioButton_Click)
+ENDCLASS(RadioButton)
+#endif
+
+#ifdef IMPLEMENTATION
+void RadioButton_configureRadioButton(entity me, string txt, float sz, string gfx, float theGroup, float doAllowDeselect)
+{
+ me.configureCheckBox(me, txt, sz, gfx);
+ me.align = 0;
+ me.group = theGroup;
+ me.allowDeselect = doAllowDeselect;
+}
+void RadioButton_Click(entity me, entity other)
+{
+ if(me.checked)
+ {
+ if(me.allowDeselect)
+ me.setChecked(me, 0);
+ }
+ else
+ {
+ entity e;
+ for(e = me.parent.firstChild; e; e = e.nextSibling)
+ if(e != me)
+ if(e.group == me.group)
+ e.setChecked(e, 0);
+ me.setChecked(me, 1);
+ }
+}
+#endif