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/tabs.lua | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 iup/srclua5/tabs.lua

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

diff --git a/iup/srclua5/tabs.lua b/iup/srclua5/tabs.lua
new file mode 100755
index 0000000..3dc69bb
--- /dev/null
+++ b/iup/srclua5/tabs.lua
@@ -0,0 +1,31 @@
+------------------------------------------------------------------------------
+-- Tabs class 
+------------------------------------------------------------------------------
+local ctrl = {
+  nick = "tabs",
+  parent = WIDGET,
+  creation = "v",
+  callback = {
+    tabchange_cb = "ii",
+  },
+  funcname = "Tabsv",
+  createfunc = [[
+static int Tabsv(lua_State *L)
+{
+  Ihandle **hlist = iuplua_checkihandle_array(L, 1);
+  Ihandle *h = IupTabsv(hlist);
+  iuplua_plugstate(L, h);
+  iuplua_pushihandle_raw(L, h);
+  free(hlist);
+  return 1;
+}
+
+]],
+}
+
+function ctrl.createElement(class, arg)
+  return Tabsv(arg)
+end
+
+iupRegisterWidget(ctrl)
+iupSetClass(ctrl, "iup widget")
-- 
cgit v1.2.3