src/lib/edje_lua.c

   1 #include "edje_private.h"
   2
   3 #if 0
   4 /////////////////////////////////////////////////////////////////////////////
   5 // the below is deprecated and here for reference only until removed. look
   6 // at edje_lua2.c for the active workign code
   7 /////////////////////////////////////////////////////////////////////////////
   8
   9 #include <lauxlib.h>
  10 #include <lualib.h>
  11
  12 #define EDJE_LUA_GET 1
  13 #define EDJE_LUA_SET 2
  14 #define EDJE_LUA_FN 3
  15
  16 typedef struct _Edje_Lua_Alloc Edje_Lua_Alloc;
  17
  18 typedef struct _Edje_Lua_Ref Edje_Lua_Ref;
  19
  20 typedef struct _Edje_Lua_Reg Edje_Lua_Reg;
  21
  22 typedef struct _Edje_Lua_Timer Edje_Lua_Timer;
  23
  24 typedef struct _Edje_Lua_Animator Edje_Lua_Animator;
  25
  26 typedef struct _Edje_Lua_Poller Edje_Lua_Poller;
  27
  28 typedef struct _Edje_Lua_Transform Edje_Lua_Transform;
  29
  30 typedef struct _Edje_Lua_Transition Edje_Lua_Transition;
  31
  32 typedef struct _Edje_Lua_Evas_Object Edje_Lua_Evas_Object;
  33
  34 typedef struct _Edje_Lua_Edje_Part_Object Edje_Lua_Edje_Part_Object;
  35
  36 typedef struct _Edje_Lua_Edje_Part_Description Edje_Lua_Edje_Part_Description;
  37
  38 struct _Edje_Lua_Alloc
  39 {
  40    size_t max, cur; /* maximal and current memory used by Lua */
  41 };
  42
  43 struct _Edje_Lua_Ref
  44 {
  45    int id;
  46    lua_State *L;
  47 };
  48
  49 struct _Edje_Lua_Reg
  50 {
  51    const luaL_Reg *mt, *get, *set, *fn;
  52 };
  53
  54 struct _Edje_Lua_Timer
  55 {
  56    lua_State *L;
  57    Ecore_Timer *et;
  58    Edje_Lua_Ref *cb;
  59 };
  60
  61 struct _Edje_Lua_Animator
  62 {
  63    lua_State *L;
  64    Ecore_Animator *ea;
  65    Edje_Lua_Ref *cb;
  66 };
  67
  68 struct _Edje_Lua_Poller
  69 {
  70    lua_State *L;
  71    Ecore_Poller *ep;
  72    Edje_Lua_Ref *cb;
  73 };
  74
  75 struct _Edje_Lua_Transform
  76 {
  77    lua_State *L;
  78    Evas_Transform et;
  79 };
  80
  81 struct _Edje_Lua_Transition
  82 {
  83    lua_State *L;
  84    Ecore_Timer *et;
  85    Edje_Lua_Ref *trans;
  86    Edje_Lua_Ref *cb;
  87    Edje_Lua_Ref *ref;
  88    double dur;
  89 };
  90
  91 struct _Edje_Lua_Evas_Object
  92 {
  93    lua_State *L;
  94    Edje *ed;
  95    Evas_Object *eo;
  96    Eina_Bool mouse_events;
  97    Eina_List *cb;
  98 };
  99
 100 struct _Edje_Lua_Edje_Part_Object
 101 {
 102    lua_State *L;
 103    Edje *ed;
 104    Evas_Object *eo;
 105    Edje_Real_Part *rp;
 106    const char *key;
 107 };
 108
 109 struct _Edje_Lua_Edje_Part_Description
 110 {
 111    lua_State *L;
 112    Edje *ed;
 113    Evas_Object *eo;
 114    Edje_Real_Part *rp;
 115    Edje_Part_Description *pd;
 116 };
 117
 118 jmp_buf _edje_lua_panic_jmp;
 119
 120 static int
 121 _edje_lua_custom_panic(__UNUSED__ lua_State *L)
 122 {
 123    CRITICAL("PANIC");
 124    longjmp(_edje_lua_panic_jmp, 1);
 125    return 1; /* longjmp() never returns, but this keep gcc happy */
 126 }
 127
 128 void
 129 __edje_lua_error(const char *file, const char *fnc, int line, lua_State *L, int err_code)
 130 {
 131    char *err_type;
 132
 133    switch (err_code)
 134      {
 135      case LUA_ERRRUN:
 136         err_type = "runtime";
 137         break;
 138      case LUA_ERRSYNTAX:
 139         err_type = "syntax";
 140         break;
 141      case LUA_ERRMEM:
 142         err_type = "memory allocation";
 143         break;
 144      case LUA_ERRERR:
 145         err_type = "error handler";
 146         break;
 147      default:
 148         err_type = "unknown";
 149         break;
 150      }
 151    eina_log_print
 152      (_edje_default_log_dom, EINA_LOG_LEVEL_ERR,  file, fnc, line,
 153       "Lua %s error: %s", err_type, lua_tostring(L, -1));
 154    // don't exit. this is BAD. lua script bugs will cause thngs like e to
 155    // exit mysteriously ending your x session. bad!
 156    // exit(-1);
 157 }
 158
 159 lua_State *
 160 _edje_lua_new_thread(Edje *ed, lua_State *L)
 161 {
 162 #if 1 // newlua
 163    lua_newtable(L);
 164    ed->lua_ref = luaL_ref(L, LUA_REGISTRYINDEX);
 165    /* inherit new environment from global environment */
 166    lua_createtable(L, 1, 0);
 167    lua_pushvalue(L, LUA_GLOBALSINDEX);
 168    lua_setfield(L, -2, "__index");
 169    lua_setmetatable(L, -2);
 170    lua_setfenv(L, -2);
 171    return L;
 172 #else
 173    /* create new thread */
 174    lua_State *thread = lua_newthread(L);
 175    //printf ("new thread %d->%d\n", L, thread);
 176    /* create new environment for new thread */
 177    lua_newtable(L);
 178    /* inherit new environment from global environment */
 179    lua_createtable(L, 1, 0);
 180    lua_pushvalue(L, LUA_GLOBALSINDEX);
 181    lua_setfield(L, -2, "__index");
 182    lua_setmetatable(L, -2);
 183    lua_setfenv(L, -2);
 184    return thread;
 185 #endif
 186 }
 187
 188 void
 189 _edje_lua_free_thread(Edje *ed, lua_State *L)
 190 {
 191 #if 1 // newlua
 192    luaL_unref(L, LUA_REGISTRYINDEX, ed->lua_ref);
 193    lua_gc(L, LUA_GCCOLLECT, 0);
 194 #else
 195    lua_pushthread(L);
 196    lua_getfenv(L, -1);
 197    lua_pushnil(L);
 198    while (lua_next(L, -2))
 199      {
 200         // key at -2, value at -1
 201         lua_pop(L, 1);
 202         lua_pushvalue(L, -1);
 203         lua_pushnil(L);
 204         lua_rawset(L, -4);
 205      }
 206    lua_settop(L, 0);
 207    lua_gc(L, LUA_GCCOLLECT, 0);
 208 #endif
 209 }
 210
 211 /*
 212  * only for debug, returns number of objects in registry
 213  */
 214 static int
 215 _edje_lua_reg_count (lua_State *L)
 216 {
 217    int count = 0;
 218    lua_pushvalue(L, LUA_REGISTRYINDEX);
 219    lua_pushnil(L);
 220    while (lua_next(L, -2))
 221      {
 222         // key at -2, value at -1
 223         lua_pop(L, 1);
 224         count++;
 225      }
 226    lua_pop(L, 1);
 227    return count;
 228 }
 229
 230 static Edje_Lua_Ref *
 231 _edje_lua_new_ref(lua_State *L, int index)
 232 {
 233    lua_pushvalue(L, index);
 234    Edje_Lua_Ref *ref = malloc(sizeof(Edje_Lua_Ref));
 235    ref->id = luaL_ref(L, LUA_REGISTRYINDEX);
 236    ref->L = L;
 237    return ref;
 238 }
 239
 240 static void
 241 _edje_lua_get_ref(lua_State *L, Edje_Lua_Ref *ref)
 242 {
 243    lua_rawgeti(L, LUA_REGISTRYINDEX, ref->id);
 244 }
 245
 246 static void
 247 _edje_lua_free_ref(lua_State *L, Edje_Lua_Ref *ref)
 248 {
 249    //printf ("_edje_lua_free_ref %d %d %d\n", L, lua_objlen(L, LUA_REGISTRYINDEX), _edje_lua_reg_count(L));
 250    luaL_unref(L, LUA_REGISTRYINDEX, ref->id);
 251    free(ref);
 252    lua_gc(L, LUA_GCCOLLECT, 0);
 253 }
 254
 255 void
 256 _edje_lua_new_reg(lua_State *L, int index, void *ptr)
 257 {
 258    //printf ("_edje_lua_new_reg %d %d %d\n", L, ptr, _edje_lua_reg_count(L));
 259    lua_pushvalue(L, index);
 260    lua_pushlightuserdata(L, ptr);
 261    lua_insert(L, -2);
 262    lua_rawset(L, LUA_REGISTRYINDEX); /* freed in _edje_lua_free_reg */
 263 }
 264
 265 void
 266 _edje_lua_get_reg(lua_State *L, void *ptr)
 267 {
 268    //printf ("_edje_lua_get_reg %d %d\n", L, ptr);
 269    lua_pushlightuserdata(L, ptr);
 270    lua_rawget(L, LUA_REGISTRYINDEX);
 271 }
 272
 273 void
 274 _edje_lua_free_reg(lua_State *L, void *ptr)
 275 {
 276    //printf ("_edje_lua_free_reg %d %d %d\n", L, ptr, _edje_lua_reg_count(L));
 277    lua_pushlightuserdata(L, ptr);
 278    lua_pushnil(L);
 279    lua_rawset(L, LUA_REGISTRYINDEX); /* created in _edje_lua_new_reg */
 280    lua_gc(L, LUA_GCCOLLECT, 0);
 281 }
 282
 283 static void
 284 _edje_lua_rawsetfield(lua_State *L, int index, const char *key)
 285 {
 286    lua_pushstring(L, key);
 287    lua_insert(L, -2);
 288    if (index < 0)
 289       lua_rawset(L, index - 1);
 290    else
 291       lua_rawset(L, index);
 292 }
 293
 294 static void
 295 _edje_lua_rawgetfield(lua_State *L, int index, const char *key)
 296 {
 297    lua_pushstring(L, key);
 298    if (index < 0)
 299       lua_rawget(L, index - 1);
 300    else
 301       lua_rawget(L, index);
 302 }
 303
 304 static void
 305 _edje_lua_new_const(lua_State *L, const char *id, int val)
 306 {
 307    lua_pushnumber(L, val);
 308    lua_setglobal(L, id);
 309 }
 310
 311 static void
 312 _edje_lua_new_metatable(lua_State *L, const Edje_Lua_Reg ** class)
 313 {
 314    lua_newtable(L);
 315    lua_pushlightuserdata(L, class);
 316    lua_pushvalue(L, -2);
 317    lua_rawset(L, LUA_REGISTRYINDEX); /* freed in _edje_lua_free_metatable */
 318    lua_pushvalue(L, -1);
 319    lua_pushlightuserdata(L, class);
 320    lua_rawset(L, LUA_REGISTRYINDEX); /* freed in _edje_lua_free_metatable */
 321 }
 322
 323 static void
 324 _edje_lua_get_metatable(lua_State *L, const Edje_Lua_Reg ** class)
 325 {
 326    lua_pushlightuserdata(L, class);
 327    lua_rawget(L, LUA_REGISTRYINDEX);
 328 }
 329
 330 static void
 331 _edje_lua_free_metatable(lua_State *L, const Edje_Lua_Reg ** class)
 332 {
 333    lua_pushlightuserdata(L, class);
 334    lua_rawget(L, LUA_REGISTRYINDEX);
 335    lua_pushnil(L);
 336    lua_rawset(L, LUA_REGISTRYINDEX); /* created in _edje_lua_new_metatable */
 337    lua_pushlightuserdata(L, class);
 338    lua_pushnil(L);
 339    lua_rawset(L, LUA_REGISTRYINDEX); /* created in _edje_lua_new_metatable */
 340    lua_gc(L, LUA_GCCOLLECT, 0);
 341 }
 342
 343 static void *
 344 _edje_lua_checkudata(lua_State *L, int pos, const Edje_Lua_Reg * module)
 345 {
 346    luaL_checktype(L, pos, LUA_TUSERDATA);
 347    lua_getmetatable(L, pos);
 348    lua_rawget(L, LUA_REGISTRYINDEX);
 349    Edje_Lua_Reg **class = lua_touserdata(L, -1);
 350    lua_pop(L, 1);               // class
 351    int flag = 0;
 352    int ptr = 0;
 353    while (class[ptr] && !flag)
 354       if (class[ptr++] == module)
 355          flag = 1;
 356    if (!flag)
 357      {
 358         lua_pushstring(L, "class type mismatch");
 359         lua_error(L);
 360      }
 361    return lua_touserdata(L, pos);
 362 }
 363
 364 static void
 365 _edje_lua_new_class(lua_State *L, const Edje_Lua_Reg ** class)
 366 {
 367    int n = 0;
 368    _edje_lua_new_metatable(L, class);
 369    while (class && (class[n] != NULL))
 370      {
 371         luaL_register(L, NULL, class[n]->mt);
 372         lua_pushstring(L, "hands off, it's none of your business!");
 373         _edje_lua_rawsetfield(L, -2, "__metatable");
 374
 375         if (n == 0)
 376           {
 377              lua_newtable(L);
 378              luaL_register(L, NULL, class[n]->set);
 379              lua_rawseti (L, -2, EDJE_LUA_SET);
 380
 381              lua_newtable(L);
 382              luaL_register(L, NULL, class[n]->get);
 383              lua_rawseti (L, -2, EDJE_LUA_GET);
 384
 385              lua_newtable(L);
 386              luaL_register(L, NULL, class[n]->fn);
 387              lua_rawseti (L, -2, EDJE_LUA_FN);
 388           }
 389         else
 390           {
 391              lua_rawgeti(L, -1, EDJE_LUA_SET);
 392              luaL_register(L, NULL, class[n]->set);
 393              lua_pop(L, 1);
 394
 395              lua_rawgeti(L, -1, EDJE_LUA_GET);
 396              luaL_register(L, NULL, class[n]->get);
 397              lua_pop(L, 1);
 398
 399              lua_rawgeti(L, -1, EDJE_LUA_FN);
 400              luaL_register(L, NULL, class[n]->fn);
 401              lua_pop(L, 1);
 402           }
 403         n += 1;
 404      }
 405 }
 406
 407 static void
 408 _edje_lua_set_class(lua_State *L, int index, const Edje_Lua_Reg ** class)
 409 {
 410    lua_newtable(L);
 411    if (index < 0)
 412       lua_setfenv(L, index - 1);
 413    else
 414       lua_setfenv(L, index);
 415
 416    _edje_lua_get_metatable(L, class);
 417    if (index < 0)
 418       lua_setmetatable(L, index - 1);
 419    else
 420       lua_setmetatable(L, index);
 421 }
 422
 423 static int
 424 _edje_lua_look_fn(lua_State *L)
 425 {
 426    lua_rawgeti(L, -1, EDJE_LUA_FN);
 427    lua_pushvalue(L, 2);         // key
 428    lua_rawget(L, -2);           // .fn[key]
 429    if (lua_iscfunction(L, -1))
 430       return 1;
 431    else
 432      {
 433         lua_pop(L, 2);          // .fn[key], .fn
 434         return 0;
 435      }
 436 }
 437
 438 static int
 439 _edje_lua_look_get(lua_State *L)
 440 {
 441    lua_rawgeti(L, -1, EDJE_LUA_GET);
 442    lua_pushvalue(L, 2);         // key
 443    lua_rawget(L, -2);           // .get[key]
 444    if (lua_iscfunction(L, -1))
 445      {
 446         int err_code;
 447
 448         lua_pushvalue(L, 1);
 449
 450         if ((err_code = lua_pcall(L, 1, 1, 0)))
 451            _edje_lua_error(L, err_code);
 452         return 1;
 453      }
 454    else
 455      {
 456         lua_pop(L, 2);          // .get[key], .get
 457         return 0;
 458      }
 459 }
 460
 461 static int
 462 _edje_lua_look_set(lua_State *L)
 463 {
 464    lua_rawgeti(L, -1, EDJE_LUA_SET);
 465    lua_pushvalue(L, 2);         // key
 466    lua_rawget(L, -2);           // .set[key]
 467    if (lua_iscfunction(L, -1))
 468      {
 469         int err_code;
 470
 471         lua_pushvalue(L, 1);    // obj
 472         lua_pushvalue(L, 3);    // value
 473
 474         if ((err_code = lua_pcall(L, 2, 0, 0))) // .set[key](obj,key,value)
 475            _edje_lua_error(L, err_code);
 476         return 1;
 477      }
 478    else
 479      {
 480         lua_pop(L, 2);          // .set[key], .set
 481         return 0;
 482      }
 483 }
 484
 485 /*
 486  * Lua Class bindings
 487  */
 488
 489 const luaL_Reg lNil[] = {
 490    {NULL, NULL}                 // sentinel
 491 };
 492
 493 const luaL_Reg lClass_mt[];
 494
 495 const luaL_Reg lClass_fn[];
 496
 497 const Edje_Lua_Reg mClass = {
 498    lClass_mt,
 499    lNil,
 500    lNil,
 501    lClass_fn
 502 };
 503
 504 static int
 505 _edje_lua_class_mt_index(lua_State *L)
 506 {
 507    _edje_lua_checkudata(L, 1, &mClass);
 508    lua_getmetatable(L, 1);
 509    if (!_edje_lua_look_fn(L))   // look in lClass_fn
 510       if (!_edje_lua_look_get(L))       // look in lClass_get
 511         {                       // look in obj ref hash
 512            lua_getfenv(L, 1);
 513            lua_pushvalue(L, 2); // key
 514            lua_rawget(L, -2);
 515         }
 516    return 1;
 517 }
 518
 519 static int
 520 _edje_lua_class_mt_newindex(lua_State *L)
 521 {
 522    _edje_lua_checkudata(L, 1, &mClass);
 523    lua_getmetatable(L, 1);
 524    if (!_edje_lua_look_set(L))  // look in lClass_set
 525      {                          // look in obj ref hash
 526         lua_getfenv(L, 1);
 527         lua_pushvalue(L, 2);
 528         lua_pushvalue(L, 3);
 529         lua_rawset(L, -3);
 530      }
 531    return 0;
 532 }
 533
 534 static int
 535 _edje_lua_class_mt_gc(lua_State *L)
 536 {
 537    _edje_lua_checkudata(L, 1, &mClass);
 538    //printf("_edje_lua_class_mt_gc\n");
 539    /* FIXME has to be commented to not raise an error, solve differently
 540    lua_getfield(L, 1, "del");
 541    if (!lua_isnil(L, -1))
 542      {
 543         lua_pushvalue(L, 1);
 544         int err_code;
 545
 546         if (err_code = lua_pcall(L, 1, 0, 0))
 547            _edje_lua_error(L, err_code);
 548      }
 549    lua_pop(L, 1);
 550    */
 551    return 0;
 552 }
 553
 554 static int
 555 _edje_lua_class_fn_set(lua_State *L)
 556 {
 557    _edje_lua_checkudata(L, 1, &mClass);
 558    /*
 559     * for k,v in pairs(table) do
 560     *   obj[k] = v
 561     * end
 562     */
 563    lua_pushnil(L);
 564    while (lua_next(L, 2))
 565      {
 566         // key at -2, value at -1
 567         lua_pushvalue(L, -2);
 568         lua_insert(L, -2);
 569         lua_settable(L, 1);
 570      }
 571    return 0;
 572 }
 573
 574 static int
 575 _edje_lua_class_fn_get(lua_State *L)
 576 {
 577    _edje_lua_checkudata(L, 1, &mClass);
 578    /*
 579     * res = {}
 580     * mtG = getmetatable(obj)['.get']
 581     * for k,v in pairs(mtG) do
 582     *   res[k] = obj[k]
 583     * end
 584     */
 585    lua_newtable(L);             // res
 586    lua_getmetatable(L, 1);      // mt
 587    lua_getfield(L, -1, ".get");
 588    lua_remove(L, -2);           // mt
 589
 590    lua_pushnil(L);
 591    while (lua_next(L, -2))
 592      {
 593         // key at -2, value at -1
 594         lua_pop(L, 1);          // value = cfunction
 595         lua_pushvalue(L, -1);   // key
 596         lua_pushvalue(L, -1);   // key
 597         lua_gettable(L, 1);     // obj[key]
 598         lua_settable(L, 2);     // res[key]
 599      }
 600    lua_pop(L, 1);               // .get
 601    return 1;
 602 }
 603
 604 static int
 605 _edje_lua_class_itr_call(lua_State *L, int id)
 606 {
 607    int err_code;
 608
 609    _edje_lua_checkudata(L, 1, &mClass);
 610    lua_getmetatable(L, 1);      // mt
 611    lua_rawgeti(L, -1, id);
 612    lua_remove(L, -2);           // mt
 613    lua_getglobal(L, "pairs");
 614    lua_insert(L, -2);
 615
 616    if ((err_code = lua_pcall(L, 1, 3, 0)))
 617       _edje_lua_error(L, err_code);
 618    return 3;
 619 }
 620
 621 static int
 622 _edje_lua_class_fn_gpairs(lua_State *L)
 623 {
 624    _edje_lua_checkudata(L, 1, &mClass);
 625    return _edje_lua_class_itr_call(L, EDJE_LUA_GET);
 626 }
 627
 628 static int
 629 _edje_lua_class_fn_spairs(lua_State *L)
 630 {
 631    _edje_lua_checkudata(L, 1, &mClass);
 632    return _edje_lua_class_itr_call(L, EDJE_LUA_SET);
 633 }
 634
 635 static int
 636 _edje_lua_class_fn_fpairs(lua_State *L)
 637 {
 638    _edje_lua_checkudata(L, 1, &mClass);
 639    return _edje_lua_class_itr_call(L, EDJE_LUA_FN);
 640 }
 641
 642 static int
 643 _edje_lua_class_fn_pairs(lua_State *L)
 644 {
 645    int err_code;
 646
 647    _edje_lua_checkudata(L, 1, &mClass);
 648    lua_getfenv(L, 1);
 649    lua_getglobal(L, "pairs");
 650    lua_insert(L, -2);
 651
 652    if ((err_code = lua_pcall(L, 1, 3, 0)))
 653       _edje_lua_error(L, err_code);
 654    return 3;
 655 }
 656
 657 static int
 658 _edje_lua_class_fn_ipairs(lua_State *L)
 659 {
 660    int err_code;
 661
 662    _edje_lua_checkudata(L, 1, &mClass);
 663    lua_getfenv(L, 1);
 664    lua_getglobal(L, "ipairs");
 665    lua_insert(L, -2);
 666
 667    if ((err_code = lua_pcall(L, 1, 3, 0)))
 668       _edje_lua_error(L, err_code);
 669    return 3;
 670 }
 671
 672 const luaL_Reg lClass_mt[] = {
 673    {"__index", _edje_lua_class_mt_index},
 674    {"__newindex", _edje_lua_class_mt_newindex},
 675    {"__gc", _edje_lua_class_mt_gc},
 676    {NULL, NULL}                 // sentinel
 677 };
 678
 679 const luaL_Reg lClass_fn[] = {
 680    {"get", _edje_lua_class_fn_get},
 681    {"set", _edje_lua_class_fn_set},
 682    {"gpairs", _edje_lua_class_fn_gpairs},
 683    {"spairs", _edje_lua_class_fn_spairs},
 684    {"fpairs", _edje_lua_class_fn_fpairs},
 685    {"pairs", _edje_lua_class_fn_pairs},
 686    {"ipairs", _edje_lua_class_fn_ipairs},
 687    {NULL, NULL}                 // sentinel
 688 };
 689
 690
 691 const luaL_Reg lTimer_get[];
 692
 693 const luaL_Reg lTimer_set[];
 694
 695 const luaL_Reg lTimer_fn[];
 696
 697 const Edje_Lua_Reg mTimer = {
 698    lNil,
 699    lTimer_get,
 700    lTimer_set,
 701    lTimer_fn
 702 };
 703
 704 const Edje_Lua_Reg *cTimer[] = {
 705    &mClass,
 706    &mTimer,
 707    NULL                         // sentinel
 708 };
 709
 710 static Eina_Bool
 711 _edje_lua_timer_cb(void *data)
 712 {
 713    Edje_Lua_Timer *obj = data;
 714    lua_State *L = obj->L;
 715    int err_code;
 716    Eina_Bool res;
 717
 718    _edje_lua_get_ref(L, obj->cb);       // callback function
 719    _edje_lua_get_reg(L, obj);
 720
 721    if ((err_code = lua_pcall(L, 1, 1, 0)))
 722      {
 723         _edje_lua_error(L, err_code);
 724         return ECORE_CALLBACK_CANCEL;
 725      }
 726
 727    res = luaL_optint(L, -1, ECORE_CALLBACK_CANCEL);
 728    lua_pop(L, 1);               // -- res
 729
 730 /*
 731  if (_edje_lua_panic_here())
 732  printf("blahc\n");
 733  else
 734  lua_pop(L, 1);         // -- res
 735  */
 736    if (res == ECORE_CALLBACK_CANCEL)
 737      {
 738         // delete object
 739         _edje_lua_get_reg(L, obj);
 740         lua_pushvalue(L, -1);
 741         lua_pushstring(L, "del");
 742         lua_gettable(L, -2);
 743         lua_insert(L, -2);
 744         if ((err_code = lua_pcall(L, 1, 0, 0)))
 745           _edje_lua_error(L, err_code);
 746      }
 747    return res;
 748 }
 749
 750 static int
 751 _edje_lua_timer_get_pending(lua_State *L)
 752 {
 753    Edje_Lua_Timer *obj = _edje_lua_checkudata(L, 1, &mTimer);
 754    if (obj->et)
 755       lua_pushnumber(L, ecore_timer_pending_get(obj->et));
 756    else
 757       lua_pushnil(L);
 758    return 1;
 759 }
 760
 761 static int
 762 _edje_lua_timer_get_precision(lua_State *L)
 763 {
 764    Edje_Lua_Timer *obj = _edje_lua_checkudata(L, 1, &mTimer);
 765
 766    if (obj->et)
 767      lua_pushnumber(L, ecore_timer_precision_get());
 768    else
 769      lua_pushnil(L);
 770
 771    return 1;
 772 }
 773
 774 static int
 775 _edje_lua_timer_get_interval(lua_State *L)
 776 {
 777    Edje_Lua_Timer *obj = _edje_lua_checkudata(L, 1, &mTimer);
 778
 779    if (obj->et)
 780      lua_pushnumber(L, ecore_timer_interval_get(obj->et));
 781    else
 782      lua_pushnil(L);
 783
 784    return 1;
 785 }
 786
 787 const luaL_Reg lTimer_get[] = {
 788    {"pending", _edje_lua_timer_get_pending},
 789    {"precision", _edje_lua_timer_get_precision},
 790    {"interval", _edje_lua_timer_get_interval},
 791    {NULL, NULL}                 // sentinel
 792 };
 793
 794 static int
 795 _edje_lua_timer_set_interval(lua_State *L)
 796 {
 797    Edje_Lua_Timer *obj = _edje_lua_checkudata(L, 1, &mTimer);
 798    if (obj->et)
 799       ecore_timer_interval_set(obj->et, luaL_checknumber(L, 2));
 800    return 0;
 801 }
 802
 803 const luaL_Reg lTimer_set[] = {
 804    {"interval", _edje_lua_timer_set_interval},
 805    {NULL, NULL}                 // sentinel
 806 };
 807
 808 static int
 809 _edje_lua_timer_fn_del(lua_State *L)
 810 {
 811    Edje_Lua_Timer *obj = _edje_lua_checkudata(L, 1, &mTimer);
 812    if (obj->et)
 813      {
 814         ecore_timer_del(obj->et);
 815         obj->et = NULL;
 816      }
 817    if (obj->cb)
 818      {
 819         _edje_lua_free_ref(L, obj->cb); // created in _edje_lua_group_fn_timer
 820         obj->cb = NULL;
 821      }
 822    _edje_lua_free_reg(L, obj); // created in _edje_lua_group_fn_timer
 823    return 0;
 824 }
 825
 826 static int
 827 _edje_lua_timer_fn_freeze(lua_State *L)
 828 {
 829    Edje_Lua_Timer *obj = _edje_lua_checkudata(L, 1, &mTimer);
 830    if (obj->et)
 831       ecore_timer_freeze(obj->et);
 832    return 0;
 833 }
 834
 835 static int
 836 _edje_lua_timer_fn_thaw(lua_State *L)
 837 {
 838    Edje_Lua_Timer *obj = _edje_lua_checkudata(L, 1, &mTimer);
 839    if (obj->et)
 840       ecore_timer_thaw(obj->et);
 841    return 0;
 842 }
 843
 844 static int
 845 _edje_lua_timer_fn_delay(lua_State *L)
 846 {
 847    Edje_Lua_Timer *obj = _edje_lua_checkudata(L, 1, &mTimer);
 848    if (obj->et)
 849       ecore_timer_delay(obj->et, luaL_checknumber(L, 2));
 850    return 0;
 851 }
 852
 853 const luaL_Reg lTimer_fn[] = {
 854    {"del", _edje_lua_timer_fn_del},
 855    {"freeze", _edje_lua_timer_fn_freeze},
 856    {"thaw", _edje_lua_timer_fn_thaw},
 857    {"delay", _edje_lua_timer_fn_delay},
 858    {NULL, NULL}                 // sentinel
 859 };
 860
 861 const luaL_Reg lAnimator_get[];
 862
 863 const luaL_Reg lAnimator_fn[];
 864
 865 const Edje_Lua_Reg mAnimator = {
 866    lNil,
 867    lAnimator_get,
 868    lNil,
 869    lAnimator_fn
 870 };
 871
 872 const Edje_Lua_Reg *cAnimator[] = {
 873    &mClass,
 874    &mAnimator,
 875    NULL                         // sentinel
 876 };
 877
 878 static Eina_Bool
 879 _edje_lua_animator_cb(void *data)
 880 {
 881    Eina_Bool res;
 882    int err;
 883    Edje_Lua_Animator *obj = data;
 884    lua_State *L = obj->L;
 885
 886    _edje_lua_get_ref(L, obj->cb);
 887    _edje_lua_get_reg(L, obj);
 888
 889    if ((err = lua_pcall(L, 1, 1, 0)))
 890      {
 891         _edje_lua_error(L, err);
 892         return ECORE_CALLBACK_CANCEL;
 893      }
 894
 895    res = luaL_checkint(L, -1);
 896    lua_pop(L, 1);               // Pop res off the stack
 897    if (res == ECORE_CALLBACK_CANCEL)
 898      {
 899         /* delete animator */
 900         _edje_lua_get_reg(L, obj);
 901         lua_pushvalue(L, -1);
 902         lua_pushstring(L, "del");
 903         lua_gettable(L, -2);
 904         lua_insert(L, -2);
 905         if ((err = lua_pcall(L, 1, 0, 0)))
 906           _edje_lua_error(L, err);
 907      }
 908
 909    return res;
 910 }
 911
 912 static int
 913 _edje_lua_animator_get_frametime(lua_State *L)
 914 {
 915    Edje_Lua_Animator *obj = _edje_lua_checkudata(L, 1, &mAnimator);
 916
 917    if (obj->ea)
 918      lua_pushnumber(L, ecore_animator_frametime_get());
 919    else
 920      lua_pushnil(L);
 921
 922    return 1;
 923 }
 924
 925 const luaL_Reg lAnimator_get[] = {
 926     {"frametime", _edje_lua_animator_get_frametime},
 927     {NULL, NULL}
 928 };
 929
 930 static int
 931 _edje_lua_animator_fn_del(lua_State *L)
 932 {
 933    Edje_Lua_Animator *obj = _edje_lua_checkudata(L, 1, &mAnimator);
 934    if (obj->ea)
 935      {
 936         ecore_animator_del(obj->ea);
 937         obj->ea = NULL;
 938      }
 939    if (obj->cb)
 940      {
 941         _edje_lua_free_ref(L, obj->cb); // created in _edje_lua_group_fn_animator
 942         obj->cb = NULL;
 943      }
 944    _edje_lua_free_reg(L, obj); // created in _edje_lua_group_fn_animator
 945    return 0;
 946 }
 947
 948 const luaL_Reg lAnimator_fn[] = {
 949    {"del", _edje_lua_animator_fn_del},
 950    {NULL, NULL}                 // sentinel
 951 };
 952
 953 const luaL_Reg lPoller_get[];
 954
 955 const luaL_Reg lPoller_fn[];
 956
 957 const Edje_Lua_Reg mPoller = {
 958    lNil,
 959    lPoller_get,
 960    lNil,
 961    lPoller_fn
 962 };
 963
 964 const Edje_Lua_Reg *cPoller[] = {
 965    &mClass,
 966    &mPoller,
 967    NULL                         // sentinel
 968 };
 969
 970 static Eina_Bool
 971 _edje_lua_poller_cb(void *data)
 972 {
 973    Eina_Bool res;
 974    int err;
 975    Edje_Lua_Poller *obj = data;
 976    lua_State *L = obj->L;
 977
 978    _edje_lua_get_ref(L, obj->cb);
 979    _edje_lua_get_reg(L, obj);
 980
 981    if ((err = lua_pcall(L, 1, 1, 0)))
 982      {
 983         _edje_lua_error(L, err);
 984         return ECORE_CALLBACK_CANCEL;
 985      }
 986
 987    res = luaL_checkint(L, -1);
 988    lua_pop(L, 1);               // Pop res off the stack
 989    if (res == ECORE_CALLBACK_CANCEL)
 990      {
 991         /* delete poller */
 992         _edje_lua_get_reg(L, obj);
 993         lua_pushvalue(L, -1);
 994         lua_pushstring(L, "del");
 995         lua_gettable(L, -2);
 996         lua_insert(L, -2);
 997         if ((err = lua_pcall(L, 1, 0, 0)))
 998           _edje_lua_error(L, err);
 999      }
1000
1001    return res;
1002 }
1003
1004 static int
1005 _edje_lua_poller_get_interval(lua_State *L)
1006 {
1007    Edje_Lua_Poller *obj = _edje_lua_checkudata(L, 1, &mPoller);
1008
1009    if (obj->ep)
1010      lua_pushnumber(L, ecore_poller_poll_interval_get(ECORE_POLLER_CORE));
1011    else
1012      lua_pushnil(L);
1013
1014    return 1;
1015 }
1016
1017 const luaL_Reg lPoller_get[] = {
1018    {"interval", _edje_lua_poller_get_interval},
1019    {NULL, NULL}
1020 };
1021
1022 static int
1023 _edje_lua_poller_fn_del(lua_State *L)
1024 {
1025    Edje_Lua_Poller *obj = _edje_lua_checkudata(L, 1, &mPoller);
1026    if (obj->ep)
1027      {
1028         ecore_poller_del(obj->ep);
1029         obj->ep = NULL;
1030      }
1031
1032    if (obj->cb)
1033      {
1034         _edje_lua_free_ref(L, obj->cb); // created in _edje_lua_group_fn_poller
1035         obj->cb = NULL;
1036      }
1037    _edje_lua_free_reg(L, obj); // created in _edje_lua_group_fn_poller
1038
1039    return 0;
1040 }
1041
1042 const luaL_Reg lPoller_fn[] = {
1043    {"del", _edje_lua_poller_fn_del},
1044    {NULL, NULL}
1045 };
1046
1047 /*
1048  * Lua Edje Transform bindings
1049  */
1050
1051 const luaL_Reg lTransform_get[];
1052
1053 const luaL_Reg lTransform_set[];
1054
1055 const luaL_Reg lTransform_fn[];
1056
1057 const Edje_Lua_Reg mTransform = {
1058    lNil,
1059    lTransform_get,
1060    lTransform_set,
1061    lTransform_fn
1062 };
1063
1064 const Edje_Lua_Reg *cTransform[] = {
1065    &mClass,
1066    &mTransform,
1067    NULL                         // sentinel
1068 };
1069
1070 static int
1071 _edje_lua_transform_get_matrix(lua_State *L)
1072 {
1073    Edje_Lua_Transform *obj = _edje_lua_checkudata(L, 1, &mTransform);
1074    lua_createtable(L, 3, 0);
1075       lua_createtable(L, 3, 0);
1076          lua_pushnumber(L, obj->et.mxx); lua_rawseti(L, -2, 1);
1077          lua_pushnumber(L, obj->et.mxy); lua_rawseti(L, -2, 2);
1078          lua_pushnumber(L, obj->et.mxz); lua_rawseti(L, -2, 3);
1079       lua_rawseti(L, -2, 1);
1080       lua_createtable(L, 3, 0);
1081          lua_pushnumber(L, obj->et.myx); lua_rawseti(L, -2, 1);
1082          lua_pushnumber(L, obj->et.myy); lua_rawseti(L, -2, 2);
1083          lua_pushnumber(L, obj->et.myz); lua_rawseti(L, -2, 3);
1084       lua_rawseti(L, -2, 2);
1085       lua_createtable(L, 3, 0);
1086          lua_pushnumber(L, obj->et.mzx); lua_rawseti(L, -2, 1);
1087          lua_pushnumber(L, obj->et.mzy); lua_rawseti(L, -2, 2);
1088          lua_pushnumber(L, obj->et.mzz); lua_rawseti(L, -2, 3);
1089       lua_rawseti(L, -2, 3);
1090    return 1;
1091 }
1092
1093 const luaL_Reg lTransform_get[] = {
1094    {"matrix", _edje_lua_transform_get_matrix},
1095    {NULL, NULL}                 // sentinel
1096 };
1097
1098 static int
1099 _edje_lua_transform_set_matrix(lua_State *L)
1100 {
1101    Edje_Lua_Transform *obj = _edje_lua_checkudata(L, 1, &mTransform);
1102    luaL_checktype(L, 2, LUA_TTABLE);
1103       lua_rawgeti(L, 2, 1);
1104       luaL_checktype(L, -1, LUA_TTABLE);
1105          lua_rawgeti(L, -1, 1); obj->et.mxx = luaL_checknumber(L, -1); lua_pop(L, 1);
1106          lua_rawgeti(L, -1, 2); obj->et.mxy = luaL_checknumber(L, -1); lua_pop(L, 1);
1107          lua_rawgeti(L, -1, 3); obj->et.mxz = luaL_checknumber(L, -1); lua_pop(L, 1);
1108       lua_pop(L, 1);
1109       lua_rawgeti(L, 2, 2);
1110       luaL_checktype(L, -1, LUA_TTABLE);
1111          lua_rawgeti(L, -1, 1); obj->et.myx = luaL_checknumber(L, -1); lua_pop(L, 1);
1112          lua_rawgeti(L, -1, 2); obj->et.myy = luaL_checknumber(L, -1); lua_pop(L, 1);
1113          lua_rawgeti(L, -1, 3); obj->et.myz = luaL_checknumber(L, -1); lua_pop(L, 1);
1114       lua_pop(L, 1);
1115       lua_rawgeti(L, 2, 3);
1116       luaL_checktype(L, -1, LUA_TTABLE);
1117          lua_rawgeti(L, -1, 1); obj->et.mzx = luaL_checknumber(L, -1); lua_pop(L, 1);
1118          lua_rawgeti(L, -1, 2); obj->et.mzy = luaL_checknumber(L, -1); lua_pop(L, 1);
1119          lua_rawgeti(L, -1, 3); obj->et.mzz = luaL_checknumber(L, -1); lua_pop(L, 1);
1120       lua_pop(L, 1);
1121    return 0;
1122 }
1123
1124 const luaL_Reg lTransform_set[] = {
1125    {"matrix", _edje_lua_transform_set_matrix},
1126    {NULL, NULL}                 // sentinel
1127 };
1128
1129 static int
1130 _edje_lua_transform_fn_identity(lua_State *L)
1131 {
1132    Edje_Lua_Transform *obj = _edje_lua_checkudata(L, 1, &mTransform);
1133    evas_transform_identity_set(&(obj->et));
1134    return 0;
1135 }
1136
1137 static int
1138 _edje_lua_transform_fn_rotate(lua_State *L)
1139 {
1140    Edje_Lua_Transform *obj = _edje_lua_checkudata(L, 1, &mTransform);
1141    evas_transform_rotate(luaL_checknumber(L, 2), &(obj->et));
1142    return 0;
1143 }
1144
1145 static int
1146 _edje_lua_transform_fn_translate(lua_State *L)
1147 {
1148    Edje_Lua_Transform *obj = _edje_lua_checkudata(L, 1, &mTransform);
1149    evas_transform_translate(luaL_checknumber(L, 2), luaL_checknumber(L, 3), &(obj->et));
1150    return 0;
1151 }
1152
1153 static int
1154 _edje_lua_transform_fn_scale(lua_State *L)
1155 {
1156    Edje_Lua_Transform *obj = _edje_lua_checkudata(L, 1, &mTransform);
1157    evas_transform_scale(luaL_checknumber(L, 2), luaL_checknumber(L, 3), &(obj->et));
1158    return 0;
1159 }
1160
1161 static int
1162 _edje_lua_transform_fn_shear(lua_State *L)
1163 {
1164    Edje_Lua_Transform *obj = _edje_lua_checkudata(L, 1, &mTransform);
1165    evas_transform_shear(luaL_checknumber(L, 2), luaL_checknumber(L, 3), &(obj->et));
1166    return 0;
1167 }
1168
1169 static int
1170 _edje_lua_transform_fn_compose(lua_State *L)
1171 {
1172    Edje_Lua_Transform *obj = _edje_lua_checkudata(L, 1, &mTransform);
1173    Edje_Lua_Transform *tar = _edje_lua_checkudata(L, 2, &mTransform);
1174    evas_transform_compose(&(tar->et), &(obj->et));
1175    return 0;
1176 }
1177
1178 const luaL_Reg lTransform_fn[] = {
1179    {"identity", _edje_lua_transform_fn_identity},
1180    {"rotate", _edje_lua_transform_fn_rotate},
1181    {"translate", _edje_lua_transform_fn_translate},
1182    {"scale", _edje_lua_transform_fn_scale},
1183    {"shear", _edje_lua_transform_fn_shear},
1184    {"compose", _edje_lua_transform_fn_compose},
1185    {NULL, NULL}                 // sentinel
1186 };
1187
1188 /*
1189  * Lua Edje Transition bindings
1190  */
1191
1192 const luaL_Reg lTransition_get[];
1193
1194 const luaL_Reg lTransition_set[];
1195
1196 const luaL_Reg lTransition_fn[];
1197
1198 const Edje_Lua_Reg mTransition = {
1199    lNil,
1200    lTransition_get,
1201    lTransition_set,
1202    lTransition_fn
1203 };
1204
1205 const Edje_Lua_Reg *cTransition[] = {
1206    &mClass,
1207    &mTransition,
1208    NULL                         // sentinel
1209 };
1210
1211 const luaL_Reg lTransition_get[] = {
1212    {NULL, NULL}                 // sentinel
1213 };
1214
1215 const luaL_Reg lTransition_set[] = {
1216    {NULL, NULL}                 // sentinel
1217 };
1218
1219 const luaL_Reg lTransition_fn[] = {
1220    {NULL, NULL}                 // sentinel
1221 };
1222
1223 const luaL_Reg lObject_get[];
1224
1225 const luaL_Reg lObject_set[];
1226
1227 const luaL_Reg lObject_fn[];
1228
1229 const Edje_Lua_Reg mObject = {
1230    lNil,
1231    lObject_get,
1232    lObject_set,
1233    lObject_fn
1234 };
1235
1236 static void
1237 _edje_lua_object_del_cb(void *data, __UNUSED__ Evas * e, Evas_Object * obj, __UNUSED__ void *event_info)
1238 {
1239    //printf("_edje_lua_object_delete_cb\n");
1240    lua_State *L = data;
1241    _edje_lua_get_reg(L, obj);
1242    Edje_Lua_Evas_Object *udata = _edje_lua_checkudata(L, -1, &mObject);
1243    lua_pop(L, 1);
1244    _edje_lua_free_reg(L, udata); // created in EDJE_LUA_SCRIPT_FN_ADD
1245    _edje_lua_free_reg(L, obj); // created in EDJE_LUA_SCRIPT_FN_ADD
1246
1247    Edje_Lua_Ref *ref;
1248    EINA_LIST_FREE(udata->cb, ref)
1249       _edje_lua_free_ref(L, ref);
1250 }
1251
1252 static int
1253 _edje_lua_object_fn_del(lua_State *L)
1254 {
1255    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1256
1257    if (obj->eo)
1258      {
1259         evas_object_del(obj->eo);
1260         obj->eo = NULL;
1261         obj->ed = NULL;
1262      }
1263    return 0;
1264 }
1265
1266 static int
1267 _edje_lua_object_fn_show(lua_State *L)
1268 {
1269    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1270    evas_object_show(obj->eo);
1271    return 0;
1272 }
1273
1274 static int
1275 _edje_lua_object_fn_hide(lua_State *L)
1276 {
1277    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1278    evas_object_hide(obj->eo);
1279    return 0;
1280 }
1281
1282 static int
1283 _edje_lua_object_fn_move(lua_State *L)
1284 {
1285    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1286    //printf ("%i %i %i %i\n", obj->ed->x, obj->ed->y, luaL_checkint (L, 2), luaL_checkint (L, 3));
1287    evas_object_move(obj->eo,
1288                     obj->ed->x + luaL_checkint(L, 2),
1289                     obj->ed->y + luaL_checkint(L, 3));
1290    return 0;
1291 }
1292
1293 static int
1294 _edje_lua_object_fn_resize(lua_State *L)
1295 {
1296    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1297    evas_object_resize(obj->eo, luaL_checkint(L, 2), luaL_checkint(L, 3));
1298    return 0;
1299 }
1300
1301 static int
1302 _edje_lua_object_fn_raise(lua_State *L)
1303 {
1304    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1305    evas_object_raise(obj->eo);
1306    return 0;
1307 }
1308
1309 static int
1310 _edje_lua_object_fn_lower(lua_State *L)
1311 {
1312    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1313    evas_object_lower(obj->eo);
1314    return 0;
1315 }
1316
1317 static int
1318 _edje_lua_object_fn_stack_above(lua_State *L)
1319 {
1320    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1321    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
1322    evas_object_stack_above(obj->eo, tar->eo);
1323    return 0;
1324 }
1325
1326 static int
1327 _edje_lua_object_fn_stack_below(lua_State *L)
1328 {
1329    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1330    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
1331    evas_object_stack_below(obj->eo, tar->eo);
1332    return 0;
1333 }
1334
1335 static int
1336 _edje_lua_object_fn_clip_unset(lua_State *L)
1337 {
1338    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1339    evas_object_clip_unset(obj->eo);
1340    return 0;
1341 }
1342
1343 const luaL_Reg lObject_fn[] = {
1344    {"del", _edje_lua_object_fn_del},
1345    {"show", _edje_lua_object_fn_show},
1346    {"hide", _edje_lua_object_fn_hide},
1347    {"move", _edje_lua_object_fn_move},
1348    {"resize", _edje_lua_object_fn_resize},
1349    {"raise", _edje_lua_object_fn_raise},
1350    {"lower", _edje_lua_object_fn_lower},
1351    {"stack_above", _edje_lua_object_fn_stack_above},
1352    {"stack_below", _edje_lua_object_fn_stack_below},
1353    {"clip_unset", _edje_lua_object_fn_clip_unset},
1354    {NULL, NULL}                 // sentinel
1355 };
1356
1357 static int
1358 _edje_lua_object_get_name(lua_State *L)
1359 {
1360    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1361    lua_pushstring(L, evas_object_name_get(obj->eo));
1362    return 1;
1363 }
1364
1365 static int
1366 _edje_lua_object_get_geometry(lua_State *L)
1367 {
1368    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1369    int x, y, w, h;
1370    evas_object_geometry_get(obj->eo, &x, &y, &w, &h);
1371    lua_createtable(L, 4, 0);
1372    lua_pushnumber(L, x);
1373    lua_rawseti(L, -2, 1);
1374    lua_pushnumber(L, y);
1375    lua_rawseti(L, -2, 2);
1376    lua_pushnumber(L, w);
1377    lua_rawseti(L, -2, 3);
1378    lua_pushnumber(L, h);
1379    lua_rawseti(L, -2, 4);
1380    return 1;
1381 }
1382
1383 static int
1384 _edje_lua_object_get_type(lua_State *L)
1385 {
1386    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1387    lua_pushstring(L, evas_object_type_get(obj->eo));
1388    return 1;
1389 }
1390
1391 static int
1392 _edje_lua_object_get_layer(lua_State *L)
1393 {
1394    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1395    lua_pushnumber(L, evas_object_layer_get(obj->eo));
1396    return 1;
1397 }
1398
1399 static int
1400 _edje_lua_object_get_above(lua_State *L)
1401 {
1402    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1403    Evas_Object *above = evas_object_above_get(obj->eo);
1404    _edje_lua_get_reg(L, above);
1405    // TODO create object if it does not already exist?
1406    return 1;
1407 }
1408
1409 static int
1410 _edje_lua_object_get_below(lua_State *L)
1411 {
1412    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1413    Evas_Object *below = evas_object_below_get(obj->eo);
1414    _edje_lua_get_reg(L, below);
1415    // TODO create object if it does not already exist?
1416    return 1;
1417 }
1418
1419 static int
1420 _edje_lua_object_get_size_hint_min(lua_State *L)
1421 {
1422    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1423    int w, h;
1424    evas_object_size_hint_min_get(obj->eo, &w, &h);
1425    lua_createtable(L, 2, 0);
1426    lua_pushnumber(L, w);
1427    lua_rawseti(L, -2, 1);
1428    lua_pushnumber(L, h);
1429    lua_rawseti(L, -2, 2);
1430    return 1;
1431 }
1432
1433 static int
1434 _edje_lua_object_get_size_hint_max(lua_State *L)
1435 {
1436    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1437    int w, h;
1438    evas_object_size_hint_max_get(obj->eo, &w, &h);
1439    lua_createtable(L, 2, 0);
1440    lua_pushnumber(L, w);
1441    lua_rawseti(L, -2, 1);
1442    lua_pushnumber(L, h);
1443    lua_rawseti(L, -2, 2);
1444    return 1;
1445 }
1446
1447 static int
1448 _edje_lua_object_get_size_hint_request(lua_State *L)
1449 {
1450    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1451    int w, h;
1452    evas_object_size_hint_request_get(obj->eo, &w, &h);
1453    lua_createtable(L, 2, 0);
1454    lua_pushnumber(L, w);
1455    lua_rawseti(L, -2, 1);
1456    lua_pushnumber(L, h);
1457    lua_rawseti(L, -2, 2);
1458    return 1;
1459 }
1460
1461 static int
1462 _edje_lua_object_get_size_hint_aspect(lua_State *L)
1463 {
1464    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1465    Evas_Aspect_Control a;
1466    int w, h;
1467    evas_object_size_hint_aspect_get(obj->eo, &a, &w, &h);
1468    lua_createtable(L, 3, 0);
1469    lua_pushnumber(L, a);
1470    lua_rawseti(L, -2, 1);
1471    lua_pushnumber(L, w);
1472    lua_rawseti(L, -2, 2);
1473    lua_pushnumber(L, h);
1474    lua_rawseti(L, -2, 3);
1475    return 1;
1476 }
1477
1478 static int
1479 _edje_lua_object_get_size_hint_align(lua_State *L)
1480 {
1481    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1482    double w, h;
1483    evas_object_size_hint_align_get(obj->eo, &w, &h);
1484    lua_createtable(L, 2, 0);
1485    lua_pushnumber(L, w);
1486    lua_rawseti(L, -2, 1);
1487    lua_pushnumber(L, h);
1488    lua_rawseti(L, -2, 2);
1489    return 1;
1490 }
1491
1492 static int
1493 _edje_lua_object_get_size_hint_weight(lua_State *L)
1494 {
1495    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1496    double w, h;
1497    evas_object_size_hint_weight_get(obj->eo, &w, &h);
1498    lua_createtable(L, 2, 0);
1499    lua_pushnumber(L, w);
1500    lua_rawseti(L, -2, 1);
1501    lua_pushnumber(L, h);
1502    lua_rawseti(L, -2, 2);
1503    return 1;
1504 }
1505
1506 static int
1507 _edje_lua_object_get_size_hint_padding(lua_State *L)
1508 {
1509    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1510    int l, r, t, b;
1511    evas_object_size_hint_padding_get(obj->eo, &l, &r, &t, &b);
1512    lua_createtable(L, 4, 0);
1513    lua_pushnumber(L, l);
1514    lua_rawseti(L, -2, 1);
1515    lua_pushnumber(L, r);
1516    lua_rawseti(L, -2, 2);
1517    lua_pushnumber(L, t);
1518    lua_rawseti(L, -2, 3);
1519    lua_pushnumber(L, b);
1520    lua_rawseti(L, -2, 4);
1521    return 1;
1522 }
1523
1524 static int
1525 _edje_lua_object_get_visible(lua_State *L)
1526 {
1527    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1528    lua_pushboolean(L, evas_object_visible_get(obj->eo));
1529    return 1;
1530 }
1531
1532 static int
1533 _edje_lua_object_get_render_op(lua_State *L)
1534 {
1535    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1536    lua_pushnumber(L, evas_object_render_op_get(obj->eo));
1537    return 1;
1538 }
1539
1540 static int
1541 _edje_lua_object_get_anti_alias(lua_State *L)
1542 {
1543    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1544    lua_pushboolean(L, evas_object_anti_alias_get(obj->eo));
1545    return 1;
1546 }
1547
1548 static int
1549 _edje_lua_object_get_scale(lua_State *L)
1550 {
1551    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1552    lua_pushnumber(L, evas_object_scale_get(obj->eo));
1553    return 1;
1554 }
1555
1556 static int
1557 _edje_lua_object_get_color(lua_State *L)
1558 {
1559    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1560    int r, g, b, a;
1561    evas_object_color_get(obj->eo, &r, &g, &b, &a);
1562    lua_createtable(L, 4, 0);
1563    lua_pushnumber(L, r);
1564    lua_rawseti(L, -2, 1);
1565    lua_pushnumber(L, g);
1566    lua_rawseti(L, -2, 2);
1567    lua_pushnumber(L, b);
1568    lua_rawseti(L, -2, 3);
1569    lua_pushnumber(L, a);
1570    lua_rawseti(L, -2, 4);
1571    return 1;
1572 }
1573
1574 static int
1575 _edje_lua_object_get_color_interpolation(lua_State *L)
1576 {
1577    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1578    lua_pushnumber(L, evas_object_color_interpolation_get(obj->eo));
1579    return 1;
1580 }
1581
1582 static int
1583 _edje_lua_object_get_clip(lua_State *L)
1584 {
1585    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1586    Evas_Object *clip = evas_object_clip_get(obj->eo);
1587    _edje_lua_get_reg(L, clip);
1588    // TODO create object if it does not already exist?
1589    return 1;
1590 }
1591
1592 static int
1593 _edje_lua_object_get_clipees(lua_State *L)
1594 {
1595    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1596    Eina_List *clipees = (Eina_List *) evas_object_clipees_get(obj->eo);
1597    Eina_List *l;
1598    Evas_Object *clip;
1599    int i = 1;
1600    lua_createtable(L, eina_list_count(clipees), 0);
1601    EINA_LIST_FOREACH(clipees, l, clip)
1602      {
1603         _edje_lua_get_reg(L, clip);
1604         // TODO create object if it does not already exist?
1605         lua_rawseti(L, -2, i++);
1606      }
1607    return 1;
1608 }
1609
1610 static int
1611 _edje_lua_object_get_evas(lua_State *L)
1612 {
1613    //Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1614    lua_pushnil(L);
1615    // FIXME implement Evas class in the first place?
1616    return 1;
1617 }
1618
1619 static int
1620 _edje_lua_object_get_pass_events(lua_State *L)
1621 {
1622    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1623    lua_pushboolean(L, evas_object_pass_events_get(obj->eo));
1624    return 1;
1625 }
1626
1627 static int
1628 _edje_lua_object_get_repeat_events(lua_State *L)
1629 {
1630    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1631    lua_pushboolean(L, evas_object_repeat_events_get(obj->eo));
1632    return 1;
1633 }
1634
1635 static int
1636 _edje_lua_object_get_propagate_events(lua_State *L)
1637 {
1638    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1639    lua_pushboolean(L, evas_object_propagate_events_get(obj->eo));
1640    return 1;
1641 }
1642
1643 static int
1644 _edje_lua_object_get_focus(lua_State *L)
1645 {
1646    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1647    lua_pushboolean(L, evas_object_focus_get(obj->eo));
1648    return 1;
1649 }
1650
1651 static int
1652 _edje_lua_object_get_pointer_mode(lua_State *L)
1653 {
1654    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1655    lua_pushnumber(L, evas_object_pointer_mode_get(obj->eo));
1656    return 1;
1657 }
1658
1659 static int
1660 _edje_lua_object_get_precise_is_inside(lua_State *L)
1661 {
1662    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1663    lua_pushboolean(L, evas_object_precise_is_inside_get(obj->eo));
1664    return 1;
1665 }
1666
1667 static int
1668 _edje_lua_object_get_mouse_events(lua_State *L)
1669 {
1670    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1671    lua_pushboolean(L, obj->mouse_events);
1672    return 1;
1673 }
1674
1675 const luaL_Reg lObject_get[] = {
1676    {"name", _edje_lua_object_get_name},
1677    {"geometry", _edje_lua_object_get_geometry},
1678    {"type", _edje_lua_object_get_type},
1679    {"layer", _edje_lua_object_get_layer},
1680    {"above", _edje_lua_object_get_above},
1681    {"below", _edje_lua_object_get_below},
1682    {"size_hint_min", _edje_lua_object_get_size_hint_min},
1683    {"size_hint_max", _edje_lua_object_get_size_hint_max},
1684    {"size_hint_request", _edje_lua_object_get_size_hint_request},
1685    {"size_hint_aspect", _edje_lua_object_get_size_hint_aspect},
1686    {"size_hint_align", _edje_lua_object_get_size_hint_align},
1687    {"size_hint_weight", _edje_lua_object_get_size_hint_weight},
1688    {"size_hint_padding", _edje_lua_object_get_size_hint_padding},
1689    {"visible", _edje_lua_object_get_visible},
1690    {"render_op", _edje_lua_object_get_render_op},
1691    {"anti_alias", _edje_lua_object_get_anti_alias},
1692    {"scale", _edje_lua_object_get_scale},
1693    {"color", _edje_lua_object_get_color},
1694    {"color_interpolation", _edje_lua_object_get_color_interpolation},
1695    {"clip", _edje_lua_object_get_clip},
1696    {"clipees", _edje_lua_object_get_clipees},
1697    {"evas", _edje_lua_object_get_evas},
1698    {"pass_events", _edje_lua_object_get_pass_events},
1699    {"repeat_events", _edje_lua_object_get_repeat_events},
1700    {"propagate_events", _edje_lua_object_get_propagate_events},
1701    {"focus", _edje_lua_object_get_focus},
1702    {"pointer_mode", _edje_lua_object_get_pointer_mode},
1703    {"precise_is_inside", _edje_lua_object_get_precise_is_inside},
1704    {"mouse_events", _edje_lua_object_get_mouse_events},
1705    {NULL, NULL}                 // sentinel
1706 };
1707
1708 static int
1709 _edje_lua_object_set_name(lua_State *L)
1710 {
1711    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1712    evas_object_name_set(obj->eo, luaL_checkstring(L, 2));
1713    return 0;
1714 }
1715
1716 static int
1717 _edje_lua_object_set_layer(lua_State *L)
1718 {
1719    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1720    evas_object_layer_set(obj->eo, luaL_checkint(L, 2));
1721    return 0;
1722 }
1723
1724 static int
1725 _edje_lua_object_set_size_hint_min(lua_State *L)
1726 {
1727    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1728    luaL_checktype(L, 2, LUA_TTABLE);
1729    lua_rawgeti(L, 2, 1);
1730    lua_rawgeti(L, 2, 2);
1731    evas_object_size_hint_min_set(obj->eo,
1732          luaL_checkint(L, -2),
1733          luaL_checkint(L, -1));
1734    return 0;
1735 }
1736
1737 static int
1738 _edje_lua_object_set_size_hint_max(lua_State *L)
1739 {
1740    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1741    luaL_checktype(L, 2, LUA_TTABLE);
1742    lua_rawgeti(L, 2, 1);
1743    lua_rawgeti(L, 2, 2);
1744    evas_object_size_hint_max_set(obj->eo,
1745          luaL_checkint(L, -2),
1746          luaL_checkint(L, -1));
1747    return 0;
1748 }
1749
1750 static int
1751 _edje_lua_object_set_size_hint_request(lua_State *L)
1752 {
1753    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1754    luaL_checktype(L, 2, LUA_TTABLE);
1755    lua_rawgeti(L, 2, 1);
1756    lua_rawgeti(L, 2, 2);
1757    evas_object_size_hint_request_set(obj->eo,
1758          luaL_checkint(L, -2),
1759          luaL_checkint(L, -1));
1760    return 0;
1761 }
1762
1763 static int
1764 _edje_lua_object_set_size_hint_aspect(lua_State *L)
1765 {
1766    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1767    luaL_checktype(L, 2, LUA_TTABLE);
1768    lua_rawgeti(L, 2, 1);
1769    lua_rawgeti(L, 2, 2);
1770    lua_rawgeti(L, 2, 3);
1771    evas_object_size_hint_aspect_set(obj->eo,
1772          luaL_checkint(L, -3),
1773          luaL_checkint(L, -2),
1774          luaL_checkint(L, -1));
1775    return 0;
1776 }
1777
1778 static int
1779 _edje_lua_object_set_size_hint_align(lua_State *L)
1780 {
1781    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1782    luaL_checktype(L, 2, LUA_TTABLE);
1783    lua_rawgeti(L, 2, 1);
1784    lua_rawgeti(L, 2, 2);
1785    evas_object_size_hint_align_set(obj->eo,
1786          luaL_checknumber(L, -2),
1787          luaL_checknumber(L, -1));
1788    return 0;
1789 }
1790
1791 static int
1792 _edje_lua_object_set_size_hint_weight(lua_State *L)
1793 {
1794    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1795    luaL_checktype(L, 2, LUA_TTABLE);
1796    lua_rawgeti(L, 2, 1);
1797    lua_rawgeti(L, 2, 2);
1798    evas_object_size_hint_weight_set(obj->eo,
1799          luaL_checknumber(L, -2),
1800          luaL_checknumber(L, -1));
1801    return 0;
1802 }
1803
1804 static int
1805 _edje_lua_object_set_size_hint_padding(lua_State *L)
1806 {
1807    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1808    luaL_checktype(L, 2, LUA_TTABLE);
1809    lua_rawgeti(L, 2, 1);
1810    lua_rawgeti(L, 2, 2);
1811    lua_rawgeti(L, 2, 3);
1812    lua_rawgeti(L, 2, 4);
1813    evas_object_size_hint_padding_set(obj->eo,
1814          luaL_checknumber(L, -4),
1815          luaL_checknumber(L, -3),
1816          luaL_checknumber(L, -2),
1817          luaL_checknumber(L, -1));
1818    return 0;
1819 }
1820
1821 static int
1822 _edje_lua_object_set_render_op(lua_State *L)
1823 {
1824    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1825    evas_object_render_op_set(obj->eo, luaL_checkint(L, 2));
1826    return 0;
1827 }
1828
1829 static int
1830 _edje_lua_object_set_anti_alias(lua_State *L)
1831 {
1832    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1833    evas_object_anti_alias_set(obj->eo, lua_toboolean(L, 2));
1834    return 0;
1835 }
1836
1837 static int
1838 _edje_lua_object_set_scale(lua_State *L)
1839 {
1840    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1841    evas_object_scale_set(obj->eo, luaL_checknumber(L, 2));
1842    return 0;
1843 }
1844
1845 static int
1846 _edje_lua_object_set_color(lua_State *L)
1847 {
1848    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1849    luaL_checktype(L, 2, LUA_TTABLE);
1850    lua_rawgeti(L, 2, 1);
1851    lua_rawgeti(L, 2, 2);
1852    lua_rawgeti(L, 2, 3);
1853    lua_rawgeti(L, 2, 4);
1854    evas_object_color_set(obj->eo,
1855          luaL_checkint(L, -4),
1856          luaL_checkint(L, -3),
1857          luaL_checkint(L, -2),
1858          luaL_checkint(L, -1));
1859    return 0;
1860 }
1861
1862 static int
1863 _edje_lua_object_set_color_interpolation(lua_State *L)
1864 {
1865    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1866    evas_object_color_interpolation_set(obj->eo, luaL_checkint(L, 2));
1867    return 0;
1868 }
1869
1870 static int
1871 _edje_lua_object_set_clip(lua_State *L)
1872 {
1873    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1874    Edje_Lua_Evas_Object *clip = _edje_lua_checkudata(L, 2, &mObject);
1875    evas_object_clip_set(obj->eo, clip->eo);
1876    return 0;
1877 }
1878
1879 static int
1880 _edje_lua_object_set_pass_events(lua_State *L)
1881 {
1882    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1883    evas_object_pass_events_set(obj->eo, lua_toboolean(L, 2));
1884    return 0;
1885 }
1886
1887 static int
1888 _edje_lua_object_set_repeat_events(lua_State *L)
1889 {
1890    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1891    evas_object_repeat_events_set(obj->eo, lua_toboolean(L, 2));
1892    return 0;
1893 }
1894
1895 static int
1896 _edje_lua_object_set_propagate_events(lua_State *L)
1897 {
1898    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1899    evas_object_propagate_events_set(obj->eo, lua_toboolean(L, 2));
1900    return 0;
1901 }
1902
1903 static int
1904 _edje_lua_object_set_focus(lua_State *L)
1905 {
1906    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1907    evas_object_focus_set(obj->eo, lua_toboolean(L, 2));
1908    return 0;
1909 }
1910
1911 static int
1912 _edje_lua_object_set_pointer_mode(lua_State *L)
1913 {
1914    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1915    evas_object_pointer_mode_set(obj->eo, luaL_checkint(L, 2));
1916    return 0;
1917 }
1918
1919 static int
1920 _edje_lua_object_set_precise_is_inside(lua_State *L)
1921 {
1922    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
1923    evas_object_precise_is_inside_set(obj->eo, lua_toboolean(L, 2));
1924    return 0;
1925 }
1926
1927 #define OBJECT_CB_MACRO(KEY) \
1928    lua_State *L = data; \
1929    _edje_lua_get_reg(L, obj); \
1930    lua_getfield(L, -1, KEY); \
1931    if (lua_type(L, -1) != LUA_TFUNCTION) \
1932       { \
1933          lua_pop(L, 2); \
1934          return; \
1935       } \
1936    lua_insert(L, -2);
1937
1938 static void
1939 _edje_lua_object_cb_mouse_in(void *data, __UNUSED__ Evas * e, Evas_Object * obj,
1940                              void *event_info)
1941 {
1942    OBJECT_CB_MACRO("mouse_in");
1943    Evas_Event_Mouse_In * ev = event_info;
1944    int err_code;
1945
1946    lua_pushnumber(L, ev->output.x);
1947    lua_pushnumber(L, ev->output.y);
1948    lua_pushnumber(L, ev->canvas.x);
1949    lua_pushnumber(L, ev->canvas.y);
1950
1951    if ((err_code = lua_pcall(L, 5, 0, 0)))
1952      _edje_lua_error(L, err_code);
1953 }
1954
1955 static void
1956 _edje_lua_object_cb_mouse_out(void *data, __UNUSED__ Evas * e, Evas_Object * obj,
1957                               void *event_info)
1958 {
1959    OBJECT_CB_MACRO("mouse_out");
1960    Evas_Event_Mouse_In * ev = event_info;
1961    int err_code;
1962
1963    lua_pushnumber(L, ev->output.x);
1964    lua_pushnumber(L, ev->output.y);
1965    lua_pushnumber(L, ev->canvas.x);
1966    lua_pushnumber(L, ev->canvas.y);
1967
1968    if ((err_code = lua_pcall(L, 5, 0, 0)))
1969      _edje_lua_error(L, err_code);
1970 }
1971
1972 static void
1973 _edje_lua_object_cb_mouse_down(void *data, __UNUSED__ Evas * e, Evas_Object * obj,
1974                                void *event_info)
1975 {
1976    OBJECT_CB_MACRO("mouse_down");
1977    Evas_Event_Mouse_Down * ev = event_info;
1978    int err_code;
1979
1980    lua_pushnumber(L, ev->button);
1981    lua_pushnumber(L, ev->output.x);
1982    lua_pushnumber(L, ev->output.y);
1983    lua_pushnumber(L, ev->canvas.x);
1984    lua_pushnumber(L, ev->canvas.y);
1985
1986    if ((err_code = lua_pcall(L, 6, 0, 0)))
1987      _edje_lua_error(L, err_code);
1988 }
1989
1990 static void
1991 _edje_lua_object_cb_mouse_up(void *data, __UNUSED__ Evas * e, Evas_Object * obj,
1992                              void *event_info)
1993 {
1994    OBJECT_CB_MACRO("mouse_up");
1995    Evas_Event_Mouse_Up * ev = event_info;
1996    int err_code;
1997
1998    lua_pushnumber(L, ev->button);
1999    lua_pushnumber(L, ev->output.x);
2000    lua_pushnumber(L, ev->output.y);
2001    lua_pushnumber(L, ev->canvas.x);
2002    lua_pushnumber(L, ev->canvas.y);
2003
2004    if ((err_code = lua_pcall(L, 6, 0, 0)))
2005      _edje_lua_error(L, err_code);
2006 }
2007
2008 static void
2009 _edje_lua_object_cb_mouse_move(void *data, __UNUSED__ Evas * e, Evas_Object * obj,
2010                                void *event_info)
2011 {
2012    OBJECT_CB_MACRO("mouse_move");
2013    Evas_Event_Mouse_Move * ev = event_info;
2014    int err_code;
2015
2016    lua_pushnumber(L, ev->buttons);
2017    lua_pushnumber(L, ev->cur.output.x);
2018    lua_pushnumber(L, ev->cur.output.y);
2019    lua_pushnumber(L, ev->cur.canvas.x);
2020    lua_pushnumber(L, ev->cur.canvas.y);
2021
2022    if ((err_code = lua_pcall(L, 6, 0, 0)))
2023      _edje_lua_error(L, err_code);
2024 }
2025
2026 static void
2027 _edje_lua_object_cb_mouse_wheel(void *data, __UNUSED__ Evas * e, Evas_Object * obj,
2028                                void *event_info)
2029 {
2030    OBJECT_CB_MACRO("mouse_wheel");
2031    Evas_Event_Mouse_Wheel * ev = event_info;
2032    int err_code;
2033
2034    lua_pushnumber(L, ev->z);
2035    lua_pushnumber(L, ev->output.x);
2036    lua_pushnumber(L, ev->output.y);
2037    lua_pushnumber(L, ev->canvas.x);
2038    lua_pushnumber(L, ev->canvas.y);
2039
2040    if ((err_code = lua_pcall(L, 6, 0, 0)))
2041      _edje_lua_error(L, err_code);
2042 }
2043
2044 static int
2045 _edje_lua_object_set_mouse_events(lua_State *L)
2046 {
2047    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
2048    obj->mouse_events = lua_toboolean(L, 2);
2049    if (obj->mouse_events)
2050      {
2051         // add all mouse events
2052         evas_object_event_callback_add(obj->eo, EVAS_CALLBACK_MOUSE_IN, _edje_lua_object_cb_mouse_in, L);
2053         evas_object_event_callback_add(obj->eo, EVAS_CALLBACK_MOUSE_OUT, _edje_lua_object_cb_mouse_out, L);
2054         evas_object_event_callback_add(obj->eo, EVAS_CALLBACK_MOUSE_DOWN, _edje_lua_object_cb_mouse_down, L);
2055         evas_object_event_callback_add(obj->eo, EVAS_CALLBACK_MOUSE_UP, _edje_lua_object_cb_mouse_up, L);
2056         evas_object_event_callback_add(obj->eo, EVAS_CALLBACK_MOUSE_MOVE, _edje_lua_object_cb_mouse_move, L);
2057         evas_object_event_callback_add(obj->eo, EVAS_CALLBACK_MOUSE_WHEEL, _edje_lua_object_cb_mouse_wheel, L);
2058      }
2059    else
2060      {
2061         // delete all mouse events
2062         evas_object_event_callback_del(obj->eo, EVAS_CALLBACK_MOUSE_IN, _edje_lua_object_cb_mouse_in);
2063         evas_object_event_callback_del(obj->eo, EVAS_CALLBACK_MOUSE_OUT, _edje_lua_object_cb_mouse_out);
2064         evas_object_event_callback_del(obj->eo, EVAS_CALLBACK_MOUSE_DOWN, _edje_lua_object_cb_mouse_down);
2065         evas_object_event_callback_del(obj->eo, EVAS_CALLBACK_MOUSE_UP, _edje_lua_object_cb_mouse_up);
2066         evas_object_event_callback_del(obj->eo, EVAS_CALLBACK_MOUSE_MOVE, _edje_lua_object_cb_mouse_move);
2067         evas_object_event_callback_del(obj->eo, EVAS_CALLBACK_MOUSE_WHEEL, _edje_lua_object_cb_mouse_wheel);
2068      }
2069    return 0;
2070 }
2071
2072 const luaL_Reg lObject_set[] = {
2073    {"name", _edje_lua_object_set_name},
2074    {"layer", _edje_lua_object_set_layer},
2075    {"size_hint_min", _edje_lua_object_set_size_hint_min},
2076    {"size_hint_max", _edje_lua_object_set_size_hint_max},
2077    {"size_hint_request", _edje_lua_object_set_size_hint_request},
2078    {"size_hint_aspect", _edje_lua_object_set_size_hint_aspect},
2079    {"size_hint_align", _edje_lua_object_set_size_hint_align},
2080    {"size_hint_weight", _edje_lua_object_set_size_hint_weight},
2081    {"size_hint_padding", _edje_lua_object_set_size_hint_padding},
2082    {"render_op", _edje_lua_object_set_render_op},
2083    {"anti_alias", _edje_lua_object_set_anti_alias},
2084    {"scale", _edje_lua_object_set_scale},
2085    {"color", _edje_lua_object_set_color},
2086    {"color_interpolation", _edje_lua_object_set_color_interpolation},
2087    {"clip", _edje_lua_object_set_clip},
2088    {"pass_events", _edje_lua_object_set_pass_events},
2089    {"repeat_events", _edje_lua_object_set_repeat_events},
2090    {"propagate_events", _edje_lua_object_set_propagate_events},
2091    {"focus", _edje_lua_object_set_focus},
2092    {"pointer_mode", _edje_lua_object_get_pointer_mode},
2093    {"precise_is_inside", _edje_lua_object_get_precise_is_inside},
2094    {"mouse_events", _edje_lua_object_set_mouse_events},
2095    {NULL, NULL}                 // sentinel
2096 };
2097
2098 const Edje_Lua_Reg *cRectangle[] = {
2099    &mClass,
2100    &mObject,
2101    NULL                         // sentinel
2102 };
2103
2104 const luaL_Reg lImage_get[];
2105
2106 const luaL_Reg lImage_set[];
2107
2108 const Edje_Lua_Reg mImage = {
2109    lNil,
2110    lImage_get,
2111    lImage_set,
2112    lNil
2113 };
2114
2115 const Edje_Lua_Reg *cImage[] = {
2116    &mClass,
2117    &mObject,
2118    &mImage,
2119    NULL                         // sentinel
2120 };
2121
2122 static int
2123 _edje_lua_image_get_size(lua_State *L)
2124 {
2125    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mImage);
2126    int w, h;
2127    evas_object_image_size_get(obj->eo, &w, &h);
2128    lua_createtable(L, 2, 0);
2129    lua_pushnumber(L, w);
2130    lua_rawseti(L, -2, 1);
2131    lua_pushnumber(L, h);
2132    lua_rawseti(L, -2, 2);
2133    return 1;
2134 };
2135
2136 const luaL_Reg lImage_get[] = {
2137    {"size", _edje_lua_image_get_size},
2138    {NULL, NULL}                 // sentinel
2139 };
2140
2141 static int
2142 _edje_lua_image_set_file(lua_State *L)
2143 {
2144    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mImage);
2145    int id = edje_edit_image_id_get(obj->ed->obj, luaL_checkstring(L, 2));
2146    char buf[256];
2147    sprintf(buf, "edje/images/%i", id);
2148    evas_object_image_file_set(obj->eo, obj->ed->path, buf);
2149    return 0;
2150 }
2151
2152 static int
2153 _edje_lua_image_set_fill(lua_State *L)
2154 {
2155    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mImage);
2156    luaL_checktype(L, 2, LUA_TTABLE);
2157    lua_rawgeti(L, 2, 1);
2158    lua_rawgeti(L, 2, 2);
2159    lua_rawgeti(L, 2, 3);
2160    lua_rawgeti(L, 2, 4);
2161    evas_object_image_fill_set(obj->eo,
2162                               luaL_checkint(L, -4),
2163                               luaL_checkint(L, -3),
2164                               luaL_checkint(L, -2), luaL_checkint(L, -1));
2165    return 0;
2166 }
2167
2168 static int
2169 _edje_lua_image_set_fill_transform(lua_State *L)
2170 {
2171    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mImage);
2172    Edje_Lua_Transform *tar = _edje_lua_checkudata(L, 2, &mTransform);
2173    evas_object_image_fill_transform_set(obj->eo, &(tar->et));
2174    return 0;
2175 }
2176
2177 static int
2178 _edje_lua_image_set_alpha(lua_State *L)
2179 {
2180    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mObject);
2181    evas_object_image_alpha_set(obj->eo, lua_toboolean(L, 2));
2182    return 0;
2183 }
2184
2185 const luaL_Reg lImage_set[] = {
2186    {"file", _edje_lua_image_set_file},
2187    {"fill", _edje_lua_image_set_fill},
2188    {"fill_transform", _edje_lua_image_set_fill_transform},
2189    {"alpha", _edje_lua_image_set_alpha},
2190    {NULL, NULL}                 // sentinel
2191 };
2192
2193 const luaL_Reg lLine_get[];
2194 const luaL_Reg lLine_set[];
2195
2196 const Edje_Lua_Reg mLine = {
2197    lNil,
2198    lLine_get,
2199    lLine_set,
2200    lNil
2201 };
2202
2203 const Edje_Lua_Reg *cLine[] = {
2204    &mClass,
2205    &mObject,
2206    &mLine,
2207    NULL                         // sentinel
2208 };
2209
2210 static int
2211 _edje_lua_line_get_xy(lua_State *L)
2212 {
2213    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mLine);
2214    int x1, y1, x2, y2;
2215    evas_object_line_xy_get(obj->eo, &x1, &y1, &x2, &y2);
2216    lua_createtable(L, 4, 0);
2217    lua_pushnumber(L, x1); lua_rawseti(L, -2, 1);
2218    lua_pushnumber(L, y1); lua_rawseti(L, -2, 2);
2219    lua_pushnumber(L, x2); lua_rawseti(L, -2, 3);
2220    lua_pushnumber(L, y2); lua_rawseti(L, -2, 4);
2221    return 1;
2222 }
2223
2224 const luaL_Reg lLine_get[] = {
2225    {"xy", _edje_lua_line_get_xy},
2226    {NULL, NULL}                 // sentinel
2227 };
2228
2229 static int
2230 _edje_lua_line_set_xy(lua_State *L)
2231 {
2232    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mLine);
2233    luaL_checktype(L, 2, LUA_TTABLE);
2234    lua_rawgeti(L, 2, 1);
2235    lua_rawgeti(L, 2, 2);
2236    lua_rawgeti(L, 2, 3);
2237    lua_rawgeti(L, 2, 4);
2238    evas_object_line_xy_set(obj->eo,
2239                            luaL_checkint(L, -4),
2240                            luaL_checkint(L, -3),
2241                            luaL_checkint(L, -2),
2242                            luaL_checkint(L, -1));
2243    return 0;
2244 }
2245
2246 const luaL_Reg lLine_set[] = {
2247    {"xy", _edje_lua_line_set_xy},
2248    {NULL, NULL}                 // sentinel
2249 };
2250
2251 const luaL_Reg lPolygon_fn[];
2252
2253 const Edje_Lua_Reg mPolygon = {
2254    lNil,
2255    lNil,
2256    lNil,
2257    lPolygon_fn
2258 };
2259
2260 const Edje_Lua_Reg *cPolygon[] = {
2261    &mClass,
2262    &mObject,
2263    &mPolygon,
2264    NULL                         // sentinel
2265 };
2266
2267 static int
2268 _edje_lua_polygon_fn_point_add(lua_State *L)
2269 {
2270    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mPolygon);
2271    evas_object_polygon_point_add(obj->eo,
2272                                  luaL_checknumber(L, 2),
2273                                  luaL_checknumber(L, 3));
2274    return 0;
2275 }
2276
2277 static int
2278 _edje_lua_polygon_fn_points_clear(lua_State *L)
2279 {
2280    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mPolygon);
2281    evas_object_polygon_points_clear(obj->eo);
2282    return 0;
2283 }
2284
2285 const luaL_Reg lPolygon_fn[] = {
2286    {"point_add", _edje_lua_polygon_fn_point_add},
2287    {"points_clear", _edje_lua_polygon_fn_points_clear},
2288    {NULL, NULL}                 // sentinel
2289 };
2290
2291 const luaL_Reg lTable_get[];
2292
2293 const luaL_Reg lTable_set[];
2294
2295 const luaL_Reg lTable_fn[];
2296
2297 const Edje_Lua_Reg mTable = {
2298    lNil,
2299    lTable_get,
2300    lTable_set,
2301    lTable_fn
2302 };
2303
2304 const Edje_Lua_Reg *cTable[] = {
2305    &mClass,
2306    &mObject,
2307    &mTable,
2308    NULL                         // sentinel
2309 };
2310
2311 static int
2312 _edje_lua_table_get_homogeneous(lua_State *L)
2313 {
2314    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2315    lua_pushnumber(L, evas_object_table_homogeneous_get(obj->eo));
2316    return 1;
2317 }
2318
2319 static int
2320 _edje_lua_table_get_padding(lua_State *L)
2321 {
2322    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2323    int x, y;
2324    evas_object_table_padding_get(obj->eo, &x, &y);
2325    lua_createtable(L, 2, 0);
2326    lua_pushnumber(L, x);
2327    lua_rawseti(L, -2, 1);
2328    lua_pushnumber(L, y);
2329    lua_rawseti(L, -2, 2);
2330    return 1;
2331 }
2332
2333 static int
2334 _edje_lua_table_get_align(lua_State *L)
2335 {
2336    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2337    double x, y;
2338    evas_object_table_align_get(obj->eo, &x, &y);
2339    lua_createtable(L, 2, 0);
2340    lua_pushnumber(L, x);
2341    lua_rawseti(L, -2, 1);
2342    lua_pushnumber(L, y);
2343    lua_rawseti(L, -2, 2);
2344    return 1;
2345 }
2346
2347 static int
2348 _edje_lua_table_get_col_row_size(lua_State *L)
2349 {
2350    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2351    int x, y;
2352    evas_object_table_col_row_size_get(obj->eo, &x, &y);
2353    lua_createtable(L, 2, 0);
2354    lua_pushnumber(L, x);
2355    lua_rawseti(L, -2, 1);
2356    lua_pushnumber(L, y);
2357    lua_rawseti(L, -2, 2);
2358    return 1;
2359 }
2360
2361 static int
2362 _edje_lua_table_get_children(lua_State *L)
2363 {
2364    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2365    Eina_List *children = (Eina_List *) evas_object_table_children_get(obj->eo);
2366    Eina_List *l;
2367    Evas_Object *child;
2368    int i = 1;
2369    lua_createtable(L, eina_list_count(children), 0);
2370    EINA_LIST_FOREACH(children, l, child)
2371      {
2372         _edje_lua_get_reg(L, child);
2373         // TODO create object if it does not already exist?
2374         lua_rawseti(L, -2, i++);
2375      }
2376    return 1;
2377 }
2378
2379 const luaL_Reg lTable_get[] = {
2380    {"homogeneous", _edje_lua_table_get_homogeneous},
2381    {"padding", _edje_lua_table_get_padding},
2382    {"align", _edje_lua_table_get_align},
2383    {"col_row_size", _edje_lua_table_get_col_row_size},
2384    {"children", _edje_lua_table_get_children},
2385    {NULL, NULL}                 // sentinel
2386 };
2387
2388 static int
2389 _edje_lua_table_set_homogeneous(lua_State *L)
2390 {
2391    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2392    evas_object_table_homogeneous_set(obj->eo,
2393          luaL_checkint(L, 2));
2394    return 0;
2395 }
2396
2397 static int
2398 _edje_lua_table_set_padding(lua_State *L)
2399 {
2400    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2401    luaL_checktype(L, 2, LUA_TTABLE);
2402    lua_rawgeti(L, 2, 1);
2403    lua_rawgeti(L, 2, 2);
2404    evas_object_table_padding_set(obj->eo,
2405          luaL_checkint(L, -2),
2406          luaL_checkint(L, -1));
2407    return 0;
2408 }
2409
2410 static int
2411 _edje_lua_table_set_align(lua_State *L)
2412 {
2413    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2414    luaL_checktype(L, 2, LUA_TTABLE);
2415    lua_rawgeti(L, 2, 1);
2416    lua_rawgeti(L, 2, 2);
2417    evas_object_table_align_set(obj->eo,
2418          luaL_checknumber(L, -2),
2419          luaL_checknumber(L, -1));
2420    return 0;
2421 }
2422
2423 const luaL_Reg lTable_set[] = {
2424    {"homogeneous", _edje_lua_table_set_homogeneous},
2425    {"padding", _edje_lua_table_set_padding},
2426    {"align", _edje_lua_table_set_align},
2427    {NULL, NULL}                 // sentinel
2428 };
2429
2430 static int
2431 _edje_lua_table_fn_pack(lua_State *L)
2432 {
2433    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2434    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
2435    lua_pushboolean(L,
2436          evas_object_table_pack(obj->eo, tar->eo,
2437             luaL_checkint(L, 3),
2438             luaL_checkint(L, 4),
2439             luaL_checkint(L, 5),
2440             luaL_checkint(L, 6)));
2441    return 1;
2442 }
2443
2444 static int
2445 _edje_lua_table_fn_unpack(lua_State *L)
2446 {
2447    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2448    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
2449    lua_pushboolean(L,
2450          evas_object_table_unpack(obj->eo, tar->eo));
2451    return 1;
2452 }
2453
2454 static int
2455 _edje_lua_table_fn_clear(lua_State *L)
2456 {
2457    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mTable);
2458    evas_object_table_clear(obj->eo, lua_toboolean(L, 2));
2459    return 0;
2460 }
2461
2462 const luaL_Reg lTable_fn[] = {
2463    {"pack", _edje_lua_table_fn_pack},
2464    {"unpack", _edje_lua_table_fn_unpack},
2465    {"clear", _edje_lua_table_fn_clear},
2466    {NULL, NULL}                 // sentinel
2467 };
2468
2469 const luaL_Reg lDescription_get[];
2470
2471 const luaL_Reg lDescription_set[];
2472
2473 const Edje_Lua_Reg mDescription = {
2474    lNil,
2475    lDescription_get,
2476    lDescription_set,
2477    lNil
2478 };
2479
2480 const Edje_Lua_Reg *cDescription[] = {
2481    &mClass,
2482    &mObject,
2483    &mDescription,
2484    NULL                         // sentinel
2485 };
2486
2487 static int
2488 _edje_lua_description_get_alignment(lua_State *L)
2489 {
2490    Edje_Lua_Edje_Part_Description *obj =
2491       _edje_lua_checkudata(L, 1, &mDescription);
2492    if (!obj->rp->custom) return 0;
2493    lua_createtable(L, 2, 0);
2494    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->align.x));
2495    lua_rawseti(L, -2, 1);
2496    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->align.y));
2497    lua_rawseti(L, -2, 1);
2498    return 1;
2499 }
2500
2501 static int
2502 _edje_lua_description_get_min(lua_State *L)
2503 {
2504    Edje_Lua_Edje_Part_Description *obj =
2505       _edje_lua_checkudata(L, 1, &mDescription);
2506    if (!obj->rp->custom) return 0;
2507    lua_createtable(L, 2, 0);
2508    lua_pushnumber(L, obj->rp->custom->description->min.w);
2509    lua_rawseti(L, -2, 1);
2510    lua_pushnumber(L, obj->rp->custom->description->min.h);
2511    lua_rawseti(L, -2, 1);
2512    return 1;
2513 }
2514
2515 static int
2516 _edje_lua_description_get_max(lua_State *L)
2517 {
2518    Edje_Lua_Edje_Part_Description *obj =
2519       _edje_lua_checkudata(L, 1, &mDescription);
2520    if (!obj->rp->custom) return 0;
2521    lua_createtable(L, 2, 0);
2522    lua_pushnumber(L, obj->rp->custom->description->max.w);
2523    lua_rawseti(L, -2, 1);
2524    lua_pushnumber(L, obj->rp->custom->description->max.h);
2525    lua_rawseti(L, -2, 1);
2526    return 1;
2527 }
2528
2529 static int
2530 _edje_lua_description_get_step(lua_State *L)
2531 {
2532    Edje_Lua_Edje_Part_Description *obj =
2533       _edje_lua_checkudata(L, 1, &mDescription);
2534    if (!obj->rp->custom) return 0;
2535    lua_createtable(L, 2, 0);
2536    lua_pushnumber(L, obj->rp->custom->description->step.x);
2537    lua_rawseti(L, -2, 1);
2538    lua_pushnumber(L, obj->rp->custom->description->step.y);
2539    lua_rawseti(L, -2, 1);
2540    return 1;
2541 }
2542
2543 static int
2544 _edje_lua_description_get_aspect(lua_State *L)
2545 {
2546    Edje_Lua_Edje_Part_Description *obj =
2547       _edje_lua_checkudata(L, 1, &mDescription);
2548    if (!obj->rp->custom) return 0;
2549    lua_createtable(L, 2, 0);
2550    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->aspect.min));
2551    lua_rawseti(L, -2, 1);
2552    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->aspect.max));
2553    lua_rawseti(L, -2, 1);
2554    return 1;
2555 }
2556
2557 static int
2558 _edje_lua_description_get_aspect_pref(lua_State *L)
2559 {
2560    Edje_Lua_Edje_Part_Description *obj =
2561       _edje_lua_checkudata(L, 1, &mDescription);
2562    if (!obj->rp->custom) return 0;
2563    lua_pushnumber(L, obj->rp->custom->description->aspect.prefer);
2564    return 1;
2565 }
2566
2567 static int
2568 _edje_lua_description_get_color(lua_State *L)
2569 {
2570    Edje_Lua_Edje_Part_Description *obj =
2571       _edje_lua_checkudata(L, 1, &mDescription);
2572    /* check whether this part has a "custom" state */
2573    if (!obj->rp->custom) return 0;
2574    lua_createtable(L, 4, 0);
2575    lua_pushnumber(L, obj->rp->custom->description->color.r);
2576    lua_rawseti(L, -2, 1);
2577    lua_pushnumber(L, obj->rp->custom->description->color.g);
2578    lua_rawseti(L, -2, 2);
2579    lua_pushnumber(L, obj->rp->custom->description->color.b);
2580    lua_rawseti(L, -2, 3);
2581    lua_pushnumber(L, obj->rp->custom->description->color.a);
2582    lua_rawseti(L, -2, 4);
2583    return 1;
2584 }
2585
2586 static int
2587 _edje_lua_description_get_color2(lua_State *L)
2588 {
2589    Edje_Lua_Edje_Part_Description *obj =
2590       _edje_lua_checkudata(L, 1, &mDescription);
2591    if (!obj->rp->custom) return 0;
2592    lua_createtable(L, 4, 0);
2593    lua_pushnumber(L, obj->rp->custom->description->color2.r);
2594    lua_rawseti(L, -2, 1);
2595    lua_pushnumber(L, obj->rp->custom->description->color2.g);
2596    lua_rawseti(L, -2, 2);
2597    lua_pushnumber(L, obj->rp->custom->description->color2.b);
2598    lua_rawseti(L, -2, 3);
2599    lua_pushnumber(L, obj->rp->custom->description->color2.a);
2600    lua_rawseti(L, -2, 4);
2601    return 1;
2602 }
2603
2604 static int
2605 _edje_lua_description_get_color3(lua_State *L)
2606 {
2607    Edje_Lua_Edje_Part_Description *obj =
2608       _edje_lua_checkudata(L, 1, &mDescription);
2609    if (!obj->rp->custom) return 0;
2610    lua_createtable(L, 4, 0);
2611    lua_pushnumber(L, obj->rp->custom->description->color3.r);
2612    lua_rawseti(L, -2, 1);
2613    lua_pushnumber(L, obj->rp->custom->description->color3.g);
2614    lua_rawseti(L, -2, 2);
2615    lua_pushnumber(L, obj->rp->custom->description->color3.b);
2616    lua_rawseti(L, -2, 3);
2617    lua_pushnumber(L, obj->rp->custom->description->color3.a);
2618    lua_rawseti(L, -2, 4);
2619    return 1;
2620 }
2621
2622 static int
2623 _edje_lua_description_get_color_class(lua_State *L)
2624 {
2625    Edje_Lua_Edje_Part_Description *obj =
2626       _edje_lua_checkudata(L, 1, &mDescription);
2627    if (!obj->rp->custom) return 0;
2628    lua_pushstring(L, obj->rp->custom->description->color_class);
2629    return 1;
2630 }
2631
2632 static int
2633 _edje_lua_description_get_rel1(lua_State *L)
2634 {
2635    Edje_Lua_Edje_Part_Description *obj =
2636       _edje_lua_checkudata(L, 1, &mDescription);
2637    if (!obj->rp->custom) return 0;
2638    lua_createtable(L, 2, 0);
2639    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->rel1.relative_x));
2640    lua_rawseti(L, -2, 1);
2641    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->rel1.relative_y));
2642    lua_rawseti(L, -2, 2);
2643    return 1;
2644 }
2645
2646 static int
2647 _edje_lua_description_get_rel1_to(lua_State *L)
2648 {
2649    Edje_Lua_Edje_Part_Description *obj =
2650       _edje_lua_checkudata(L, 1, &mDescription);
2651    if (!obj->rp->custom) return 0;
2652    lua_createtable(L, 2, 0);
2653    lua_pushnumber(L, obj->rp->custom->description->rel1.id_x);
2654    lua_rawseti(L, -2, 1);
2655    lua_pushnumber(L, obj->rp->custom->description->rel1.id_y);
2656    lua_rawseti(L, -2, 2);
2657    return 1;
2658 }
2659
2660 static int
2661 _edje_lua_description_get_rel1_offset(lua_State *L)
2662 {
2663    Edje_Lua_Edje_Part_Description *obj =
2664       _edje_lua_checkudata(L, 1, &mDescription);
2665    if (!obj->rp->custom) return 0;
2666    lua_createtable(L, 2, 0);
2667    lua_pushnumber(L, obj->rp->custom->description->rel1.offset_x);
2668    lua_rawseti(L, -2, 1);
2669    lua_pushnumber(L, obj->rp->custom->description->rel1.offset_y);
2670    lua_rawseti(L, -2, 2);
2671    return 1;
2672 }
2673
2674 static int
2675 _edje_lua_description_get_rel2(lua_State *L)
2676 {
2677    Edje_Lua_Edje_Part_Description *obj =
2678       _edje_lua_checkudata(L, 1, &mDescription);
2679    if (!obj->rp->custom) return 0;
2680    lua_createtable(L, 2, 0);
2681    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->rel2.relative_x));
2682    lua_rawseti(L, -2, 1);
2683    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->rel2.relative_y));
2684    lua_rawseti(L, -2, 2);
2685    return 1;
2686 }
2687
2688 static int
2689 _edje_lua_description_get_rel2_to(lua_State *L)
2690 {
2691    Edje_Lua_Edje_Part_Description *obj =
2692       _edje_lua_checkudata(L, 1, &mDescription);
2693    if (!obj->rp->custom) return 0;
2694    lua_createtable(L, 2, 0);
2695    lua_pushnumber(L, obj->rp->custom->description->rel2.id_x);
2696    lua_rawseti(L, -2, 1);
2697    lua_pushnumber(L, obj->rp->custom->description->rel2.id_y);
2698    lua_rawseti(L, -2, 2);
2699    return 1;
2700 }
2701
2702 static int
2703 _edje_lua_description_get_rel2_offset(lua_State *L)
2704 {
2705    Edje_Lua_Edje_Part_Description *obj =
2706       _edje_lua_checkudata(L, 1, &mDescription);
2707    if (!obj->rp->custom) return 0;
2708    lua_createtable(L, 2, 0);
2709    lua_pushnumber(L, obj->rp->custom->description->rel2.offset_x);
2710    lua_rawseti(L, -2, 1);
2711    lua_pushnumber(L, obj->rp->custom->description->rel2.offset_y);
2712    lua_rawseti(L, -2, 2);
2713    return 1;
2714 }
2715
2716 static int
2717 _edje_lua_description_get_image(lua_State *L)
2718 {
2719    Edje_Lua_Edje_Part_Description *obj =
2720       _edje_lua_checkudata(L, 1, &mDescription);
2721    if (!obj->rp->custom) return 0;
2722    if ((obj->rp->part->type != EDJE_PART_TYPE_IMAGE))
2723       return 0;
2724    // TODO
2725    return 0;
2726 }
2727
2728 static int
2729 _edje_lua_description_get_border(lua_State *L)
2730 {
2731    Edje_Lua_Edje_Part_Description *obj =
2732       _edje_lua_checkudata(L, 1, &mDescription);
2733    if ((obj->rp->part->type != EDJE_PART_TYPE_IMAGE))
2734       return 0;
2735    if (!obj->rp->custom) return 0;
2736    lua_createtable(L, 4, 0);
2737    lua_pushnumber(L, obj->rp->custom->description->border.l);
2738    lua_rawseti(L, -2, 1);
2739    lua_pushnumber(L, obj->rp->custom->description->border.r);
2740    lua_rawseti(L, -2, 2);
2741    lua_pushnumber(L, obj->rp->custom->description->border.t);
2742    lua_rawseti(L, -2, 3);
2743    lua_pushnumber(L, obj->rp->custom->description->border.b);
2744    lua_rawseti(L, -2, 4);
2745    return 1;
2746 }
2747
2748 static int
2749 _edje_lua_description_get_fill_smooth(lua_State *L)
2750 {
2751    Edje_Lua_Edje_Part_Description *obj =
2752       _edje_lua_checkudata(L, 1, &mDescription);
2753    if ((obj->rp->part->type != EDJE_PART_TYPE_IMAGE))
2754       return 0;
2755    if (!obj->rp->custom) return 0;
2756    lua_pushboolean(L, obj->rp->custom->description->fill.smooth);
2757    return 1;
2758 }
2759
2760 static int
2761 _edje_lua_description_get_fill_pos(lua_State *L)
2762 {
2763    Edje_Lua_Edje_Part_Description *obj =
2764       _edje_lua_checkudata(L, 1, &mDescription);
2765    if ((obj->rp->part->type != EDJE_PART_TYPE_IMAGE))
2766       return 0;
2767    if (!obj->rp->custom) return 0;
2768    lua_createtable(L, 4, 0);
2769    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->fill.pos_rel_x));
2770    lua_rawseti(L, -2, 1);
2771    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->fill.pos_rel_y));
2772    lua_rawseti(L, -2, 2);
2773    lua_pushnumber(L, obj->rp->custom->description->fill.pos_abs_x);
2774    lua_rawseti(L, -2, 3);
2775    lua_pushnumber(L, obj->rp->custom->description->fill.pos_abs_y);
2776    lua_rawseti(L, -2, 4);
2777    return 1;
2778 }
2779
2780 static int
2781 _edje_lua_description_get_fill_size(lua_State *L)
2782 {
2783    Edje_Lua_Edje_Part_Description *obj =
2784       _edje_lua_checkudata(L, 1, &mDescription);
2785    if ((obj->rp->part->type != EDJE_PART_TYPE_IMAGE))
2786       return 0;
2787    if (!obj->rp->custom) return 0;
2788    lua_createtable(L, 4, 0);
2789    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->fill.rel_x));
2790    lua_rawseti(L, -2, 1);
2791    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->fill.rel_y));
2792    lua_rawseti(L, -2, 2);
2793    lua_pushnumber(L, obj->rp->custom->description->fill.abs_x);
2794    lua_rawseti(L, -2, 3);
2795    lua_pushnumber(L, obj->rp->custom->description->fill.abs_y);
2796    lua_rawseti(L, -2, 4);
2797    return 1;
2798 }
2799
2800 static int
2801 _edje_lua_description_get_text(lua_State *L)
2802 {
2803    Edje_Lua_Edje_Part_Description *obj =
2804       _edje_lua_checkudata(L, 1, &mDescription);
2805    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT)
2806        && (obj->rp->part->type != EDJE_PART_TYPE_TEXTBLOCK))
2807       return 0;
2808    if (!obj->rp->custom) return 0;
2809    lua_pushstring(L, obj->rp->custom->description->text.text);
2810    return 1;
2811 }
2812
2813 static int
2814 _edje_lua_description_get_text_class(lua_State *L)
2815 {
2816    Edje_Lua_Edje_Part_Description *obj =
2817       _edje_lua_checkudata(L, 1, &mDescription);
2818    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT)
2819        && (obj->rp->part->type != EDJE_PART_TYPE_TEXTBLOCK))
2820       return 0;
2821    if (!obj->rp->custom) return 0;
2822    lua_pushstring(L, obj->rp->custom->description->text.text_class);
2823    return 1;
2824 }
2825
2826 static int
2827 _edje_lua_description_get_text_font(lua_State *L)
2828 {
2829    Edje_Lua_Edje_Part_Description *obj =
2830       _edje_lua_checkudata(L, 1, &mDescription);
2831    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT))
2832       return 0;
2833    if (!obj->rp->custom) return 0;
2834    lua_pushstring(L, obj->rp->custom->description->text.text_class);
2835    return 1;
2836 }
2837
2838 static int
2839 _edje_lua_description_get_text_style(lua_State *L)
2840 {
2841    Edje_Lua_Edje_Part_Description *obj =
2842       _edje_lua_checkudata(L, 1, &mDescription);
2843    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXTBLOCK))
2844       return 0;
2845    if (!obj->rp->custom) return 0;
2846    lua_pushstring(L, obj->rp->custom->description->text.style);
2847    return 1;
2848 }
2849
2850 static int
2851 _edje_lua_description_get_text_size(lua_State *L)
2852 {
2853    Edje_Lua_Edje_Part_Description *obj =
2854       _edje_lua_checkudata(L, 1, &mDescription);
2855    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT))
2856       return 0;
2857    if (!obj->rp->custom) return 0;
2858    lua_pushnumber(L, obj->rp->custom->description->text.size);
2859    return 1;
2860 }
2861
2862 static int
2863 _edje_lua_description_get_text_fit(lua_State *L)
2864 {
2865    Edje_Lua_Edje_Part_Description *obj =
2866       _edje_lua_checkudata(L, 1, &mDescription);
2867    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT))
2868       return 0;
2869    if (!obj->rp->custom) return 0;
2870    lua_createtable(L, 2, 0);
2871    lua_pushboolean(L, obj->rp->custom->description->text.fit_x);
2872    lua_rawseti(L, -2, 1);
2873    lua_pushboolean(L, obj->rp->custom->description->text.fit_y);
2874    lua_rawseti(L, -2, 2);
2875    return 1;
2876 }
2877
2878 static int
2879 _edje_lua_description_get_text_min(lua_State *L)
2880 {
2881    Edje_Lua_Edje_Part_Description *obj =
2882       _edje_lua_checkudata(L, 1, &mDescription);
2883    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT)
2884        && (obj->rp->part->type != EDJE_PART_TYPE_TEXTBLOCK))
2885       return 0;
2886    if (!obj->rp->custom) return 0;
2887    lua_createtable(L, 2, 0);
2888    lua_pushnumber(L, obj->rp->custom->description->text.min_x);
2889    lua_rawseti(L, -2, 1);
2890    lua_pushnumber(L, obj->rp->custom->description->text.min_y);
2891    lua_rawseti(L, -2, 2);
2892    return 1;
2893 }
2894
2895 static int
2896 _edje_lua_description_get_text_max(lua_State *L)
2897 {
2898    Edje_Lua_Edje_Part_Description *obj =
2899       _edje_lua_checkudata(L, 1, &mDescription);
2900    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT)
2901        && (obj->rp->part->type != EDJE_PART_TYPE_TEXTBLOCK))
2902       return 0;
2903    if (!obj->rp->custom) return 0;
2904    lua_createtable(L, 2, 0);
2905    lua_pushnumber(L, obj->rp->custom->description->text.max_x);
2906    lua_rawseti(L, -2, 1);
2907    lua_pushnumber(L, obj->rp->custom->description->text.max_y);
2908    lua_rawseti(L, -2, 2);
2909    return 1;
2910 }
2911
2912 static int
2913 _edje_lua_description_get_text_align(lua_State *L)
2914 {
2915    Edje_Lua_Edje_Part_Description *obj =
2916       _edje_lua_checkudata(L, 1, &mDescription);
2917    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT))
2918       return 0;
2919    if (!obj->rp->custom) return 0;
2920    lua_createtable(L, 2, 0);
2921    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->text.align.x));
2922    lua_rawseti(L, -2, 1);
2923    lua_pushnumber(L, TO_DOUBLE(obj->rp->custom->description->text.align.y));
2924    lua_rawseti(L, -2, 2);
2925    return 1;
2926 }
2927
2928 static int
2929 _edje_lua_description_get_visible(lua_State *L)
2930 {
2931    Edje_Lua_Edje_Part_Description *obj =
2932       _edje_lua_checkudata(L, 1, &mDescription);
2933    if (!obj->rp->custom) return 0;
2934    lua_pushboolean(L, obj->rp->custom->description->visible);
2935    return 1;
2936 }
2937
2938 const luaL_Reg lDescription_get[] = {
2939    {"alignment", _edje_lua_description_get_alignment},
2940    {"min", _edje_lua_description_get_min},
2941    {"max", _edje_lua_description_get_max},
2942    {"step", _edje_lua_description_get_step},
2943    {"aspect", _edje_lua_description_get_aspect},
2944    {"aspect_pref", _edje_lua_description_get_aspect_pref},
2945    {"color", _edje_lua_description_get_color},
2946    {"color2", _edje_lua_description_get_color2},
2947    {"color3", _edje_lua_description_get_color3},
2948    {"color_class", _edje_lua_description_get_color_class},
2949    {"rel1", _edje_lua_description_get_rel1},
2950    {"rel1_to", _edje_lua_description_get_rel1_to},
2951    {"rel1_offset", _edje_lua_description_get_rel1_offset},
2952    {"rel2", _edje_lua_description_get_rel2},
2953    {"rel2_to", _edje_lua_description_get_rel2_to},
2954    {"rel2_offset", _edje_lua_description_get_rel2_offset},
2955    {"image", _edje_lua_description_get_image},
2956    {"border", _edje_lua_description_get_border},
2957    {"fill_smooth", _edje_lua_description_get_fill_smooth},
2958    {"fill_pos", _edje_lua_description_get_fill_pos},
2959    {"fill_size", _edje_lua_description_get_fill_size},
2960    {"text", _edje_lua_description_get_text},
2961    {"text_class", _edje_lua_description_get_text_class},
2962    {"text_font", _edje_lua_description_get_text_font},
2963    {"text_style", _edje_lua_description_get_text_style},
2964    {"text_size", _edje_lua_description_get_text_size},
2965    {"text_fit", _edje_lua_description_get_text_fit},
2966    {"text_min", _edje_lua_description_get_text_min},
2967    {"text_max", _edje_lua_description_get_text_max},
2968    {"text_align", _edje_lua_description_get_text_align},
2969    {"visible", _edje_lua_description_get_visible},
2970    {NULL, NULL}                 // sentinel
2971 };
2972
2973 static int
2974 _edje_lua_description_set_alignment(lua_State *L)
2975 {
2976    Edje_Lua_Edje_Part_Description *obj =
2977       _edje_lua_checkudata(L, 1, &mDescription);
2978    if (!obj->rp->custom) return 0;
2979    luaL_checktype(L, 2, LUA_TTABLE);
2980    lua_rawgeti(L, 2, 1);
2981    lua_rawgeti(L, 2, 2);
2982    obj->rp->custom->description->align.x = FROM_DOUBLE(luaL_checknumber(L, -2));
2983    obj->rp->custom->description->align.y = FROM_DOUBLE(luaL_checknumber(L, -1));
2984    return 0;
2985 }
2986
2987 static int
2988 _edje_lua_description_set_min(lua_State *L)
2989 {
2990    Edje_Lua_Edje_Part_Description *obj =
2991       _edje_lua_checkudata(L, 1, &mDescription);
2992    if (!obj->rp->custom) return 0;
2993    lua_rawgeti(L, 2, 1);
2994    lua_rawgeti(L, 2, 2);
2995    obj->rp->custom->description->min.w = luaL_checkint(L, -2);
2996    obj->rp->custom->description->min.h = luaL_checkint(L, -1);
2997    return 0;
2998 }
2999
3000 static int
3001 _edje_lua_description_set_max(lua_State *L)
3002 {
3003    Edje_Lua_Edje_Part_Description *obj =
3004       _edje_lua_checkudata(L, 1, &mDescription);
3005    if (!obj->rp->custom) return 0;
3006    lua_rawgeti(L, 2, 1);
3007    lua_rawgeti(L, 2, 2);
3008    obj->rp->custom->description->max.w = luaL_checkint(L, -2);
3009    obj->rp->custom->description->max.h = luaL_checkint(L, -1);
3010    return 0;
3011 }
3012
3013 static int
3014 _edje_lua_description_set_step(lua_State *L)
3015 {
3016    Edje_Lua_Edje_Part_Description *obj =
3017       _edje_lua_checkudata(L, 1, &mDescription);
3018    if (!obj->rp->custom) return 0;
3019    lua_rawgeti(L, 2, 1);
3020    lua_rawgeti(L, 2, 2);
3021    obj->rp->custom->description->step.x = luaL_checkint(L, -2);
3022    obj->rp->custom->description->step.y = luaL_checkint(L, -1);
3023    return 0;
3024 }
3025
3026 static int
3027 _edje_lua_description_set_aspect(lua_State *L)
3028 {
3029    Edje_Lua_Edje_Part_Description *obj =
3030       _edje_lua_checkudata(L, 1, &mDescription);
3031    if (!obj->rp->custom) return 0;
3032    lua_rawgeti(L, 2, 1);
3033    lua_rawgeti(L, 2, 2);
3034    obj->rp->custom->description->aspect.min = FROM_DOUBLE(luaL_checknumber(L, -2));
3035    obj->rp->custom->description->aspect.max = FROM_DOUBLE(luaL_checknumber(L, -1));
3036    return 0;
3037
3038 }
3039
3040 static int
3041 _edje_lua_description_set_aspect_pref(lua_State *L)
3042 {
3043    Edje_Lua_Edje_Part_Description *obj =
3044       _edje_lua_checkudata(L, 1, &mDescription);
3045    if (!obj->rp->custom) return 0;
3046    obj->rp->custom->description->aspect.prefer = luaL_checknumber(L, 2);
3047    return 0;
3048
3049 }
3050
3051 static int
3052 _edje_lua_description_set_color(lua_State *L)
3053 {
3054    Edje_Lua_Edje_Part_Description *obj =
3055       _edje_lua_checkudata(L, 1, &mDescription);
3056    if (!obj->rp->custom) return 0;
3057    luaL_checktype(L, 2, LUA_TTABLE);
3058    lua_rawgeti(L, 2, 1);
3059    lua_rawgeti(L, 2, 2);
3060    lua_rawgeti(L, 2, 3);
3061    lua_rawgeti(L, 2, 4);
3062    obj->rp->custom->description->color.r = luaL_checkint(L, -4);
3063    obj->rp->custom->description->color.g = luaL_checkint(L, -3);
3064    obj->rp->custom->description->color.b = luaL_checkint(L, -2);
3065    obj->rp->custom->description->color.a = luaL_checkint(L, -1);
3066    return 0;
3067 }
3068
3069 static int
3070 _edje_lua_description_set_color2(lua_State *L)
3071 {
3072    Edje_Lua_Edje_Part_Description *obj =
3073       _edje_lua_checkudata(L, 1, &mDescription);
3074    if (!obj->rp->custom) return 0;
3075    luaL_checktype(L, 2, LUA_TTABLE);
3076    lua_rawgeti(L, 2, 1);
3077    lua_rawgeti(L, 2, 2);
3078    lua_rawgeti(L, 2, 3);
3079    lua_rawgeti(L, 2, 4);
3080    obj->rp->custom->description->color2.r = luaL_checkint(L, -4);
3081    obj->rp->custom->description->color2.g = luaL_checkint(L, -3);
3082    obj->rp->custom->description->color2.b = luaL_checkint(L, -2);
3083    obj->rp->custom->description->color2.a = luaL_checkint(L, -1);
3084    return 0;
3085 }
3086
3087 static int
3088 _edje_lua_description_set_color3(lua_State *L)
3089 {
3090    Edje_Lua_Edje_Part_Description *obj =
3091       _edje_lua_checkudata(L, 1, &mDescription);
3092    if (!obj->rp->custom) return 0;
3093    luaL_checktype(L, 2, LUA_TTABLE);
3094    lua_rawgeti(L, 2, 1);
3095    lua_rawgeti(L, 2, 2);
3096    lua_rawgeti(L, 2, 3);
3097    lua_rawgeti(L, 2, 4);
3098    obj->rp->custom->description->color3.r = luaL_checkint(L, -4);
3099    obj->rp->custom->description->color3.g = luaL_checkint(L, -3);
3100    obj->rp->custom->description->color3.b = luaL_checkint(L, -2);
3101    obj->rp->custom->description->color3.a = luaL_checkint(L, -1);
3102    return 0;
3103 }
3104
3105 static int
3106 _edje_lua_description_set_color_class(lua_State *L)
3107 {
3108    Edje_Lua_Edje_Part_Description *obj =
3109       _edje_lua_checkudata(L, 1, &mDescription);
3110    if (!obj->rp->custom) return 0;
3111    obj->rp->custom->description->color_class = (char *)luaL_checkstring(L, 2);
3112    return 0;
3113 }
3114
3115 static int
3116 _edje_lua_description_set_rel1(lua_State *L)
3117 {
3118    Edje_Lua_Edje_Part_Description *obj =
3119       _edje_lua_checkudata(L, 1, &mDescription);
3120    if (!obj->rp->custom) return 0;
3121    luaL_checktype(L, 2, LUA_TTABLE);
3122    lua_rawgeti(L, 2, 1);
3123    lua_rawgeti(L, 2, 2);
3124    obj->rp->custom->description->rel1.relative_x = FROM_DOUBLE(luaL_checknumber(L, -2));
3125    obj->rp->custom->description->rel1.relative_y = FROM_DOUBLE(luaL_checknumber(L, -1));
3126    return 0;
3127 }
3128
3129 static int
3130 _edje_lua_description_set_rel1_to(lua_State *L)
3131 {
3132    Edje_Lua_Edje_Part_Description *obj =
3133       _edje_lua_checkudata(L, 1, &mDescription);
3134    if (!obj->rp->custom) return 0;
3135    luaL_checktype(L, 2, LUA_TTABLE);
3136    lua_rawgeti(L, 2, 1);
3137    lua_rawgeti(L, 2, 2);
3138    obj->rp->custom->description->rel1.id_x = luaL_checknumber(L, -2);
3139    obj->rp->custom->description->rel1.id_y = luaL_checknumber(L, -1);
3140    if (obj->rp->param1.description->rel1.id_x >= 0)
3141      obj->rp->param1.rel1_to_x = obj->ed->table_parts[obj->rp->param1.description->rel1.id_x % obj->ed->table_parts_size];
3142    if (obj->rp->param1.description->rel1.id_y >= 0)
3143      obj->rp->param1.rel1_to_y = obj->ed->table_parts[obj->rp->param1.description->rel1.id_y % obj->ed->table_parts_size];
3144    return 0;
3145 }
3146
3147 static int
3148 _edje_lua_description_set_rel1_offset(lua_State *L)
3149 {
3150    Edje_Lua_Edje_Part_Description *obj =
3151       _edje_lua_checkudata(L, 1, &mDescription);
3152    if (!obj->rp->custom) return 0;
3153    luaL_checktype(L, 2, LUA_TTABLE);
3154    lua_rawgeti(L, 2, 1);
3155    lua_rawgeti(L, 2, 2);
3156    obj->rp->custom->description->rel1.offset_x = luaL_checkint(L, -2);
3157    obj->rp->custom->description->rel1.offset_y = luaL_checkint(L, -1);
3158    return 0;
3159 }
3160
3161 static int
3162 _edje_lua_description_set_rel2(lua_State *L)
3163 {
3164    Edje_Lua_Edje_Part_Description *obj =
3165       _edje_lua_checkudata(L, 1, &mDescription);
3166    if (!obj->rp->custom) return 0;
3167    luaL_checktype(L, 2, LUA_TTABLE);
3168    lua_rawgeti(L, 2, 1);
3169    lua_rawgeti(L, 2, 2);
3170    obj->rp->custom->description->rel2.relative_x = FROM_DOUBLE(luaL_checknumber(L, -2));
3171    obj->rp->custom->description->rel2.relative_y = FROM_DOUBLE(luaL_checknumber(L, -1));
3172    return 0;
3173 }
3174
3175 static int
3176 _edje_lua_description_set_rel2_to(lua_State *L)
3177 {
3178    Edje_Lua_Edje_Part_Description *obj =
3179       _edje_lua_checkudata(L, 1, &mDescription);
3180    if (!obj->rp->custom) return 0;
3181    luaL_checktype(L, 2, LUA_TTABLE);
3182    lua_rawgeti(L, 2, 1);
3183    lua_rawgeti(L, 2, 2);
3184    obj->rp->custom->description->rel2.id_x = luaL_checknumber(L, -2);
3185    obj->rp->custom->description->rel2.id_y = luaL_checknumber(L, -1);
3186    if (obj->rp->param1.description->rel2.id_x >= 0)
3187      obj->rp->param1.rel2_to_x = obj->ed->table_parts[obj->rp->param1.description->rel2.id_x % obj->ed->table_parts_size];
3188    if (obj->rp->param1.description->rel2.id_y >= 0)
3189      obj->rp->param1.rel2_to_y = obj->ed->table_parts[obj->rp->param1.description->rel2.id_y % obj->ed->table_parts_size];
3190    return 0;
3191 }
3192
3193 static int
3194 _edje_lua_description_set_rel2_offset(lua_State *L)
3195 {
3196    Edje_Lua_Edje_Part_Description *obj =
3197       _edje_lua_checkudata(L, 1, &mDescription);
3198    if (!obj->rp->custom) return 0;
3199    luaL_checktype(L, 2, LUA_TTABLE);
3200    lua_rawgeti(L, 2, 1);
3201    lua_rawgeti(L, 2, 2);
3202    obj->rp->custom->description->rel2.offset_x = luaL_checkint(L, -2);
3203    obj->rp->custom->description->rel2.offset_y = luaL_checkint(L, -1);
3204    return 0;
3205 }
3206
3207 static int
3208 _edje_lua_description_set_image(lua_State *L)
3209 {
3210    Edje_Lua_Edje_Part_Description *obj =
3211       _edje_lua_checkudata(L, 1, &mDescription);
3212    if (!obj->rp->custom) return 0;
3213    if ((obj->rp->part->type != EDJE_PART_TYPE_IMAGE))
3214       return 0;
3215    obj->rp->custom->description->image.id =
3216       edje_edit_image_id_get(obj->ed->obj, (char *)luaL_checkstring(L, 2));
3217    return 0;
3218 }
3219
3220 static int
3221 _edje_lua_description_set_border(lua_State *L)
3222 {
3223    Edje_Lua_Edje_Part_Description *obj =
3224       _edje_lua_checkudata(L, 1, &mDescription);
3225    if ((obj->rp->part->type != EDJE_PART_TYPE_IMAGE))
3226       return 0;
3227    if (!obj->rp->custom) return 0;
3228    luaL_checktype(L, 2, LUA_TTABLE);
3229    lua_rawgeti(L, 2, 1);
3230    lua_rawgeti(L, 2, 2);
3231    lua_rawgeti(L, 2, 3);
3232    lua_rawgeti(L, 2, 4);
3233    obj->rp->custom->description->border.l = luaL_checkint(L, -2);
3234    obj->rp->custom->description->border.r = luaL_checkint(L, -1);
3235    obj->rp->custom->description->border.t = luaL_checkint(L, -2);
3236    obj->rp->custom->description->border.b = luaL_checkint(L, -1);
3237    return 0;
3238 }
3239
3240 static int
3241 _edje_lua_description_set_fill_smooth(lua_State *L)
3242 {
3243    Edje_Lua_Edje_Part_Description *obj =
3244       _edje_lua_checkudata(L, 1, &mDescription);
3245    if ((obj->rp->part->type != EDJE_PART_TYPE_IMAGE))
3246       return 0;
3247    if (!obj->rp->custom) return 0;
3248    obj->rp->custom->description->fill.smooth = lua_toboolean(L, 2);
3249    return 0;
3250 }
3251
3252 static int
3253 _edje_lua_description_set_fill_pos(lua_State *L)
3254 {
3255    Edje_Lua_Edje_Part_Description *obj =
3256       _edje_lua_checkudata(L, 1, &mDescription);
3257    if ((obj->rp->part->type != EDJE_PART_TYPE_IMAGE))
3258       return 0;
3259    if (!obj->rp->custom) return 0;
3260    luaL_checktype(L, 2, LUA_TTABLE);
3261    lua_rawgeti(L, 2, 1);
3262    lua_rawgeti(L, 2, 2);
3263    lua_rawgeti(L, 2, 3);
3264    lua_rawgeti(L, 2, 4);
3265    obj->rp->custom->description->fill.pos_rel_x = luaL_checkint(L, -2);
3266    obj->rp->custom->description->fill.pos_rel_y = luaL_checkint(L, -1);
3267    obj->rp->custom->description->fill.pos_abs_x = luaL_checkint(L, -2);
3268    obj->rp->custom->description->fill.pos_abs_y = luaL_checkint(L, -1);
3269    return 0;
3270 }
3271
3272 static int
3273 _edje_lua_description_set_fill_size(lua_State *L)
3274 {
3275    Edje_Lua_Edje_Part_Description *obj =
3276       _edje_lua_checkudata(L, 1, &mDescription);
3277    if ((obj->rp->part->type != EDJE_PART_TYPE_IMAGE))
3278       return 0;
3279    if (!obj->rp->custom) return 0;
3280    luaL_checktype(L, 2, LUA_TTABLE);
3281    lua_rawgeti(L, 2, 1);
3282    lua_rawgeti(L, 2, 2);
3283    lua_rawgeti(L, 2, 3);
3284    lua_rawgeti(L, 2, 4);
3285    obj->rp->custom->description->fill.rel_x = luaL_checkint(L, -2);
3286    obj->rp->custom->description->fill.rel_y = luaL_checkint(L, -1);
3287    obj->rp->custom->description->fill.abs_x = luaL_checkint(L, -2);
3288    obj->rp->custom->description->fill.abs_y = luaL_checkint(L, -1);
3289    return 0;
3290 }
3291
3292 static int
3293 _edje_lua_description_set_text(lua_State *L)
3294 {
3295    Edje_Lua_Edje_Part_Description *obj =
3296       _edje_lua_checkudata(L, 1, &mDescription);
3297    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT)
3298        && (obj->rp->part->type != EDJE_PART_TYPE_TEXTBLOCK))
3299       return 0;
3300    if (!obj->rp->custom) return 0;
3301    obj->rp->custom->description->text.text = (char *)luaL_checkstring(L, 2);
3302    return 0;
3303 }
3304
3305 static int
3306 _edje_lua_description_set_text_class(lua_State *L)
3307 {
3308    Edje_Lua_Edje_Part_Description *obj =
3309       _edje_lua_checkudata(L, 1, &mDescription);
3310    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT)
3311        && (obj->rp->part->type != EDJE_PART_TYPE_TEXTBLOCK))
3312       return 0;
3313    if (!obj->rp->custom) return 0;
3314    obj->rp->custom->description->text.text_class =
3315       (char *)luaL_checkstring(L, 2);
3316    return 0;
3317 }
3318
3319 static int
3320 _edje_lua_description_set_text_font(lua_State *L)
3321 {
3322    Edje_Lua_Edje_Part_Description *obj =
3323       _edje_lua_checkudata(L, 1, &mDescription);
3324    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT))
3325       return 0;
3326    if (!obj->rp->custom) return 0;
3327    obj->rp->custom->description->text.font = (char *)luaL_checkstring(L, 2);
3328    return 0;
3329 }
3330
3331 static int
3332 _edje_lua_description_set_text_style(lua_State *L)
3333 {
3334    Edje_Lua_Edje_Part_Description *obj =
3335       _edje_lua_checkudata(L, 1, &mDescription);
3336    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXTBLOCK))
3337       return 0;
3338    if (!obj->rp->custom) return 0;
3339    obj->rp->custom->description->text.style = (char *)luaL_checkstring(L, 2);
3340    return 0;
3341 }
3342
3343 static int
3344 _edje_lua_description_set_text_size(lua_State *L)
3345 {
3346    Edje_Lua_Edje_Part_Description *obj =
3347       _edje_lua_checkudata(L, 1, &mDescription);
3348    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT))
3349       return 0;
3350    if (!obj->rp->custom) return 0;
3351    obj->rp->custom->description->text.size = luaL_checkint(L, 2);
3352    return 0;
3353 }
3354
3355 static int
3356 _edje_lua_description_set_text_fit(lua_State *L)
3357 {
3358    Edje_Lua_Edje_Part_Description *obj =
3359       _edje_lua_checkudata(L, 1, &mDescription);
3360    if (!obj->rp->custom) return 0;
3361    luaL_checktype(L, 2, LUA_TTABLE);
3362    lua_rawgeti(L, 2, 1);
3363    lua_rawgeti(L, 2, 2);
3364    obj->rp->custom->description->text.fit_x = lua_toboolean(L, -2);
3365    obj->rp->custom->description->text.fit_y = lua_toboolean(L, -1);
3366    return 0;
3367 }
3368
3369 static int
3370 _edje_lua_description_set_text_min(lua_State *L)
3371 {
3372    Edje_Lua_Edje_Part_Description *obj =
3373       _edje_lua_checkudata(L, 1, &mDescription);
3374    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT)
3375        && (obj->rp->part->type != EDJE_PART_TYPE_TEXTBLOCK))
3376       return 0;
3377    if (!obj->rp->custom) return 0;
3378    luaL_checktype(L, 2, LUA_TTABLE);
3379    lua_rawgeti(L, 2, 1);
3380    lua_rawgeti(L, 2, 2);
3381    obj->rp->custom->description->text.min_x = luaL_checkint(L, -2);
3382    obj->rp->custom->description->text.min_y = luaL_checkint(L, -1);
3383    return 0;
3384 }
3385
3386 static int
3387 _edje_lua_description_set_text_max(lua_State *L)
3388 {
3389    Edje_Lua_Edje_Part_Description *obj =
3390       _edje_lua_checkudata(L, 1, &mDescription);
3391    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT)
3392        && (obj->rp->part->type != EDJE_PART_TYPE_TEXTBLOCK))
3393       return 0;
3394    if (!obj->rp->custom) return 0;
3395    luaL_checktype(L, 2, LUA_TTABLE);
3396    lua_rawgeti(L, 2, 1);
3397    lua_rawgeti(L, 2, 2);
3398    obj->rp->custom->description->text.max_x = luaL_checkint(L, -2);
3399    obj->rp->custom->description->text.max_y = luaL_checkint(L, -1);
3400    return 0;
3401 }
3402
3403 static int
3404 _edje_lua_description_set_text_align(lua_State *L)
3405 {
3406    Edje_Lua_Edje_Part_Description *obj =
3407       _edje_lua_checkudata(L, 1, &mDescription);
3408    if ((obj->rp->part->type != EDJE_PART_TYPE_TEXT))
3409       return 0;
3410    if (!obj->rp->custom) return 0;
3411    luaL_checktype(L, 2, LUA_TTABLE);
3412    lua_rawgeti(L, 2, 1);
3413    lua_rawgeti(L, 2, 2);
3414    obj->rp->custom->description->text.align.x = FROM_DOUBLE(luaL_checknumber(L, -2));
3415    obj->rp->custom->description->text.align.y = FROM_DOUBLE(luaL_checknumber(L, -1));
3416    return 0;
3417 }
3418
3419 static int
3420 _edje_lua_description_set_visible(lua_State *L)
3421 {
3422    Edje_Lua_Edje_Part_Description *obj =
3423       _edje_lua_checkudata(L, 1, &mDescription);
3424    if (!obj->rp->custom) return 0;
3425    obj->rp->custom->description->visible = lua_toboolean(L, 2);
3426    return 0;
3427 }
3428
3429 const luaL_Reg lDescription_set[] = {
3430    {"alignment", _edje_lua_description_set_alignment},
3431    {"min", _edje_lua_description_set_min},
3432    {"max", _edje_lua_description_set_max},
3433    {"step", _edje_lua_description_set_step},
3434    {"aspect", _edje_lua_description_set_aspect},
3435    {"aspect_pref", _edje_lua_description_set_aspect_pref},
3436    {"color", _edje_lua_description_set_color},
3437    {"color2", _edje_lua_description_set_color2},
3438    {"color3", _edje_lua_description_set_color3},
3439    {"color_class", _edje_lua_description_set_color_class},
3440    {"rel1", _edje_lua_description_set_rel1},
3441    {"rel1_to", _edje_lua_description_set_rel1_to},
3442    {"rel1_offset", _edje_lua_description_set_rel1_offset},
3443    {"rel2", _edje_lua_description_set_rel2},
3444    {"rel2_to", _edje_lua_description_set_rel2_to},
3445    {"rel2_offset", _edje_lua_description_set_rel2_offset},
3446    {"image", _edje_lua_description_set_image},
3447    {"border", _edje_lua_description_set_border},
3448    {"fill_smooth", _edje_lua_description_set_fill_smooth},
3449    {"fill_pos", _edje_lua_description_set_fill_pos},
3450    {"fill_size", _edje_lua_description_set_fill_size},
3451    {"text", _edje_lua_description_set_text},
3452    {"text_class", _edje_lua_description_set_text_class},
3453    {"text_font", _edje_lua_description_set_text_font},
3454    {"text_style", _edje_lua_description_set_text_style},
3455    {"text_size", _edje_lua_description_set_text_size},
3456    {"text_fit", _edje_lua_description_set_text_fit},
3457    {"text_min", _edje_lua_description_set_text_min},
3458    {"text_max", _edje_lua_description_set_text_max},
3459    {"text_align", _edje_lua_description_set_text_align},
3460    {"visible", _edje_lua_description_set_visible},
3461    {NULL, NULL}                 // sentinel
3462 };
3463
3464 const luaL_Reg lPart_get[];
3465
3466 const luaL_Reg lPart_set[];
3467
3468 const luaL_Reg lPart_fn[];
3469
3470 const Edje_Lua_Reg mPart = {
3471    lNil,
3472    lPart_get,
3473    lPart_set,
3474    lPart_fn
3475 };
3476
3477 static void
3478 _edje_lua_edje_part_del_cb(void *data, __UNUSED__ Evas * e, Evas_Object * obj,
3479                            __UNUSED__ void *event_info)
3480 {
3481    //printf("_edje_lua_object_delete_cb\n");
3482    lua_State *L = data;
3483    _edje_lua_get_reg(L, obj);
3484    Edje_Lua_Edje_Part_Object *udata = _edje_lua_checkudata(L, -1, &mPart);
3485    lua_pop(L, 1);
3486    _edje_lua_free_reg(L, udata); // created in _edje_lua_group_mt_index
3487    _edje_lua_free_reg(L, obj); // created in _edje_lua_group_mt_index
3488 }
3489
3490 const Edje_Lua_Reg *cPart[] = {
3491    &mClass,
3492    &mObject,
3493    &mPart,
3494    NULL                         // sentinel
3495 };
3496
3497 static int
3498 _edje_lua_part_get_swallow(lua_State *L)
3499 {
3500    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3501    Evas_Object *swa = edje_object_part_swallow_get(obj->ed->obj, obj->key);
3502    _edje_lua_get_reg(L, swa);
3503    // TODO create object if it does not already exist?
3504    return 1;
3505 }
3506
3507 static int
3508 _edje_lua_part_get_type(lua_State *L)
3509 {
3510    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3511    lua_pushnumber(L, edje_edit_part_type_get(obj->ed->obj, obj->key));
3512    return 1;
3513 }
3514
3515 static int
3516 _edje_lua_part_get_effect(lua_State *L)
3517 {
3518    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3519    lua_pushnumber(L, edje_edit_part_effect_get(obj->ed->obj, obj->key));
3520    return 1;
3521 }
3522
3523 static int
3524 _edje_lua_part_get_mouse_events(lua_State *L)
3525 {
3526    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3527    lua_pushboolean(L, edje_edit_part_mouse_events_get(obj->ed->obj, obj->key));
3528    return 1;
3529 }
3530
3531 static int
3532 _edje_lua_part_get_repeat_events(lua_State *L)
3533 {
3534    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3535    lua_pushboolean(L, edje_edit_part_repeat_events_get(obj->ed->obj, obj->key));
3536    return 1;
3537 }
3538
3539 static int
3540 _edje_lua_part_get_states_list(lua_State *L)
3541 {
3542    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3543    Eina_List *slist = edje_edit_part_states_list_get(obj->ed->obj, obj->key);
3544    Eina_List *ilist;
3545    lua_newtable(L);
3546    int i = 1;
3547    for (ilist = slist; ilist; ilist = eina_list_next(ilist))
3548      {
3549         lua_pushstring(L, eina_list_data_get(ilist));
3550         lua_rawseti(L, -2, i++);
3551      }
3552    edje_edit_string_list_free(slist);
3553    return 1;
3554 };
3555
3556 static int
3557 _edje_lua_part_get_state(lua_State *L)
3558 {
3559    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3560    const char *state;
3561    double val;
3562    state = edje_object_part_state_get(obj->ed->obj, obj->key, &val);
3563    lua_createtable(L, 2, 0);
3564    lua_pushstring(L, state);
3565    lua_rawseti(L, -2, 1);
3566    lua_pushnumber(L, val);
3567    lua_rawseti(L, -2, 2);
3568    return 1;
3569 };
3570
3571 static int
3572 _edje_lua_part_get_text(lua_State *L)
3573 {
3574    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3575    lua_pushstring(L, edje_object_part_text_get(obj->ed->obj, obj->key));
3576    return 1;
3577 };
3578
3579 static int
3580 _edje_lua_part_get_text_selection(lua_State *L)
3581 {
3582    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3583    lua_pushstring(L,
3584                   edje_object_part_text_selection_get(obj->ed->obj, obj->key));
3585    return 1;
3586 };
3587
3588 static int
3589 _edje_lua_part_get_drag_dir(lua_State *L)
3590 {
3591    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3592    lua_pushnumber(L, edje_object_part_drag_dir_get(obj->ed->obj, obj->key));
3593    return 1;
3594 }
3595
3596 static int
3597 _edje_lua_part_get_drag_value(lua_State *L)
3598 {
3599    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3600    double dx, dy;
3601    edje_object_part_drag_value_get(obj->ed->obj, obj->key, &dx, &dy);
3602    lua_createtable(L, 2, 0);
3603    lua_pushnumber(L, dx);
3604    lua_rawseti(L, -2, 1);
3605    lua_pushnumber(L, dy);
3606    lua_rawseti(L, -2, 2);
3607    return 1;
3608 }
3609
3610 static int
3611 _edje_lua_part_get_drag_size(lua_State *L)
3612 {
3613    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3614    double dx, dy;
3615    edje_object_part_drag_size_get(obj->ed->obj, obj->key, &dx, &dy);
3616    lua_createtable(L, 2, 0);
3617    lua_pushnumber(L, dx);
3618    lua_rawseti(L, -2, 1);
3619    lua_pushnumber(L, dy);
3620    lua_rawseti(L, -2, 2);
3621    return 1;
3622 }
3623
3624 static int
3625 _edje_lua_part_get_drag_step(lua_State *L)
3626 {
3627    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3628    double dx, dy;
3629    edje_object_part_drag_step_get(obj->ed->obj, obj->key, &dx, &dy);
3630    lua_createtable(L, 2, 0);
3631    lua_pushnumber(L, dx);
3632    lua_rawseti(L, -2, 1);
3633    lua_pushnumber(L, dy);
3634    lua_rawseti(L, -2, 2);
3635    return 1;
3636 }
3637
3638 static int
3639 _edje_lua_part_get_drag_page(lua_State *L)
3640 {
3641    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3642    double dx, dy;
3643    edje_object_part_drag_page_get(obj->ed->obj, obj->key, &dx, &dy);
3644    lua_createtable(L, 2, 0);
3645    lua_pushnumber(L, dx);
3646    lua_rawseti(L, -2, 1);
3647    lua_pushnumber(L, dy);
3648    lua_rawseti(L, -2, 2);
3649    return 1;
3650 }
3651
3652 static int
3653 _edje_lua_part_get_text_cursor_geometry(lua_State *L)
3654 {
3655    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3656    Evas_Coord x, y, w, h;
3657    edje_object_part_text_cursor_geometry_get(obj->ed->obj, obj->key,
3658                                              &x, &y, &w, &h);
3659    lua_createtable(L, 4, 0);
3660    lua_pushnumber(L, x);
3661    lua_rawseti(L, -2, 1);
3662    lua_pushnumber(L, y);
3663    lua_rawseti(L, -2, 2);
3664    lua_pushnumber(L, w);
3665    lua_rawseti(L, -2, 3);
3666    lua_pushnumber(L, h);
3667    lua_rawseti(L, -2, 4);
3668    return 1;
3669 }
3670
3671 static int
3672 _edje_lua_part_get_geometry(lua_State *L)
3673 {
3674    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3675    Evas_Coord x, y, w, h;
3676    edje_object_part_geometry_get(obj->ed->obj, obj->key, &x, &y, &w, &h);
3677    lua_createtable(L, 4, 0);
3678    lua_pushnumber(L, x);
3679    lua_rawseti(L, -2, 1);
3680    lua_pushnumber(L, y);
3681    lua_rawseti(L, -2, 2);
3682    lua_pushnumber(L, w);
3683    lua_rawseti(L, -2, 3);
3684    lua_pushnumber(L, h);
3685    lua_rawseti(L, -2, 4);
3686    return 1;
3687 }
3688
3689 static int
3690 _edje_lua_part_get_table_col_row_size(lua_State *L)
3691 {
3692    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3693    int cols, rows;
3694    edje_object_part_table_col_row_size_get(obj->ed->obj, obj->key, &cols, &rows);
3695    lua_createtable(L, 2, 0);
3696    lua_pushnumber(L, cols); lua_rawseti(L, -2, 1);
3697    lua_pushnumber(L, rows); lua_rawseti(L, -2, 2);
3698    return 1;
3699 }
3700
3701 static int _edje_lua_part_fn_custom_state(lua_State *L);
3702
3703 const luaL_Reg lPart_get[] = {
3704    {"custom_state", _edje_lua_part_fn_custom_state},
3705    {"Swallow", _edje_lua_part_get_swallow}, //TODO it the capital S correct?
3706
3707    {"drag_dir", _edje_lua_part_get_drag_dir},
3708    {"drag_value", _edje_lua_part_get_drag_value},
3709    {"drag_size", _edje_lua_part_get_drag_size},
3710    {"drag_step", _edje_lua_part_get_drag_step},
3711    {"drag_page", _edje_lua_part_get_drag_page},
3712
3713    {"type", _edje_lua_part_get_type},
3714    {"effect", _edje_lua_part_get_effect},
3715    {"mouse_events", _edje_lua_part_get_mouse_events},
3716    {"repeat_events", _edje_lua_part_get_repeat_events},
3717    {"states_list", _edje_lua_part_get_states_list},
3718    {"state", _edje_lua_part_get_state},
3719
3720    {"text", _edje_lua_part_get_text},
3721    {"text_selection", _edje_lua_part_get_text_selection},
3722    {"text_cursor_geometry", _edje_lua_part_get_text_cursor_geometry},
3723
3724    {"geometry", _edje_lua_part_get_geometry},
3725    {"part_col_row_size", _edje_lua_part_get_table_col_row_size},
3726    {NULL, NULL}                 // sentinel
3727 };
3728
3729 static int
3730 _edje_lua_part_set_effect(lua_State *L)
3731 {
3732    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3733    edje_edit_part_effect_set(obj->ed->obj, obj->key, luaL_checkint(L, 2));
3734    return 0;
3735 }
3736
3737 static int
3738 _edje_lua_part_set_mouse_events(lua_State *L)
3739 {
3740    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3741    edje_edit_part_mouse_events_set(obj->ed->obj, obj->key, lua_toboolean(L, 2));
3742    return 0;
3743 }
3744
3745 static int
3746 _edje_lua_part_set_repeat_events(lua_State *L)
3747 {
3748    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3749    edje_edit_part_repeat_events_set(obj->ed->obj, obj->key,
3750                                     lua_toboolean(L, 2));
3751    return 0;
3752 }
3753
3754 static int
3755 _edje_lua_part_set_state(lua_State *L)
3756 {
3757    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3758    luaL_checktype(L, 2, LUA_TTABLE);
3759    lua_rawgeti(L, 2, 1);
3760    lua_rawgeti(L, 2, 2);
3761    _edje_part_description_apply(obj->ed, obj->rp,
3762                                 luaL_checkstring(L, -2), luaL_checknumber(L, -1),
3763                                 NULL, 0.0);
3764    _edje_part_pos_set(obj->ed, obj->rp, EDJE_TWEEN_MODE_LINEAR, ZERO, ZERO, ZERO);
3765    _edje_recalc(obj->ed);
3766    return 0;
3767 }
3768
3769 static int
3770 _edje_lua_part_set_tween_state(lua_State *L)
3771 {
3772    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3773    luaL_checktype(L, 2, LUA_TTABLE);
3774    lua_rawgeti(L, 2, 1);
3775    lua_rawgeti(L, 2, 2);
3776    lua_rawgeti(L, 2, 3);
3777    lua_rawgeti(L, 2, 4);
3778    lua_rawgeti(L, 2, 5);
3779    _edje_part_description_apply(obj->ed, obj->rp,
3780                                 luaL_checkstring(L, -4), luaL_checknumber(L, -3),
3781                                 luaL_checkstring(L, -2), luaL_checknumber(L, -1));
3782    _edje_part_pos_set(obj->ed, obj->rp, EDJE_TWEEN_MODE_LINEAR,
3783                       FROM_DOUBLE(luaL_checknumber(L, -5)), ZERO, ZERO);
3784    _edje_recalc(obj->ed);
3785    return 0;
3786 }
3787
3788 static int
3789 _edje_lua_part_set_text(lua_State *L)
3790 {
3791    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3792    edje_object_part_text_set(obj->ed->obj, obj->key, luaL_checkstring(L, 2));
3793    return 0;
3794 }
3795
3796 static int
3797 _edje_lua_part_set_drag_value(lua_State *L)
3798 {
3799    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3800    lua_rawgeti(L, 2, 1);
3801    lua_rawgeti(L, 2, 2);
3802    edje_object_part_drag_value_set(obj->ed->obj, obj->key,
3803                                    luaL_checknumber(L, -2),
3804                                    luaL_checknumber(L, -1));
3805    return 0;
3806 }
3807
3808 static int
3809 _edje_lua_part_set_drag_size(lua_State *L)
3810 {
3811    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3812    lua_rawgeti(L, 2, 1);
3813    lua_rawgeti(L, 2, 2);
3814    edje_object_part_drag_size_set(obj->ed->obj, obj->key,
3815                                   luaL_checknumber(L, -2),
3816                                   luaL_checknumber(L, -1));
3817    return 0;
3818 }
3819
3820 static int
3821 _edje_lua_part_set_drag_step(lua_State *L)
3822 {
3823    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3824    lua_rawgeti(L, 2, 1);
3825    lua_rawgeti(L, 2, 2);
3826    edje_object_part_drag_step_set(obj->ed->obj, obj->key,
3827                                   luaL_checknumber(L, -2),
3828                                   luaL_checknumber(L, -1));
3829    return 0;
3830 }
3831
3832 static int
3833 _edje_lua_part_set_drag_page(lua_State *L)
3834 {
3835    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3836    lua_rawgeti(L, 2, 1);
3837    lua_rawgeti(L, 2, 2);
3838    edje_object_part_drag_page_set(obj->ed->obj, obj->key,
3839                                   luaL_checknumber(L, -2),
3840                                   luaL_checknumber(L, -1));
3841    return 0;
3842 }
3843
3844 const luaL_Reg lPart_set[] = {
3845    {"drag_value", _edje_lua_part_set_drag_value},
3846    {"drag_size", _edje_lua_part_set_drag_size},
3847    {"drag_step", _edje_lua_part_set_drag_step},
3848    {"drag_page", _edje_lua_part_set_drag_page},
3849
3850    {"effect", _edje_lua_part_set_effect},
3851    {"mouse_events", _edje_lua_part_set_mouse_events},
3852    {"repeat_events", _edje_lua_part_set_repeat_events},
3853    {"state", _edje_lua_part_set_state},
3854    {"tween_state", _edje_lua_part_set_tween_state},
3855    {"text", _edje_lua_part_set_text},
3856    {NULL, NULL}                 // sentinel
3857 };
3858
3859 static int
3860 _edje_lua_part_fn_swallow(lua_State *L)
3861 {
3862    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3863    Edje_Lua_Evas_Object *swa = _edje_lua_checkudata(L, 2, &mObject);
3864    edje_object_part_swallow(obj->ed->obj, obj->key, swa->eo);
3865    return 0;
3866 }
3867
3868 static int
3869 _edje_lua_part_fn_unswallow(lua_State *L)
3870 {
3871    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3872    edje_object_part_unswallow(obj->ed->obj, obj->eo);
3873    return 0;
3874 }
3875
3876 static int
3877 _edje_lua_part_fn_text_select_none(lua_State *L)
3878 {
3879    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3880    edje_object_part_text_select_none(obj->ed->obj, obj->key);
3881    return 0;
3882 }
3883
3884 static int
3885 _edje_lua_part_fn_text_select_all(lua_State *L)
3886 {
3887    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3888    edje_object_part_text_select_all(obj->ed->obj, obj->key);
3889    return 0;
3890 }
3891
3892 static int
3893 _edje_lua_part_fn_text_insert(lua_State *L)
3894 {
3895    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3896    edje_object_part_text_insert(obj->ed->obj, obj->key, luaL_checkstring(L, 2));
3897    return 0;
3898 }
3899
3900 static int
3901 _edje_lua_part_fn_custom_state(lua_State *L)
3902 {
3903    char *name;
3904    float val;
3905    Edje_Part_Description *parent;
3906    Edje_Part_Image_Id *iid;
3907    Eina_List *l;
3908    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3909    /* check whether this part already has a "custom" state */
3910    if (obj->rp->custom)
3911      {
3912         _edje_lua_get_reg(L, obj->rp->custom->description);
3913         return 1;
3914      }
3915
3916    name = (char *)luaL_checkstring(L, 2);       // state name
3917    val = luaL_checknumber(L, 3);        // state val
3918    if (!(parent = _edje_part_description_find(obj->ed, obj->rp, name, val)))
3919      {
3920         lua_pushnil(L);
3921         return 1;
3922      }
3923    /* now create the custom state */
3924    Edje_Lua_Edje_Part_Description *tar =
3925       lua_newuserdata(L, sizeof(Edje_Lua_Edje_Part_Description));
3926    tar->rp = obj->rp;
3927    _edje_lua_set_class(L, -1, cDescription);
3928    _edje_lua_new_reg(L, -1, tar); // freed in edje_load.c::_edje_file_del
3929    if (!(tar->pd = calloc(1, sizeof(Edje_Part_Description))))
3930      {
3931         lua_pushnil(L);
3932         return 1;
3933      }
3934
3935    obj->rp->custom = eina_mempool_malloc(_edje_real_part_state_mp, sizeof (Edje_Real_Part_State));
3936    if (!obj->rp->custom)
3937      {
3938         free(tar->pd);
3939         tar->pd = NULL;
3940         lua_pushnil(L);
3941         return 1;
3942      }
3943
3944    *(tar->pd) = *parent;
3945    tar->pd->state.name = (char *)eina_stringshare_add("custom");
3946    tar->pd->state.value = 0.0;
3947    /*
3948     * make sure all the allocated memory is getting copied,
3949     * not just referenced
3950     */
3951    tar->pd->image.tween_list = NULL;
3952    EINA_LIST_FOREACH(parent->image.tween_list, l, iid)
3953    {
3954       Edje_Part_Image_Id *iid_new;
3955       iid_new = calloc(1, sizeof(Edje_Part_Image_Id));
3956       iid_new->id = iid->id;
3957
3958       tar->pd->image.tween_list =
3959          eina_list_append(tar->pd->image.tween_list, iid_new);
3960    }
3961 #define DUP(x) x ? (char *)eina_stringshare_add(x) : NULL
3962    tar->pd->color_class = DUP(tar->pd->color_class);
3963    tar->pd->text.text = DUP(tar->pd->text.text);
3964    tar->pd->text.text_class = DUP(tar->pd->text.text_class);
3965    tar->pd->text.font = DUP(tar->pd->text.font);
3966    tar->pd->text.style = DUP(tar->pd->text.style);
3967 #undef DUP
3968    obj->rp->custom->description = tar->pd;
3969    _edje_lua_new_reg(L, -1, obj->rp->custom->description); // freed in edje_load.c::_edje_file_del
3970    return 1;
3971 }
3972
3973 static int
3974 _edje_lua_part_fn_table_pack(lua_State *L)
3975 {
3976    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3977    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
3978    lua_pushboolean(L,
3979       edje_object_part_table_pack(obj->ed->obj, obj->key, tar->eo,
3980          luaL_checkint(L, 3),
3981          luaL_checkint(L, 4),
3982          luaL_checkint(L, 5),
3983          luaL_checkint(L, 6)));
3984    return 1;
3985 }
3986
3987 static int
3988 _edje_lua_part_fn_table_unpack(lua_State *L)
3989 {
3990    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
3991    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
3992    lua_pushboolean(L,
3993          edje_object_part_table_unpack(obj->ed->obj, obj->key, tar->eo));
3994    return 1;
3995 }
3996
3997 static int
3998 _edje_lua_part_fn_table_clear(lua_State *L)
3999 {
4000    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
4001    lua_pushboolean(L,
4002          edje_object_part_table_clear(obj->ed->obj, obj->key, lua_toboolean(L, 2)));
4003    return 1;
4004 }
4005
4006 static int
4007 _edje_lua_part_fn_box_append(lua_State *L)
4008 {
4009    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
4010    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
4011    lua_pushboolean(L,
4012          edje_object_part_box_append(obj->ed->obj, obj->key, tar->eo));
4013    return 1;
4014 }
4015
4016 static int
4017 _edje_lua_part_fn_box_prepend(lua_State *L)
4018 {
4019    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
4020    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
4021    lua_pushboolean(L,
4022          edje_object_part_box_prepend(obj->ed->obj, obj->key, tar->eo));
4023    return 1;
4024 }
4025
4026 static int
4027 _edje_lua_part_fn_box_insert_before(lua_State *L)
4028 {
4029    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
4030    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
4031    Edje_Lua_Evas_Object *ref = _edje_lua_checkudata(L, 3, &mObject);
4032    lua_pushboolean(L,
4033          edje_object_part_box_insert_before(obj->ed->obj, obj->key, tar->eo, ref->eo));
4034    return 1;
4035 }
4036
4037 static int
4038 _edje_lua_part_fn_box_insert_at(lua_State *L)
4039 {
4040    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
4041    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
4042    lua_pushboolean(L,
4043          edje_object_part_box_insert_at(obj->ed->obj, obj->key, tar->eo, luaL_checkint(L, 3)));
4044    return 1;
4045 }
4046
4047 static int
4048 _edje_lua_part_fn_box_remove(lua_State *L)
4049 {
4050    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
4051    Edje_Lua_Evas_Object *tar = _edje_lua_checkudata(L, 2, &mObject);
4052    edje_object_part_box_remove(obj->ed->obj, obj->key, tar->eo);
4053    lua_pushvalue(L, 2);
4054    return 1;
4055 }
4056
4057 static int
4058 _edje_lua_part_fn_box_remove_at(lua_State *L)
4059 {
4060    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
4061    _edje_lua_get_reg(L, edje_object_part_box_remove_at(obj->ed->obj, obj->key, luaL_checkint(L, 2)));
4062    return 1;
4063 }
4064
4065 static int
4066 _edje_lua_part_fn_box_remove_all(lua_State *L)
4067 {
4068    Edje_Lua_Edje_Part_Object *obj = _edje_lua_checkudata(L, 1, &mPart);
4069    lua_pushboolean(L,
4070          edje_object_part_box_remove_all(obj->ed->obj, obj->key, lua_toboolean(L, 2)));
4071    return 1;
4072 }
4073
4074 const luaL_Reg lPart_fn[] = {
4075    {"swallow", _edje_lua_part_fn_swallow},
4076    {"unswallow", _edje_lua_part_fn_unswallow},
4077
4078    {"custom_state", _edje_lua_part_fn_custom_state},
4079
4080    {"text_select_none", _edje_lua_part_fn_text_select_none},
4081    {"text_select_all", _edje_lua_part_fn_text_select_all},
4082    {"text_insert", _edje_lua_part_fn_text_insert},
4083
4084    {"table_pack", _edje_lua_part_fn_table_pack},
4085    {"table_unpack", _edje_lua_part_fn_table_unpack},
4086    {"table_clear", _edje_lua_part_fn_table_clear},
4087
4088    {"box_append", _edje_lua_part_fn_box_append},
4089    {"box_prepend", _edje_lua_part_fn_box_prepend},
4090    {"box_insert_before", _edje_lua_part_fn_box_insert_before},
4091    {"box_insert_at", _edje_lua_part_fn_box_insert_at},
4092    {"box_remove", _edje_lua_part_fn_box_remove},
4093    {"box_remove_at", _edje_lua_part_fn_box_remove_at},
4094    {"box_remove_all", _edje_lua_part_fn_box_remove_all},
4095    {NULL, NULL}                 // sentinel
4096 };
4097
4098 const luaL_Reg lGroup_mt[];
4099
4100 const luaL_Reg lGroup_get[];
4101
4102 const luaL_Reg lGroup_set[];
4103
4104 const luaL_Reg lGroup_fn[];
4105
4106 const Edje_Lua_Reg mGroup = {
4107    lGroup_mt,
4108    lGroup_get,
4109    lGroup_set,
4110    lGroup_fn
4111 };
4112
4113 const Edje_Lua_Reg *cGroup[] = {
4114    &mClass,
4115    &mObject,
4116    &mGroup,
4117    NULL                         // sentinel
4118 };
4119
4120 static int
4121 _edje_lua_group_mt_index(lua_State *L)
4122 {
4123    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4124    lua_getmetatable(L, 1);
4125    if (!_edje_lua_look_fn(L))
4126      {
4127         // look in lGroup_fn
4128         if (!_edje_lua_look_get(L))
4129           {
4130              // look in lGroup_get
4131              const char *key = luaL_checkstring(L, 2);
4132              Edje *ed = _edje_fetch(obj->eo);
4133              Edje_Real_Part *rp = _edje_real_part_recursive_get(ed, key);
4134              if (rp)
4135                {
4136                   // check if lua userdata exists
4137                   Evas_Object *part = (Evas_Object *) edje_object_part_object_get(obj->eo, key);
4138                   _edje_lua_get_reg(L, part);
4139                   if (lua_isnil(L, -1))
4140                     {
4141                        // create it
4142                        lua_pop(L, 1);
4143                        Edje_Lua_Edje_Part_Object *tar =
4144                           lua_newuserdata(L, sizeof(Edje_Lua_Edje_Part_Object));
4145                        tar->eo = part;
4146                        tar->ed = ed;
4147                        tar->key = key;
4148                        tar->L = L;
4149                        tar->rp = rp;
4150                        _edje_lua_set_class(L, -1, cPart);
4151                        _edje_lua_new_reg(L, -1, tar); // freed in _edje_lua_edje_part_del_cb
4152                        _edje_lua_new_reg(L, -1, part); // freed in _edje_lua_edje_part_del_cb
4153                        evas_object_event_callback_add(tar->eo,
4154                                                       EVAS_CALLBACK_DEL,
4155                                                       _edje_lua_edje_part_del_cb,
4156                                                       L);
4157                     }
4158                }
4159              else
4160                {
4161                   // look in obj environment table
4162                   lua_getfenv(L, 1);
4163                   lua_pushvalue(L, 2);  // key
4164                   lua_rawget(L, -2);
4165                }
4166           }
4167      }
4168    return 1;
4169 }
4170
4171 const luaL_Reg lGroup_mt[] = {
4172    {"__index", _edje_lua_group_mt_index},
4173    {NULL, NULL}                 // sentinel
4174 };
4175
4176 static int
4177 _edje_lua_group_get_group(lua_State *L)
4178 {
4179    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4180    const char *file, *group;
4181    edje_object_file_get(obj->eo, &file, &group);
4182    lua_pushstring(L, group);
4183    return 1;
4184 }
4185
4186 static int
4187 _edje_lua_group_get_mouse(lua_State *L)
4188 {
4189    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4190    int x, y;
4191    evas_pointer_canvas_xy_get(evas_object_evas_get(obj->eo), &x, &y);
4192    x -= obj->ed->x;
4193    y -= obj->ed->y;
4194    lua_createtable(L, 2, 0);
4195    lua_pushnumber(L, x);
4196    lua_rawseti(L, -2, 1);
4197    lua_pushnumber(L, y);
4198    lua_rawseti(L, -2, 2);
4199    return 1;
4200 }
4201
4202 static int
4203 _edje_lua_group_get_mouse_buttons(lua_State *L)
4204 {
4205    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4206    lua_pushnumber(L, evas_pointer_button_down_mask_get(obj->ed->evas));
4207    return 1;
4208 }
4209
4210 static int
4211 _edje_lua_group_get_size_min(lua_State *L)
4212 {
4213    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4214    int w, h;
4215    edje_object_size_min_get(obj->eo, &w, &h);
4216    lua_createtable(L, 2, 0);
4217    lua_pushnumber(L, w);
4218    lua_rawseti(L, -2, 1);
4219    lua_pushnumber(L, h);
4220    lua_rawseti(L, -2, 2);
4221    return 1;
4222 }
4223
4224 static int
4225 _edje_lua_group_get_size_max(lua_State *L)
4226 {
4227    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4228    int w, h;
4229    edje_object_size_max_get(obj->eo, &w, &h);
4230    lua_createtable(L, 2, 0);
4231    lua_pushnumber(L, w);
4232    lua_rawseti(L, -2, 1);
4233    lua_pushnumber(L, h);
4234    lua_rawseti(L, -2, 2);
4235    return 1;
4236 }
4237
4238 static int
4239 _edje_lua_group_get_scale(lua_State *L)
4240 {
4241    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4242    lua_pushnumber(L, edje_object_scale_get(obj->eo));
4243    return 1;
4244 }
4245
4246 static int
4247 _edje_lua_group_get_load_error(lua_State *L)
4248 {
4249    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4250    lua_pushnumber(L, edje_object_load_error_get(obj->eo));
4251    return 1;
4252 }
4253
4254 static int
4255 _edje_lua_group_get_load_error_str(lua_State *L)
4256 {
4257    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4258    lua_pushstring(L, edje_load_error_str(edje_object_load_error_get(obj->eo)));
4259    return 1;
4260 }
4261
4262 static int
4263 _edje_lua_group_get_play(lua_State *L)
4264 {
4265    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4266    lua_pushboolean(L, edje_object_play_get(obj->eo));
4267    return 1;
4268 }
4269
4270 static int
4271 _edje_lua_group_get_animation(lua_State *L)
4272 {
4273    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4274    lua_pushboolean(L, edje_object_animation_get(obj->eo));
4275    return 1;
4276 }
4277
4278 static int
4279 _edje_lua_group_get_frametime(lua_State *L)
4280 {
4281    lua_pushnumber(L, edje_frametime_get());
4282    return 1;
4283 }
4284
4285 const luaL_Reg lGroup_get[] = {
4286    {"group", _edje_lua_group_get_group},
4287    {"mouse", _edje_lua_group_get_mouse},
4288    {"mouse_buttons", _edje_lua_group_get_mouse_buttons},
4289    {"size_min", _edje_lua_group_get_size_min},
4290    {"size_max", _edje_lua_group_get_size_max},
4291    {"scale", _edje_lua_group_get_scale},
4292    {"load_error", _edje_lua_group_get_load_error},
4293    {"load_error_str", _edje_lua_group_get_load_error_str},
4294    {"play", _edje_lua_group_get_play},
4295    {"animation", _edje_lua_group_get_animation},
4296    {"frametime", _edje_lua_group_get_frametime},
4297    {NULL, NULL}                 // sentinel
4298 };
4299
4300 static int
4301 _edje_lua_group_set_group(lua_State *L)
4302 {
4303    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4304    edje_object_file_set(obj->eo, obj->ed->file->path, luaL_checkstring(L, 2));
4305    return 0;
4306 }
4307
4308 static int
4309 _edje_lua_group_set_size_min(lua_State *L)
4310 {
4311    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4312
4313    luaL_checktype(L, 2, LUA_TTABLE);
4314    lua_rawgeti(L, 2, 1);
4315    lua_rawgeti(L, 2, 2);
4316    obj->ed->collection->prop.min.w = luaL_checkint(L, -2);
4317    obj->ed->collection->prop.min.h = luaL_checkint(L, -1);
4318    obj->ed->dirty = 1;
4319    _edje_recalc(obj->ed);
4320    return 0;
4321 }
4322
4323 static int
4324 _edje_lua_group_set_size_max(lua_State *L)
4325 {
4326    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4327    luaL_checktype(L, 2, LUA_TTABLE);
4328    lua_rawgeti(L, 2, 1);
4329    lua_rawgeti(L, 2, 2);
4330    obj->ed->collection->prop.max.w = luaL_checkint(L, -2);
4331    obj->ed->collection->prop.max.h = luaL_checkint(L, -1);
4332    obj->ed->dirty = 1;
4333    _edje_recalc(obj->ed);
4334    return 0;
4335 }
4336
4337 static int
4338 _edje_lua_group_set_scale(lua_State *L)
4339 {
4340    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4341    edje_object_scale_set(obj->eo, luaL_checknumber(L, 2));
4342    return 0;
4343 }
4344
4345 static int
4346 _edje_lua_group_set_play(lua_State *L)
4347 {
4348    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4349    edje_object_play_set(obj->eo, lua_toboolean(L, 2));
4350    return 0;
4351 }
4352
4353 static int
4354 _edje_lua_group_set_animation(lua_State *L)
4355 {
4356    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4357    edje_object_animation_set(obj->eo, lua_toboolean(L, 2));
4358    return 0;
4359 }
4360
4361 static void
4362 _edje_lua_group_text_change_cb(void* data, Evas_Object *obj, const char* part)
4363 {
4364    Edje_Lua_Ref *ref = data;
4365    lua_State *L = ref->L;
4366    int err_code;
4367
4368    _edje_lua_get_ref(L, ref);
4369    _edje_lua_get_reg(L, obj);
4370    lua_pushstring(L, part);
4371
4372    if ((err_code = lua_pcall(L, 2, 0, 0)))
4373      _edje_lua_error(L, err_code);
4374 }
4375
4376 static int
4377 _edje_lua_group_set_text_change_cb(lua_State *L)
4378 {
4379    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4380    edje_object_text_change_cb_set(obj->eo, _edje_lua_group_text_change_cb, _edje_lua_new_ref(L, 2));
4381    return 0;
4382 }
4383
4384 static int
4385 _edje_lua_group_set_frametime(lua_State *L)
4386 {
4387    edje_frametime_set(luaL_checknumber(L, 2));
4388    return 0;
4389 }
4390 const luaL_Reg lGroup_set[] = {
4391    {"group", _edje_lua_group_set_group},
4392    {"size_min", _edje_lua_group_set_size_min},
4393    {"size_max", _edje_lua_group_set_size_max},
4394    {"scale", _edje_lua_group_set_scale},
4395    {"play", _edje_lua_group_set_play},
4396    {"animation", _edje_lua_group_set_animation},
4397    {"text_change_cb", _edje_lua_group_set_text_change_cb},
4398    {"frametime", _edje_lua_group_set_frametime},
4399    {NULL, NULL}                 // sentinel
4400 };
4401
4402 static int
4403 _edje_lua_group_fn_timer(lua_State *L)
4404 {
4405    Edje_Lua_Timer *tar = lua_newuserdata(L, sizeof(Edje_Lua_Timer));
4406
4407    _edje_lua_set_class(L, -1, cTimer);
4408    /* ^^^^^^^^^^^^^^^^(L, index, class)
4409    lua_newtable(L);
4410    if (index < 0)
4411       lua_setfenv(L, index - 1);
4412    else
4413       lua_setfenv(L, index);
4414
4415    _edje_lua_get_metatable(L, class);
4416    if (index < 0)
4417       lua_setmetatable(L, index - 1);
4418    else
4419       lua_setmetatable(L, index);
4420     */
4421
4422    tar->et = ecore_timer_add(luaL_checknumber(L, 2), _edje_lua_timer_cb, tar);
4423    tar->L = L;
4424
4425    _edje_lua_new_reg(L, -1, tar); // freed in _edje_lua_timer_cb/del
4426    /* ^^^^^^^^^^^^^^(L, index, ptr)
4427    lua_pushvalue(L, index);
4428    lua_pushlightuserdata(L, ptr);
4429    lua_insert(L, -2);
4430    lua_rawset(L, LUA_REGISTRYINDEX); // freed in _edje_lua_free_reg
4431     */
4432
4433    tar->cb = _edje_lua_new_ref(L, 3); // freed in _edje_lua_timer_cb/del
4434    /* ^^^^^^^^^^^^^^^^^^^^^^^^(L, index)
4435    lua_pushvalue(L, index);
4436    Edje_Lua_Ref *ref = malloc(sizeof(Edje_Lua_Ref));
4437    ref->id = luaL_ref(L, LUA_REGISTRYINDEX);
4438    ref->L = L;
4439    return ref;
4440     */
4441    return 1;
4442 }
4443
4444 static int
4445 _edje_lua_group_fn_animator(lua_State *L)
4446 {
4447    Edje_Lua_Animator *tar = lua_newuserdata(L, sizeof(Edje_Lua_Animator));
4448    _edje_lua_set_class(L, -1, cAnimator);
4449    tar->ea = ecore_animator_add(_edje_lua_animator_cb, tar);
4450    tar->L = L;
4451    _edje_lua_new_reg(L, -1, tar); // freed in _edje_lua_animator_cb/del
4452    tar->cb = _edje_lua_new_ref(L, 2); // freed in _edje_lua_animator_cb/del
4453    return 1;
4454 }
4455
4456 static int
4457 _edje_lua_group_fn_poller(lua_State *L)
4458 {
4459    int interval;
4460    Edje_Lua_Poller *tar;
4461    tar = lua_newuserdata(L, sizeof(Edje_Lua_Poller));
4462    _edje_lua_set_class(L, -1, cPoller);
4463
4464    interval = luaL_checknumber(L, 2);
4465    if ((interval <= 0) || ((interval & 1) != 0))
4466      {
4467         return 0;
4468      }
4469
4470    // Only 1 type of poller currently implemented in ecore
4471    tar->ep = ecore_poller_add(ECORE_POLLER_CORE, interval,
4472                               _edje_lua_poller_cb, tar);
4473    tar->L = L;
4474    _edje_lua_new_reg(L, -1, tar); // freed in _edje_lua_poller_cb/del
4475    tar->cb = _edje_lua_new_ref(L, 3); // freed in _edje_lua_poller_cb/del
4476
4477    return 1;
4478 }
4479
4480 static int
4481 _edje_lua_group_fn_transform(lua_State *L)
4482 {
4483    Edje_Lua_Transform *tar = lua_newuserdata(L, sizeof(Edje_Lua_Transform));
4484    evas_transform_identity_set (&(tar->et));
4485    _edje_lua_set_class(L, -1, cTransform);
4486    tar->L = L;
4487    return 1;
4488 }
4489
4490 static int
4491 _edje_lua_group_fn_signal_emit(lua_State *L)
4492 {
4493    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4494    edje_object_signal_emit(obj->eo,
4495                            luaL_checkstring(L, 2), luaL_checkstring(L, 3));
4496    return 0;
4497 }
4498
4499 static Edje_Program *
4500 _edje_lua_program_get_byname(Evas_Object * obj, const char *prog_name)
4501 {
4502    Edje_Program *epr;
4503    int i;
4504    Edje *ed;
4505    ed = _edje_fetch(obj);
4506    if (!ed)
4507       return NULL;
4508    if (!prog_name)
4509       return NULL;
4510    for (i = 0; i < ed->table_programs_size; i++)
4511      {
4512         epr = ed->table_programs[i];
4513         if ((epr->name) && (strcmp(epr->name, prog_name) == 0))
4514            return epr;
4515      }
4516    return NULL;
4517 }
4518
4519 static int
4520 _edje_lua_group_fn_program_run(lua_State *L)
4521 {
4522    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4523    Edje_Program *pr =
4524       _edje_lua_program_get_byname(obj->eo, luaL_checkstring(L, 2));
4525    if (pr)
4526       _edje_program_run(obj->ed, pr, 0, "", "");
4527    return 0;
4528 }
4529
4530 static int
4531 _edje_lua_group_fn_program_stop(lua_State *L)
4532 {
4533    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4534    Edje_Program *pr =
4535       _edje_lua_program_get_byname(obj->eo, luaL_checkstring(L, 2));
4536    int program_id = pr->id;
4537    Edje_Running_Program *runp;
4538    Eina_List *l;
4539    obj->ed->walking_actions = 1;
4540    EINA_LIST_FOREACH(obj->ed->actions, l, runp)
4541       if (program_id == runp->program->id)
4542       _edje_program_end(obj->ed, runp);
4543    obj->ed->walking_actions = 0;
4544    return 0;
4545 }
4546
4547 static int
4548 _edje_lua_group_fn_message_send(lua_State *L)
4549 {
4550    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4551    int type = luaL_checkint(L, 2);
4552    void *msg = NULL;
4553    int i;
4554    int size;
4555    switch (type)
4556      {
4557      case EDJE_MESSAGE_NONE:
4558         break;
4559      case EDJE_MESSAGE_SIGNAL:
4560         break;
4561      case EDJE_MESSAGE_STRING:
4562           {
4563              Edje_Message_String *msg_string =
4564                 malloc(sizeof(Edje_Message_String));
4565              msg_string->str = (char *)luaL_checkstring(L, 4);
4566              msg = msg_string;
4567           }
4568         break;
4569      case EDJE_MESSAGE_INT:
4570           {
4571              Edje_Message_Int *msg_int = malloc(sizeof(Edje_Message_Int));
4572
4573              msg_int->val = luaL_checkint(L, 4);
4574              msg = msg_int;
4575           }
4576         break;
4577      case EDJE_MESSAGE_FLOAT:
4578           {
4579              Edje_Message_Float *msg_float = malloc(sizeof(Edje_Message_Float));
4580
4581              msg_float->val = luaL_checknumber(L, 4);
4582              msg = msg_float;
4583           }
4584         break;
4585      case EDJE_MESSAGE_STRING_SET:
4586           {
4587              if (lua_type(L, 4) != LUA_TTABLE)
4588                break;
4589              size = lua_objlen(L, 4);
4590              Edje_Message_String_Set *msg_string_set =
4591                 malloc(sizeof(Edje_Message_String_Set) +
4592                       (size - 1) * sizeof(char *));
4593              msg_string_set->count = size;
4594              for (i = 0; i < size; i++)
4595                {
4596                   lua_rawgeti(L, 4, i + 1);
4597                   msg_string_set->str[i] = (char *)luaL_checkstring(L, -1);
4598                   lua_pop(L, 1);
4599                }
4600              msg = msg_string_set;
4601           }
4602         break;
4603      case EDJE_MESSAGE_INT_SET:
4604           {
4605              if (lua_type(L, 4) != LUA_TTABLE)
4606                break;
4607              size = lua_objlen(L, 4);
4608              Edje_Message_Int_Set *msg_int_set =
4609                 malloc(sizeof(Edje_Message_Int_Set) + (size - 1) * sizeof(int));
4610              msg_int_set->count = size;
4611              for (i = 0; i < size; i++)
4612                {
4613                   lua_rawgeti(L, 4, i + 1);
4614                   msg_int_set->val[i] = luaL_checkint(L, -1);
4615                   lua_pop(L, 1);
4616                }
4617              msg = msg_int_set;
4618           }
4619         break;
4620      case EDJE_MESSAGE_FLOAT_SET:
4621           {
4622              if (lua_type(L, 4) != LUA_TTABLE)
4623                break;
4624              size = lua_objlen(L, 4);
4625              Edje_Message_Float_Set *msg_float_set =
4626                 malloc(sizeof(Edje_Message_Float_Set) +
4627                       (size - 1) * sizeof(double));
4628              msg_float_set->count = size;
4629              for (i = 0; i < size; i++)
4630                {
4631                   lua_rawgeti(L, 4, i + 1);
4632                   msg_float_set->val[i] = luaL_checknumber(L, -1);
4633                   lua_pop(L, 1);
4634                }
4635              msg = msg_float_set;
4636           }
4637         break;
4638      case EDJE_MESSAGE_STRING_INT:
4639           {
4640              Edje_Message_String_Int *msg_string_int =
4641                 malloc(sizeof(Edje_Message_String_Int));
4642              msg_string_int->str = (char *)luaL_checkstring(L, 4);
4643              msg_string_int->val = luaL_checkint(L, 5);
4644              msg = msg_string_int;
4645           }
4646         break;
4647      case EDJE_MESSAGE_STRING_FLOAT:
4648           {
4649              Edje_Message_String_Float *msg_string_float =
4650                 malloc(sizeof(Edje_Message_String_Float));
4651              msg_string_float->str = (char *)luaL_checkstring(L, 4);
4652              msg_string_float->val = luaL_checknumber(L, 5);
4653              msg = msg_string_float;
4654           }
4655         break;
4656      case EDJE_MESSAGE_STRING_INT_SET:
4657           {
4658              if (lua_type(L, 5) != LUA_TTABLE)
4659                break;
4660              size = lua_objlen(L, 5);
4661              Edje_Message_String_Int_Set *msg_string_int_set =
4662                 malloc(sizeof(Edje_Message_String_Int_Set) +
4663                       (size - 1) * sizeof(int));
4664              msg_string_int_set->str = (char *)luaL_checkstring(L, 4);
4665              msg_string_int_set->count = size;
4666              for (i = 0; i < size; i++)
4667                {
4668                   lua_rawgeti(L, 5, i + 1);
4669                   msg_string_int_set->val[i] = luaL_checkint(L, -1);
4670                   lua_pop(L, 1);
4671                }
4672              msg = msg_string_int_set;
4673           }
4674         break;
4675      case EDJE_MESSAGE_STRING_FLOAT_SET:
4676           {
4677              if (lua_type(L, 5) != LUA_TTABLE)
4678                break;
4679              size = lua_objlen(L, 5);
4680              Edje_Message_String_Float_Set *msg_string_float_set =
4681                 malloc(sizeof(Edje_Message_String_Float_Set) +
4682                       (size - 1) * sizeof(double));
4683              msg_string_float_set->str = (char *)luaL_checkstring(L, 4);
4684              msg_string_float_set->count = size;
4685              for (i = 0; i < size; i++)
4686                {
4687                   lua_rawgeti(L, 5, i + 1);
4688                   msg_string_float_set->val[i] = luaL_checknumber(L, -1);
4689                   lua_pop(L, 1);
4690                }
4691              msg = msg_string_float_set;
4692           }
4693         break;
4694      default:
4695         break;
4696      }
4697
4698    if (msg)
4699      {
4700         edje_object_message_send(obj->eo, type, luaL_checkint(L, 3), msg);
4701         free(msg);
4702      }
4703
4704    return 0;
4705 }
4706
4707 static void
4708 _edje_lua_group_signal_callback(void *data, Evas_Object * edj,
4709                                 const char *signal, const char *source)
4710 {
4711    Edje_Lua_Ref *cb = data;
4712    lua_State *L = cb->L;
4713    _edje_lua_get_ref(L, cb);    // signal callback function
4714    if (lua_isfunction(L, -1))
4715      {
4716         int err_code;
4717
4718         _edje_lua_get_reg(L, edj);
4719         lua_pushstring(L, signal);      // signal
4720         lua_pushstring(L, source);      // source
4721
4722         if ((err_code = lua_pcall(L, 3, 0, 0)))
4723           _edje_lua_error(L, err_code);
4724      }
4725 }
4726
4727 static int
4728 _edje_lua_group_fn_signal_callback_add(lua_State *L)
4729 {
4730    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4731    if (lua_type(L, 4) == LUA_TFUNCTION)
4732      {
4733         Edje_Lua_Ref *ref = _edje_lua_new_ref(L, 4);
4734         obj->cb = eina_list_append(obj->cb, ref);
4735         edje_object_signal_callback_add(obj->eo,
4736                                         luaL_checkstring(L, 2),
4737                                         luaL_checkstring(L, 3),
4738                                         _edje_lua_group_signal_callback,
4739                                         ref); // freed in _edje_lua_group_fn_signal_callback_del
4740      }
4741    return 0;
4742 }
4743
4744 static int
4745 _edje_lua_group_fn_signal_callback_del(lua_State *L)
4746 {
4747    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4748    Edje_Lua_Ref *ref = edje_object_signal_callback_del(obj->eo,
4749                                    luaL_checkstring(L, 2),
4750                                    luaL_checkstring(L, 3),
4751                                    _edje_lua_group_signal_callback);
4752    obj->cb = eina_list_remove(obj->cb, ref);
4753    _edje_lua_free_ref(L, ref); // created in _edje_lua_group_fn_signal_callback_add
4754    return 0;
4755 }
4756
4757 static int
4758 _edje_lua_group_fn_freeze(lua_State *L)
4759 {
4760    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4761    edje_object_freeze(obj->eo);
4762    return 0;
4763 }
4764
4765 static int
4766 _edje_lua_group_fn_thaw(lua_State *L)
4767 {
4768    Edje_Lua_Evas_Object *obj = _edje_lua_checkudata(L, 1, &mGroup);
4769    edje_object_thaw(obj->eo);
4770    return 0;
4771 }
4772
4773 const luaL_Reg lGroup_fn[] = {
4774    {"timer", _edje_lua_group_fn_timer},
4775    {"animator", _edje_lua_group_fn_animator},
4776    {"poller", _edje_lua_group_fn_poller},
4777    {"transform", _edje_lua_group_fn_transform},
4778    {"signal_emit", _edje_lua_group_fn_signal_emit},
4779    {"message_send", _edje_lua_group_fn_message_send},
4780    {"program_run", _edje_lua_group_fn_program_run},
4781    {"program_stop", _edje_lua_group_fn_program_stop},
4782    {"signal_callback_add", _edje_lua_group_fn_signal_callback_add},
4783    {"signal_callback_del", _edje_lua_group_fn_signal_callback_del},
4784    {"freeze", _edje_lua_group_fn_freeze},
4785    {"thaw", _edje_lua_group_fn_thaw},
4786    {NULL, NULL}                 // sentinel
4787 };
4788
4789 /*
4790  * Lua bindings
4791  */
4792
4793 const luaL_Reg lScript_get[];
4794
4795 const luaL_Reg lScript_set[];
4796
4797 const luaL_Reg lScript_fn[];
4798
4799 const Edje_Lua_Reg mScript = {
4800    lNil,
4801    lScript_get,
4802    lScript_set,
4803    lScript_fn
4804 };
4805
4806 const Edje_Lua_Reg *cScript[] = {
4807    &mClass,
4808    &mObject,
4809    &mGroup,
4810    &mScript,
4811    NULL                         // sentinel
4812 };
4813
4814 /*
4815  * macro for adding an evas_object in the lua_script_only object
4816  */
4817 #define _EDJE_LUA_SCRIPT_FN_ADD(DEF, CLASS, FUNC)                       \
4818   static int                                                            \
4819   DEF (lua_State *L)                                                    \
4820   {                                                                     \
4821      int set = lua_gettop (L) == 2;                                     \
4822      Edje_Lua_Evas_Object *obj = _edje_lua_checkudata (L, 1, &mScript); \
4823      Edje_Lua_Evas_Object *tar = lua_newuserdata (L, sizeof (Edje_Lua_Evas_Object)); \
4824      _edje_lua_set_class (L, -1, CLASS);                                \
4825      tar->eo = FUNC (obj->ed->evas);                                    \
4826      tar->ed = obj->ed;                                                 \
4827      tar->L = L;                                                        \
4828      tar->cb = NULL;                                                    \
4829      evas_object_move (tar->eo, obj->ed->x, obj->ed->y);                \
4830      _edje_lua_new_reg (L, -1, tar); /* freed in _edje_lua_object_del_cb */ \
4831      _edje_lua_new_reg (L, -1, tar->eo); /* freed in _edje_lua_object_del_cb */ \
4832      evas_object_smart_member_add (tar->eo, obj->eo);                   \
4833      evas_object_clip_set (tar->eo, obj->ed->clipper);                  \
4834      evas_object_event_callback_add (tar->eo, EVAS_CALLBACK_DEL, _edje_lua_object_del_cb, L); \
4835      if (set)                                                           \
4836        {                                                                \
4837           int err_code;                                                 \
4838           lua_getfield (L, -1, "set");                                  \
4839           lua_pushvalue (L, -2);                                        \
4840           lua_pushvalue (L, 2);                                         \
4841           if ((err_code = lua_pcall (L, 2, 0, 0)))                      \
4842             _edje_lua_error (L, err_code);                              \
4843        }                                                                \
4844      return 1;                                                          \
4845   }
4846
4847 _EDJE_LUA_SCRIPT_FN_ADD(_edje_lua_script_fn_rectangle,
4848                         cRectangle,
4849                         evas_object_rectangle_add)
4850 _EDJE_LUA_SCRIPT_FN_ADD(_edje_lua_script_fn_image,
4851                         cImage,
4852                         evas_object_image_add)
4853 _EDJE_LUA_SCRIPT_FN_ADD(_edje_lua_script_fn_table,
4854                         cTable,
4855                         evas_object_table_add)
4856 _EDJE_LUA_SCRIPT_FN_ADD(_edje_lua_script_fn_line,
4857                         cLine,
4858                         evas_object_line_add)
4859 _EDJE_LUA_SCRIPT_FN_ADD(_edje_lua_script_fn_polygon,
4860                         cPolygon,
4861                         evas_object_polygon_add)
4862 _EDJE_LUA_SCRIPT_FN_ADD(_edje_lua_script_fn_group, cGroup, edje_object_add)
4863
4864 const luaL_Reg lScript_fn[] = {
4865    {"rectangle", _edje_lua_script_fn_rectangle},
4866    {"image", _edje_lua_script_fn_image},
4867    {"table", _edje_lua_script_fn_table},
4868    {"line", _edje_lua_script_fn_line},
4869    {"polygon", _edje_lua_script_fn_polygon},
4870    {"group", _edje_lua_script_fn_group},
4871    {NULL, NULL}                 // sentinel
4872 };
4873
4874 const luaL_Reg lScript_get[] = {
4875    {NULL, NULL}                 // sentinel
4876 };
4877
4878 const luaL_Reg lScript_set[] = {
4879    {NULL, NULL}                 // sentinel
4880 };
4881
4882 /*
4883  * creates and exports a lua_script_only object
4884  */
4885 void
4886 _edje_lua_script_fn_new(Edje * ed)
4887 {
4888    lua_State *L = ed->L;
4889    Edje_Lua_Evas_Object *tar = lua_newuserdata(L, sizeof(Edje_Lua_Evas_Object));
4890    _edje_lua_set_class(L, -1, cScript);
4891    tar->eo = ed->obj;
4892    tar->ed = ed;
4893    tar->L = L;
4894    tar->cb = NULL;
4895    _edje_lua_new_reg(L, -1, tar); // freed in _edje_lua_object_del_cb
4896    _edje_lua_new_reg(L, -1, ed); // freed in edje_load.c::_edje_file_del
4897    _edje_lua_new_reg(L, -1, ed->obj); // freed in _edje_lua_object_del_cb
4898    evas_object_event_callback_add(tar->eo, EVAS_CALLBACK_DEL,
4899                                   _edje_lua_object_del_cb, L);
4900 }
4901
4902 /*
4903  * creates and exports an Edje group with associated Lua scripts in the parts and programs sections
4904  */
4905 void
4906 _edje_lua_group_fn_new(Edje * ed)
4907 {
4908    lua_State *L = ed->L;
4909    Edje_Lua_Evas_Object *tar = lua_newuserdata(L, sizeof(Edje_Lua_Evas_Object));
4910    _edje_lua_set_class(L, -1, cGroup);
4911    tar->eo = ed->obj;
4912    tar->ed = ed;
4913    tar->L = L;
4914    tar->cb = NULL;
4915    _edje_lua_new_reg(L, -1, tar); // freed in _edje_lua_object_del_cb
4916    _edje_lua_new_reg(L, -1, ed); // freed in edje_load.c::_edje_file_del
4917    _edje_lua_new_reg(L, -1, ed->obj); // freed in _edje_lua_object_del_cb
4918    evas_object_event_callback_add(tar->eo, EVAS_CALLBACK_DEL,
4919                                   _edje_lua_object_del_cb, L);
4920 }
4921
4922 /*
4923  * this function loads all the Lua bindings into the global Lua state
4924  */
4925 static void
4926 _edje_lua_open(lua_State *L)
4927 {
4928    /*
4929     * export classes
4930     */
4931    _edje_lua_new_class(L, cTimer);
4932    _edje_lua_new_class(L, cAnimator);
4933    _edje_lua_new_class(L, cPoller);
4934    _edje_lua_new_class(L, cTransform);
4935    _edje_lua_new_class(L, cRectangle);
4936    _edje_lua_new_class(L, cImage);
4937    _edje_lua_new_class(L, cTable);
4938    _edje_lua_new_class(L, cLine);
4939    _edje_lua_new_class(L, cPolygon);
4940    _edje_lua_new_class(L, cGroup);
4941    _edje_lua_new_class(L, cDescription);
4942    _edje_lua_new_class(L, cPart);
4943    _edje_lua_new_class(L, cScript);
4944
4945    /*
4946     * export constants
4947     */
4948    _edje_lua_new_const(L, "MESSAGE_NONE", EDJE_MESSAGE_NONE);
4949    _edje_lua_new_const(L, "MESSAGE_SIGNAL", EDJE_MESSAGE_SIGNAL);
4950    _edje_lua_new_const(L, "MESSAGE_STRING", EDJE_MESSAGE_STRING);
4951    _edje_lua_new_const(L, "MESSAGE_INT", EDJE_MESSAGE_INT);
4952    _edje_lua_new_const(L, "MESSAGE_FLOAT", EDJE_MESSAGE_FLOAT);
4953    _edje_lua_new_const(L, "MESSAGE_STRING_SET", EDJE_MESSAGE_STRING_SET);
4954    _edje_lua_new_const(L, "MESSAGE_INT_SET", EDJE_MESSAGE_INT_SET);
4955    _edje_lua_new_const(L, "MESSAGE_FLOAT_SET", EDJE_MESSAGE_FLOAT_SET);
4956    _edje_lua_new_const(L, "MESSAGE_STRING_INT", EDJE_MESSAGE_STRING_INT);
4957    _edje_lua_new_const(L, "MESSAGE_STRING_FLOAT", EDJE_MESSAGE_STRING_FLOAT);
4958    _edje_lua_new_const(L, "MESSAGE_STRING_INT_SET", EDJE_MESSAGE_STRING_INT_SET);
4959    _edje_lua_new_const(L, "MESSAGE_STRING_FLOAT_SET", EDJE_MESSAGE_STRING_FLOAT_SET);
4960
4961    _edje_lua_new_const(L, "PART_TYPE_NONE", EDJE_PART_TYPE_NONE);
4962    _edje_lua_new_const(L, "PART_TYPE_RECTANGLE", EDJE_PART_TYPE_RECTANGLE);
4963    _edje_lua_new_const(L, "PART_TYPE_TEXT", EDJE_PART_TYPE_TEXT);
4964    _edje_lua_new_const(L, "PART_TYPE_IMAGE", EDJE_PART_TYPE_IMAGE);
4965    _edje_lua_new_const(L, "PART_TYPE_SWALLOW", EDJE_PART_TYPE_SWALLOW);
4966    _edje_lua_new_const(L, "PART_TYPE_TEXTBLOCK", EDJE_PART_TYPE_TEXTBLOCK);
4967    _edje_lua_new_const(L, "PART_TYPE_GRADIENT", EDJE_PART_TYPE_GRADIENT);
4968    _edje_lua_new_const(L, "PART_TYPE_GROUP", EDJE_PART_TYPE_GROUP);
4969    _edje_lua_new_const(L, "PART_TYPE_BOX", EDJE_PART_TYPE_BOX);
4970
4971    _edje_lua_new_const(L, "TEXT_EFFECT_NONE", EDJE_TEXT_EFFECT_NONE);
4972    _edje_lua_new_const(L, "TEXT_EFFECT_PLAIN", EDJE_TEXT_EFFECT_PLAIN);
4973    _edje_lua_new_const(L, "TEXT_EFFECT_OUTLINE", EDJE_TEXT_EFFECT_OUTLINE);
4974    _edje_lua_new_const(L, "TEXT_EFFECT_OTLINE", EDJE_TEXT_EFFECT_SOFT_OUTLINE);
4975    _edje_lua_new_const(L, "TEXT_EFFECT_SHADOW", EDJE_TEXT_EFFECT_SHADOW);
4976    _edje_lua_new_const(L, "TEXT_EFFECT_SOFT_SHADOW", EDJE_TEXT_EFFECT_SOFT_SHADOW);
4977    _edje_lua_new_const(L, "TEXT_EFFECT_OUTLINE_SHADOW", EDJE_TEXT_EFFECT_OUTLINE_SHADOW);
4978    _edje_lua_new_const(L, "TEXT_EFFECT_OUTLINE_SOFT_SHADOW", EDJE_TEXT_EFFECT_OUTLINE_SOFT_SHADOW);
4979    _edje_lua_new_const(L, "TEXT_EFFECT_FAR_SHADOW", EDJE_TEXT_EFFECT_FAR_SHADOW);
4980    _edje_lua_new_const(L, "TEXT_EFFECT_FAR_SOFT_SHADOW", EDJE_TEXT_EFFECT_FAR_SOFT_SHADOW);
4981    _edje_lua_new_const(L, "TEXT_EFFECT_GLOW", EDJE_TEXT_EFFECT_GLOW);
4982
4983    _edje_lua_new_const(L, "RENDER_BLEND", EVAS_RENDER_BLEND);
4984    _edje_lua_new_const(L, "RENDER_BLEND_REL", EVAS_RENDER_BLEND_REL);
4985    _edje_lua_new_const(L, "RENDER_COPY", EVAS_RENDER_COPY);
4986    _edje_lua_new_const(L, "RENDER_COPY_REL", EVAS_RENDER_COPY_REL);
4987    _edje_lua_new_const(L, "RENDER_ADD", EVAS_RENDER_ADD);
4988    _edje_lua_new_const(L, "RENDER_ADD_REL", EVAS_RENDER_ADD_REL);
4989    _edje_lua_new_const(L, "RENDER_SUB", EVAS_RENDER_SUB);
4990    _edje_lua_new_const(L, "RENDER_SUB_REL", EVAS_RENDER_SUB_REL);
4991    _edje_lua_new_const(L, "RENDER_TINT", EVAS_RENDER_TINT);
4992    _edje_lua_new_const(L, "RENDER_TINT_REL", EVAS_RENDER_TINT_REL);
4993    _edje_lua_new_const(L, "RENDER_MASK", EVAS_RENDER_MASK);
4994    _edje_lua_new_const(L, "RENDER_MUL", EVAS_RENDER_MUL);
4995
4996    _edje_lua_new_const(L, "BORDER_FILL_NONE", EVAS_BORDER_FILL_NONE);
4997    _edje_lua_new_const(L, "BORDER_FILL_DEFAULT", EVAS_BORDER_FILL_DEFAULT);
4998    _edje_lua_new_const(L, "BORDER_FILL_SOLID", EVAS_BORDER_FILL_SOLID);
4999
5000    _edje_lua_new_const(L, "POINTER_MODE_AUTOGRAB", EVAS_OBJECT_POINTER_MODE_AUTOGRAB);
5001    _edje_lua_new_const(L, "POINTER_MODE_NOGRAB", EVAS_OBJECT_POINTER_MODE_NOGRAB);
5002
5003    _edje_lua_new_const(L, "ASPECT_CONTROL_NEITHER", EVAS_ASPECT_CONTROL_NEITHER);
5004    _edje_lua_new_const(L, "ASPECT_CONTROL_HORIZONTAL", EVAS_ASPECT_CONTROL_HORIZONTAL);
5005    _edje_lua_new_const(L, "ASPECT_CONTROL_VERTICAL", EVAS_ASPECT_CONTROL_VERTICAL);
5006    _edje_lua_new_const(L, "ASPECT_CONTROL_BOTH", EVAS_ASPECT_CONTROL_BOTH);
5007
5008    _edje_lua_new_const(L, "CALLBACK_RENEW", ECORE_CALLBACK_RENEW);
5009    _edje_lua_new_const(L, "CALLBACK_CANCEL", ECORE_CALLBACK_CANCEL);
5010 }
5011
5012 /*
5013  * main Lua state
5014  * created by edje_init ()
5015  * closed by edje_shutdown ()
5016  * any other private Lua state inherits from this global state
5017  */
5018 static lua_State *Ledje = NULL;
5019
5020 lua_State *
5021 _edje_lua_state_get ()
5022 {
5023    return Ledje;
5024 }
5025
5026 /*
5027  * custom memory allocation function
5028  * raises an error, if memory usage is above the given maximum
5029  */
5030 static void *
5031 _edje_lua_alloc(void *ud, void *ptr, size_t osize, size_t nsize)
5032 {
5033    Edje_Lua_Alloc *ela = ud;
5034    void *ptr2;
5035
5036    ela->cur += nsize - osize;
5037    if (ela->cur > ela->max)
5038      {
5039         ERR("Edje Lua memory limit of %zu bytes reached (%zu allocated)",
5040             ela->max, ela->cur);
5041         return NULL;
5042      }
5043    if (nsize == 0)
5044      {
5045         free(ptr); /* ANSI requires that free(NULL) has no effect */
5046         return NULL;
5047      }
5048
5049    /* ANSI requires that realloc(NULL, size) == malloc(size) */
5050    ptr2 = realloc(ptr, nsize);
5051    if (ptr2) return ptr2;
5052    ERR("Edje Lua cannot re-allocate %zu bytes", nsize);
5053    return ptr2;
5054 }
5055
5056 void
5057 _edje_lua_init()
5058 {
5059    if (Ledje != NULL) return;
5060    /*
5061     * create main Lua state with the custom memory allocation function
5062     */
5063    static Edje_Lua_Alloc ela = { 1e7, 0 };      // TODO make the memory limit configurable?
5064    Ledje = lua_newstate(_edje_lua_alloc, &ela);
5065    if (!Ledje)
5066      {
5067         ERR("Lua error: Lua state could not be initialized");
5068         exit(-1);
5069      }
5070
5071    lua_atpanic(Ledje, _edje_lua_custom_panic);
5072
5073    /*
5074     * configure Lua garbage collector
5075     * TODO optimize garbage collector for typical edje use or make it configurable
5076     */
5077    lua_gc(Ledje, LUA_GCSETPAUSE, 200);
5078    lua_gc(Ledje, LUA_GCSETSTEPMUL, 200);
5079
5080    /*
5081     * sandbox Lua
5082     * no access to io, os and package routines
5083     * no loading and execution of files
5084     * no loading and execution of strings
5085     * no access to the OS environment
5086     */
5087    luaopen_base(Ledje);
5088    luaopen_table(Ledje);
5089    luaopen_string(Ledje);
5090    luaopen_math(Ledje);
5091    luaopen_os(Ledje);
5092
5093    /*
5094     * FIXME
5095     * this is just for debug purposes
5096     * remove it in the final version
5097     */
5098    lua_pushnil(Ledje);
5099    lua_setglobal(Ledje, "load");
5100    lua_pushnil(Ledje);
5101    lua_setglobal(Ledje, "loadfile");
5102    lua_pushnil(Ledje);
5103    lua_setglobal(Ledje, "loadstring");
5104    lua_pushnil(Ledje);
5105    lua_setglobal(Ledje, "dofile");
5106    lua_pushnil(Ledje);
5107    lua_setglobal(Ledje, "dostring");
5108
5109    lua_getglobal(Ledje, "os");
5110    lua_pushnil(Ledje);
5111    lua_setfield(Ledje, -2, "exit");
5112    lua_pushnil(Ledje);
5113    lua_setfield(Ledje, -2, "setlocale");
5114    lua_pushnil(Ledje);
5115    lua_setfield(Ledje, -2, "getenv");
5116    lua_pushnil(Ledje);
5117    lua_setfield(Ledje, -2, "remove");
5118    lua_pushnil(Ledje);
5119    lua_setfield(Ledje, -2, "tmpname");
5120    lua_pushnil(Ledje);
5121    lua_setfield(Ledje, -2, "rename");
5122    lua_pushnil(Ledje);
5123    lua_setfield(Ledje, -2, "execute");
5124    lua_pushnil(Ledje);
5125
5126    /*
5127     * we need a weak value registry
5128     * so that deleted and unused objects can be garbage collected
5129     */
5130    lua_createtable(Ledje, 1, 0);
5131    //lua_pushstring(Ledje, "v");
5132    lua_pushstring(Ledje, "");
5133    lua_setfield(Ledje, -2, "__mode");
5134    lua_setmetatable(Ledje, LUA_REGISTRYINDEX);
5135
5136    /*
5137     * load Lua Evas/Edje bindings
5138     */
5139    _edje_lua_open(Ledje);
5140 }
5141
5142 void
5143 _edje_lua_shutdown()
5144 {
5145    if (Ledje == NULL) return;
5146    lua_close(Ledje);
5147    Ledje = NULL;
5148 }
5149
5150 #endif