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

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

diff --git a/iup/srclua5/imagergba.lua b/iup/srclua5/imagergba.lua
new file mode 100755
index 0000000..87eb967
--- /dev/null
+++ b/iup/srclua5/imagergba.lua
@@ -0,0 +1,31 @@
+------------------------------------------------------------------------------
+-- ImageRGBA class 
+------------------------------------------------------------------------------
+local ctrl = {
+  nick = "imagergba",
+  parent = WIDGET,
+  creation = "nns", -- fake definition
+  funcname = "ImageRGBA", 
+  callback = {},
+  createfunc = [[ 
+static int ImageRGBA(lua_State *L)
+{
+  int w = luaL_checkint(L, 1);
+  int h = luaL_checkint(L, 2);
+  unsigned char *pixels = iuplua_checkuchar_array(L, 3, w*h*4);
+  Ihandle *ih = IupImageRGBA(w, h, pixels);
+  iuplua_plugstate(L, ih);
+  iuplua_pushihandle_raw(L, ih);
+  free(pixels);
+  return 1;
+}
+ 
+]]
+}
+
+function ctrl.createElement(class, arg)
+   return ImageRGBA(arg.width, arg.height, arg.pixels)
+end
+
+iupRegisterWidget(ctrl)
+iupSetClass(ctrl, "iup widget")
-- 
cgit v1.2.3