summaryrefslogtreecommitdiff
path: root/iup/srclua5/glcanvas.lua
diff options
context:
space:
mode:
authorPixel <pixel@nobis-crew.org>2009-11-04 11:56:41 -0800
committerPixel <pixel@nobis-crew.org>2009-11-04 11:59:33 -0800
commitd577d991b97ae2b5ee1af23641bcffc3f83af5b2 (patch)
tree590639d50205d1bcfaff2a7d2dc6ebf3f373c7ed /iup/srclua5/glcanvas.lua
Initial import. Contains the im, cd and iup librairies, and a "working" Makefile for them under linux.
Diffstat (limited to 'iup/srclua5/glcanvas.lua')
-rwxr-xr-xiup/srclua5/glcanvas.lua46
1 files changed, 46 insertions, 0 deletions
diff --git a/iup/srclua5/glcanvas.lua b/iup/srclua5/glcanvas.lua
new file mode 100755
index 0000000..782e974
--- /dev/null
+++ b/iup/srclua5/glcanvas.lua
@@ -0,0 +1,46 @@
+------------------------------------------------------------------------------
+-- GLCanvas class
+------------------------------------------------------------------------------
+local ctrl = {
+ nick = "glcanvas",
+ parent = WIDGET,
+ creation = "-",
+ funcname = "GLCanvas",
+ include = "iupgl.h",
+ callback = {
+ action = "nn",
+ },
+ extrafuncs = 1,
+ extracode = [[
+int iupgllua_open(lua_State * L)
+{
+ if (iuplua_opencall_internal(L))
+ IupGLCanvasOpen();
+
+ iuplua_changeEnv(L);
+ iupglcanvaslua_open(L);
+ iuplua_returnEnv(L);
+ return 0;
+}
+
+/* obligatory to use require"iupluagl" */
+int luaopen_iupluagl(lua_State* L)
+{
+ return iupgllua_open(L);
+}
+
+/* obligatory to use require"iupluagl51" */
+int luaopen_iupluagl51(lua_State* L)
+{
+ return iupgllua_open(L);
+}
+
+]]
+}
+
+function ctrl.createElement(class, arg)
+ return GLCanvas()
+end
+
+iupRegisterWidget(ctrl)
+iupSetClass(ctrl, "iup widget")