From d577d991b97ae2b5ee1af23641bcffc3f83af5b2 Mon Sep 17 00:00:00 2001
From: Pixel <pixel@nobis-crew.org>
Date: Wed, 4 Nov 2009 11:56:41 -0800
Subject: Initial import. Contains the im, cd and iup librairies, and a
 "working" Makefile for them under linux.

---
 iup/srclua5/zbox.lua | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 iup/srclua5/zbox.lua

(limited to 'iup/srclua5/zbox.lua')

diff --git a/iup/srclua5/zbox.lua b/iup/srclua5/zbox.lua
new file mode 100755
index 0000000..579c00b
--- /dev/null
+++ b/iup/srclua5/zbox.lua
@@ -0,0 +1,32 @@
+------------------------------------------------------------------------------
+-- ZBox class 
+------------------------------------------------------------------------------
+local ctrl = {
+  nick = "zbox",
+  parent = BOX,
+  creation = "-",
+  callback = {}
+}
+
+function ctrl.append (handle, elem)
+  ihandle_setname(elem)
+  Append(handle, elem)
+end
+
+function ctrl.SetChildrenNames(obj)
+  if obj then
+    local i = 1
+    while obj[i] do
+      ihandle_setname(obj[i])
+      i = i+1
+    end
+  end
+end
+
+function ctrl.createElement(class, arg)
+   ctrl.SetChildrenNames(arg)
+   return Zbox()
+end
+
+iupRegisterWidget(ctrl)
+iupSetClass(ctrl, "iup widget")
-- 
cgit v1.2.3