static int GridBox(lua_State *L)
{
Ihandle *ih = IupGridBox(NULL);
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Colorbar(lua_State *L)
{
Ihandle *ih = IupColorbar();
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int MatrixEx(lua_State *L)
{
Ihandle *ih = IupMatrixEx();
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Dial(lua_State *L)
{
Ihandle *ih = IupDial((char *)luaL_optstring(L, 1, NULL));
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Tree(lua_State *L)
{
Ihandle *ih = IupTree();
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Clipboard(lua_State *L)
{
Ihandle *ih = IupClipboard();
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int GLVal(lua_State *L)
{
Ihandle *ih = IupGLVal();
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Dialog(lua_State *L)
{
Ihandle *ih = IupDialog(iuplua_checkihandleornil(L, 1));
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Split(lua_State *L)
{
Ihandle *ih = IupSplit(iuplua_checkihandleornil(L, 1), iuplua_checkihandleornil(L, 2));
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Canvas(lua_State *L)
{
Ihandle *ih = IupCanvas(NULL);
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Sbox(lua_State *L)
{
Ihandle *ih = IupSbox(iuplua_checkihandle(L, 1));
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Text(lua_State *L)
{
Ihandle *ih = IupText(NULL);
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Expander(lua_State *L)
{
Ihandle *ih = IupExpander(iuplua_checkihandleornil(L, 1));
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int MultiLine(lua_State *L)
{
Ihandle *ih = IupMultiLine(NULL);
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Submenu(lua_State *L)
{
Ihandle *ih = IupSubmenu((char *)luaL_optstring(L, 1, NULL), iuplua_checkihandleornil(L, 2));
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int OleControl(lua_State *L)
{
Ihandle *ih = IupOleControl((char *) luaL_checkstring(L, 1));
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int ProgressDlg(lua_State *L)
{
Ihandle *ih = IupProgressDlg();
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Scintilla(lua_State *L)
{
Ihandle *ih = IupScintilla();
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int MglPlot(lua_State *L)
{
Ihandle *ih = IupMglPlot();
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int Separator(lua_State *L)
{
Ihandle *ih = IupSeparator();
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
static int LoadImage(lua_State *L)
{
const char *filename = luaL_checkstring(L, 1);
Ihandle* image = IupLoadImage(filename);
iuplua_plugstate(L, image);
iuplua_pushihandle(L, image);
return 1;
}
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;
}
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;
}
static int Image (lua_State * L)
{
int w, h, c, num_colors;
unsigned char *pixels;
Ihandle* ih;
char str[20];
if (lua_istable(L, 1))
{
int i, j;
/* get the number of lines */
h = iuplua_getn(L, 1);
/* get the number of columns of the first line */
lua_pushinteger(L, 1);
lua_gettable(L, 1);
w = iuplua_getn(L, -1);
lua_pop(L, 1);
pixels = (unsigned char *) malloc (h*w);
for (i=1; i<=h; i++)
{
lua_pushinteger(L, i);
lua_gettable(L, 1);
for (j=1; j<=w; j++)
{
int idx = (i-1)*w+(j-1);
lua_pushinteger(L, j);
lua_gettable(L, -2);
pixels[idx] = (unsigned char)lua_tointeger(L, -1);
lua_pop(L, 1);
}
lua_pop(L, 1);
}
ih = IupImage(w,h,pixels);
free(pixels);
num_colors = iuplua_getn(L, 2);
num_colors = num_colors>255? 255: num_colors;
for(c=1; c<=num_colors; c++)
{
lua_rawgeti(L, 2, c);
sprintf(str, "%d", c);
IupStoreAttribute(ih, str, lua_tostring(L,-1));
lua_pop(L, 1);
}
}
else
{
w = (int)luaL_checkinteger(L, 1);
h = (int)luaL_checkinteger(L, 2);
pixels = iuplua_checkuchar_array(L, 3, w*h);
ih = IupImage(w, h, pixels);
free(pixels);
num_colors = iuplua_getn(L, 4);
num_colors = num_colors>256? 256: num_colors;
for(c=1; c<=num_colors; c++)
{
lua_rawgeti(L, 4, c);
sprintf(str, "%d", c-1);
IupStoreAttribute(ih, str, lua_tostring(L,-1));
lua_pop(L, 1);
}
}
iuplua_plugstate(L, ih);
iuplua_pushihandle_raw(L, ih);
return 1;
}
