1 files changed, 33 insertions, 0 deletions
diff --git a/iup/srclua5/radio.lua b/iup/srclua5/radio.lua
new file mode 100755
index 0000000..1cdd3a6
--- /dev/null
+++ b/iup/srclua5/radio.lua
@@ -0,0 +1,33 @@
+------------------------------------------------------------------------------
+-- Radio class 
+------------------------------------------------------------------------------
+local ctrl = {
+  nick = "radio",
+  parent = WIDGET,
+  creation = "i",
+  callback = {}
+} 
+
+function ctrl.CreateChildrenNames(obj)
+  if obj then
+    if obj.parent.parent == BOX then
+      local i = 1
+      while obj[i] do
+        ctrl.CreateChildrenNames (obj[i])
+        i = i+1
+      end
+    elseif obj.parent == IUPFRAME then
+      ctrl.CreateChildrenNames (obj[1])
+    else
+      ihandle_setname(obj)
+    end
+  end
+end
+
+function ctrl.createElement(class, arg)
+   ctrl.CreateChildrenNames(arg[1])
+   return Radio(arg[1])
+end
+   
+iupRegisterWidget(ctrl)
+iupSetClass(ctrl, "iup widget")