Refactor for documentation

modules/corelib/ui/uiradiogroup.lua

@@ -0,0 +1,45 @@
+-- @docclass
+UIRadioGroup = newclass()
+
+function UIRadioGroup.create()
+  local radiogroup = UIRadioGroup.internalCreate()
+  radiogroup.widgets = {}
+  return radiogroup
+end
+
+function UIRadioGroup:destroy()
+  for k,widget in pairs(self.widgets) do
+    widget.onClick = nil
+  end
+  self.widgets = {}
+end
+
+function UIRadioGroup:addWidget(widget)
+  table.insert(self.widgets, widget)
+  widget.onClick = function(widget) self:selectWidget(widget) end
+end
+
+function UIRadioGroup:removeWidget(widget)
+  if self.selectedWidget == widget then
+    self:selectWidget(nil)
+  end
+  widget.onClick = nil
+  table.removevalue(self.widgets, widget)
+end
+
+function UIRadioGroup:selectWidget(selectedWidget)
+  if selectedWidget == self.selectedWidget then return end
+
+  local previousSelectedWidget = self.selectedWidget
+  self.selectedWidget = selectedWidget
+
+  if previousSelectedWidget then
+    previousSelectedWidget:setChecked(false)
+  end
+
+  if selectedWidget then
+    selectedWidget:setChecked(true)
+  end
+
+  signalcall(self.onSelectionChange, self, selectedWidget, previousSelectedWidget)
+end