1 files changed, 150 insertions, 0 deletions
diff --git a/iup/srclua3/il_cells.c b/iup/srclua3/il_cells.c
new file mode 100755
index 0000000..92969f8
--- /dev/null
+++ b/iup/srclua3/il_cells.c
@@ -0,0 +1,150 @@
+/** \file
+ * \brief Bindig of IupCells to Lua 3.
+ * @author André Luiz Clinio.
+ *
+ * See Copyright Notice in "iup.h"
+ */
+ 
+#include <stdlib.h>
+
+#include "iup.h"
+#include "iupcontrols.h"
+
+#include <lua.h>
+
+#include "iuplua.h"
+
+#include "il.h"
+#include "il_controls.h"
+
+
+static int luacells_mouseclick_cb( Ihandle* handle, int b, int m, 
+                                   int i, int j, int x, int y, char* r )
+{
+  iuplua_call_start(handle, "mouseclick");
+  lua_pushnumber(b);
+  lua_pushnumber(m);
+  lua_pushnumber(i);
+  lua_pushnumber(j);
+  lua_pushnumber(x);
+  lua_pushnumber(y);
+  lua_pushstring(r);
+  return iuplua_call();
+}
+
+static int luacells_mousemotion_cb( Ihandle* handle, int i, int j, 
+                                    int x, int y, char* r )
+{
+  iuplua_call_start(handle, "mousemotion");
+  lua_pushnumber(i);
+  lua_pushnumber(j);
+  lua_pushnumber(x);
+  lua_pushnumber(y);
+  lua_pushstring(r);
+  return iuplua_call();
+}
+
+static int luacells_width_cb( Ihandle* handle, int col )
+{
+  iuplua_call_start(handle, "width");
+  lua_pushnumber(col);
+  return iuplua_call();
+}
+
+static int luacells_height_cb( Ihandle* handle, int line )
+{
+  iuplua_call_start(handle, "height");
+  lua_pushnumber(line);
+  return iuplua_call();
+}
+
+static int luacells_nlines_cb( Ihandle* handle )
+{
+  iuplua_call_start(handle, "nlines");
+  return iuplua_call();
+}
+
+static int luacells_ncols_cb( Ihandle* handle )
+{
+  iuplua_call_start(handle, "ncols");
+  return iuplua_call();
+}
+
+static int luacells_hspan_cb( Ihandle* handle, int i, int j )
+{
+  iuplua_call_start(handle, "hspan");
+  lua_pushnumber(i);
+  lua_pushnumber(j);
+  return iuplua_call();
+}
+
+static int luacells_vspan_cb( Ihandle* handle, int i, int j )
+{
+  iuplua_call_start(handle, "vspan");
+  lua_pushnumber(i);
+  lua_pushnumber(j);
+  return iuplua_call();
+}
+
+static int luacells_scrolling_cb( Ihandle* handle, int fline, int fcol )
+{
+  iuplua_call_start(handle, "scrolling");
+  lua_pushnumber(fline);
+  lua_pushnumber(fcol);
+  return iuplua_call();
+}
+
+static void createCells(void) 
+{
+  int tag = (int)lua_getnumber(lua_getglobal("iuplua_tag"));
+  lua_pushusertag(IupCells(), tag);
+}
+
+int cellslua_open(void) 
+{
+  int i;
+  struct TypeAssocList {
+    char *name; 
+    lua_CFunction func; 
+  } assoc_list [] = {
+    {"iup_cells_mouseclick_cb", (lua_CFunction) luacells_mouseclick_cb },
+    {"iup_cells_mousemotion_cb", (lua_CFunction) luacells_mousemotion_cb },
+    {"iup_cells_width_cb", (lua_CFunction) luacells_width_cb },
+    {"iup_cells_height_cb", (lua_CFunction) luacells_height_cb },
+    {"iup_cells_nlines_cb", (lua_CFunction) luacells_nlines_cb },
+    {"iup_cells_ncols_cb", (lua_CFunction) luacells_ncols_cb },
+    {"iup_cells_hspan_cb", (lua_CFunction) luacells_hspan_cb },
+    {"iup_cells_vspan_cb", (lua_CFunction) luacells_vspan_cb },
+    {"iup_cells_scrolling_cb", (lua_CFunction) luacells_scrolling_cb }
+  };
+  int assoc_list_size = (sizeof(assoc_list)/sizeof(struct TypeAssocList));
+
+  lua_register("iupCreateCells", createCells);
+
+  for( i = 0; i < assoc_list_size; i++ )
+    lua_register(assoc_list[i].name, assoc_list[i].func);
+
+#ifdef IUPLUA_USELOH
+#ifdef TEC_BIGENDIAN
+#ifdef TEC_64
+#include "loh/cells_be64.loh"
+#else
+#include "loh/cells_be32.loh"
+#endif  
+#else
+#ifdef TEC_64
+#ifdef WIN64
+#include "loh/cells_le64w.loh"
+#else
+#include "loh/cells_le64.loh"
+#endif  
+#else
+#include "loh/cells.loh"
+#endif  
+#endif  
+#else
+  iuplua_dofile("luacells.lua");
+#endif
+
+  return 1;
+}